.lqon .mb 3 .cw 12 .PL 62 .rm 65 .HEGrafik auf dem Genie IIIs Seite # .H1 WD Grafi File un HR Mode Grafi Files .cw 8 Egber Schr|er Februa 1993 .cw 12 I Lauf de Jahr un au gute alte Computerclu Zeite habe sic doc be de ei ode andere Grafi File angesammelt di ma nich meh misse m|chte Solle di verlore gehen nu wei ma de Rechne wechsel Nat}rlic nicht I folgende zwe Basi Programm zu Einlese vo WD Grafi-File un HR-Grafi- File i Mode Forma i di Grafi de Geni IIIs. Be de Grafi File i WD Forma sin einig Informatione verborgen di ma zu optimale Darstellun au de Grafi de Geni III heranziehe kann Die wir i de Unterroutin "Monito einstellen erledigt. Zu gef{llige Beachtun auc di Erro Routin zu Fehlerbehand lung. 10 RE ************************************ 11 RE BIL (LESER * 12 RE F} Geni III * 13 RE MI RD-Basi * 14 RE W.BAC MA 8 ge{ 5/9 E.Schr|e * 15 RE ************************************ 16 CLEA 100 O ERRO GOT 6501 CL HCL HON 17 DEFIN - DEFFNAT$(Z,S)=CHR$(28)+STRING$(Z,26)+ STRING$(S,25 NG$=CHR$(22) 18 GOSU 801 'Titel 19 PRIN "DATEINAM ";:LIN INPU NAM$ 20 PRINT"LAUFWER ";:LIN INPU LAUF$ 21 OPEN"I NAM ": LAUF CLS 22 LIN INPU #1,N I N$<>"BILD"AN N$<>"BILD THE 220 23 LIN INPU #1,R$ 24 LIN INPU #1,V VE VAL(MID$(V$,2,3)) 25 LIN INPU #1,H HO VAL(MID$(H$,2,3)) 26 LIN INPU #1,D LIN INPU #1,D$ 26 GOSU 5010 27 FO T VE% 28 I EOF(1 THE CLOS GOT 400 29 LIN INPU # A 1 30 FO T HO STE 1 31 ASC(MID$(A$,X,1) 3 I THE 380 31 V2 VE V 32 I AN THE HPLO ,V2%,2 33 I AN THE HPLO H+1,V2%,2 34 I AN THE HPLO H+2,V2%,2 35 I AN THE HPLO H+3,V2%,2 36 I AN 1 THE HPLO H+4,V2%,2 37 I AN 3 THE HPLO H+5,V2%,2 38 NEX V 40 I INKEY$=" THE 400 50 END 500 RE Monito einstellen 501 I HO VE THE 502 ELS 5040 502 VE%=VE- I HO-VE THE 5020 503 CMD"##,h RETURN 504 I HO VE THE CMD"##,v RETURN 505 I HO 51 AN VE 23 THE CMD"##,x RETURN 506 I HO 51 AN VE 24 THE CMD"##,h RETURN 507 RETURN 800 RE Zeichensat lade un Programmtite ausgeben 801 CMD"z,y HCODE"script/rzs" 802 CMD"##,h HCL Z=6 S=6 803 HBI 55,220,1,2,1,"Bil Lader" 804 HTEX 45,150,2,"nac eine Ide vo W Back" 805 HTEX 60,100,2,"WD Compute Club" 806 HCOD "normal/rzs" 807 FO X= T 250 NEX X 808 HCL RETURN 600 hie steh Routin "Fil ausw{hlen" 700 hie steh Routin "Inf z WD-File" 701 Inf z File werde ausgegeben: HO 0,1 H - horizontal V - vertikal N - Date-Art R - Inf z Bil (Rechne Typ) 6500 Erro Routine 6501 I V>VE THE RESUM 400 6502 I ERR/2+1= THE RESUM 380 6503 X=1 6504 FE$(1)="Fehle #"+STR$(ERR/2+1)+ i Zeile"+STR$(ERL)+ (bitt notieren)" 6505 FE$(2)="Eingab 1=nochmal 2=weitermachen 3=Neustart, 4=Men}" 6506 PRIN FNAT$(Z,S);CHR$(30);NG$;FE$(X);NG$;CHR$(7); 6507 GOSU 6508 GOT 65060 6508 FO Y= T 10 X$=INKEY XX=VAL(X$) 6509 I XX>= AN X <= THE PRIN FNAT$(Z,S);CHR$(30); 6510 I XX= THE RESUM ELS I XX= THE RESUM NEXT 6511 I XX= THE 16 ELS I XX= THE 65140 6512 NEX I X= THE X= ELS X=1 6513 RETURN 6514 CLOS RUN"menu/bas" 6515 RUN Un al Listin da Program zu direkten Einlese vo Grafi File i Mode HR Format. 1 RE ************************************ 2 RE Mode HR 1 Bildleser 3 RE f} Geni 3s 4 RE Hartmu Obermann 4 RE ge{nder f} Geni 3 05.9 E Schr|er 5 RE ************************************ 6 CLEA 2000 CL :HCLS 7 DEFIN - DIMA$(191) 8 PRINT:PRINTTAB(10)" HR 1 *": PRINT 9 PRINT"Mi diese Program k|nne HR-Bilde de Mode (HR 1b) i di Geni 3 HR gelade un dan abgespeicher werden!": PRINT 10 PRIN "Dateinam ";:LIN INPU NAM$ 11 PRINT"Laufwer ";:LIN INPU LAUF$ 12 OPEN"R NAM ": LAUF$ 13 FIEL 1 6 A B$(0) 6 A B$(1) 6 A B$(2) 6 A B$(3) 14 FO S1= T 19 STE GE 1 15 FO S2= T 3 16 A$(S1+S2)=B$(S2) 17 NEX S NEX S1 18 CLOS CL HON 19 I-1 20 FO V1=1 T STE -1 21 FO V2=0TO19 STE 12 22 V=24-V2+V1 23 X= I=I+1 24 FO T 38 STE 1 25 ASC(MID$(A$(I),X,1)) 26 I AN THE HPLO ,V,2 27 I AN THE HPLO H+1,V,2 28 I AN THE HPLO H+2,V,2 29 I AN THE HPLO H+3,V,2 30 I AN 1 THE HPLO H+4,V,2 31 I AN 3 THE HPLO H+5,V,2 32 NEX NEX V NEX V1 33 HOF PRINT"Bil geladen!" 34 PRINT"Unte welche Name sol da Bil gespeicher werden?" 35 PRINT"