home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh28a.d64
/
superprint
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
11KB
|
402 lines
0 REM WRITTEN BY R. BONSE & H.J. CIPRINA IN 1987
5 REM REVISION: 30.12.87
10 POKE55,255:POKE56,120:REM BASIC ENDE
15 IFL7=1THEN500
20 POKE53280,0:POKE53281,0:PRINT"[147][153]";CHR$(14);CHR$(8):RESTORE
25 PRINTTAB(15)"[211][213][208][197][210][208][210][201][206][212]"
30 PRINTTAB(15)"[163][163][163][163][163][163][163][163][163][163]"
35 PRINT" WRITTEN BY [200].[202]. [195]IPRINA & [210]. [194]ONSE"
40 PRINTTAB(7)"(C) 1988 BY [205]ARKT & [212]ECHNIK"
45 PRINT""TAB(6)"[196]IESES [208]ROGRAMM ERSTELLT [196]IR"
50 PRINT""TAB(18)"DEN":PRINTTAB(18)"[163][163][163]"
55 PRINTTAB(7)"[211][213][208][197][210] [199][197][207][211] [196]RUCKERTREIBER"
60 PRINTTAB(4)"FUER [197]PSON UND [203]OMPATIBLE UND DEN"
65 PRINTTAB(6)"[211]TAR [206][204]-10 MIT [195][194][205]-[201]NTERFACE"
70 POKE198,0:WAIT198,1
75 PRINT"[147][215]ELCHER [196]RUCKERTREIBER SOLL ANGEPASST":PRINT"WERDEN ?"
80 EP$="[197]PSON [198][216]-80":PRINT"<[198]1>[146] ";EP$
90 NL$="[211]TAR [206][204]-10(COM)":PRINT"<[198]3>[146] ";NL$:POKE198,0
92 PRINT"[196]ER NEUE [196]RUCKERTREIBER WIRD AUCH AUF"
93 PRINT"DIESE [196]ISKETTE GESCHRIEBEN!"
95 GETA$:IFA$=""THEN95
100 IF A$="[134]"THEN200
105 IFA$<>"[133]"THEN95
110 IN$=EP$:PRINT"[147]... READING ";EP$
115 GOSUB10000:SU$=OU$:GOSUB5000
120 IF PEEK(30980)=112THENV$="3":GOTO150
125 IF PEEK(30980)=101THENV$="2":GOTO150
130 PRINT"[196]IESER [196]RUCKERTREIBER KANN NICHT VON"
135 PRINT"DIESEM [208]ROGRAMM ANGEPASST WERDEN.":END
150 PRINT"[196]RUCKERTREIBER VON [199][197][207][211] [214]1.";V$
155 IF V$="2"THENLN$="EP1.2"
160 IFV$="3"THENLN$="FX1.3"
162 FORF=1TO1000:NEXT
165 PRINT"... LOADING ";LN$
170 L7=1:LOADLN$,8,1:REM NACHLADEN
200 IN$=NL$:PRINT"[147]... READING ";NL$
205 GOSUB10000:SU$=OU$:GOSUB5000
210 V$="1":LN$="NL1.3":GOTO165
400 T=0
405 READA:T=T+1:GOTO405
500 IFV$="1"THEN1800
502 RESTORE:PRINT"[147][215]AEHLE:":PRINT"[163][163][163][163][163][163][163]"
505 PRINT"<[198]1>[146] = [211]TAR [206][204]-10 MIT [195][194][205]-[201]NTERFACE"
510 PRINT"<[198]3>[146] = [197]PSON [198][216]-80 & [203]OMPATIBLE"
515 PRINT"<[198]5>[146] = [193]NDERE [196]RUCKER":POKE198,0
520 GETA$:IFA$=""THEN520
525 A=ASC(A$):IFA<133 OR A>135THEN520
530 A=2*A-217:PRINT"[147][196]U HAST [198]";CHR$(A);" GEWAEHLT."
535 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
537 AA=A
540 IF V$="1"THEN1200
545 IF V$="3"THEN1000
550 IFA=53 THENGOSUB700:GOSUB985:GOTO986
555 IFA=51 THEN 610
556 GOSUB560
557 READA,B,C,D,E,F:POKEA,B:POKEC,D:POKEE,F:GOTO5100
560 FOR F=1TO9:READA:NEXT:REM 9 UEBERLESEN
565 GOSUB 3000:REM SEKUND. ADR
570 GOSUB 3100:REM LINEFEED
575 GOSUB 3200:REM EINSPRUNG
580 GOSUB 3205:REM ZEILENVOR N/216
600 READA,B,C,D:POKEA,B:POKEC,D:RETURN
610 GOSUB560
620 FORF=1TO6:READA:NEXT:GOTO5100
699 REM EIGENE ANPASSUNG
700 A2=1:PRINT"[200]AT DER [196]RUCKER EINEN 640 [208]UNKTE [205]ODUS? (J/N)"
705 GETA1$:IFA1$=""THEN705
710 IFA1$<>"J"THENIFA1$<>"N"THEN705
715 PRINT"[200]AT DER [196]RUCKER EINEN 1920 [208]UNKTE [205]ODUS?(J/N)"
720 GETA2$:IFA2$=""THEN720
725 IFA2$<>"J"THENIFA2$<>"N"THEN720
730 IFA1$="N"THENIFA2$="N"THEN990
735 IFA1$="N"THENIFA2$="J"THENAA=49:READB,B:REM NL
740 IFA1$="J"THENIFA2$="J"THENAA=51:REM FX
745 IFA1$="J"THENIFA2$="N"THEN990
775 IFAA=49GOTO870
780 PRINT"[202]ETZT WIRD DER 640 [208]UNKTE [205]ODUS DES"
785 PRINT"[196]RUCKERS EINGESTELLT."
790 PRINT"[198]UER DEN [198][216]-80 SIND ES 5 [215]ERTE:":PRINT"27 42 4 128 2":PRINT
795 MA=5:GOSUB800:GOTO860
800 PRINT"[205]AXIMAL KANNST [196]U";MA;"[215]ERTE EINGEBEN."
805 W1$="":INPUT"[215]IEVIELE [215]ERTE WILLST [196]U EINGEBEN ";W1$:W1=VAL(W1$)
810 IFW1<1ORW1>MATHENPRINT"[145]";:GOTO805
815 FORF=1TOW1
820 W1$(F)="":PRINT"[215]ERT";F:INPUTW1$(F):W1(F)=VAL(W1$(F))
825 IFW1(F)<0ORW1(F)>255THENPRINT"[145][145]";:GOTO820
830 NEXT
835 PRINT"";:FORF=1TOW1:PRINTW1(F);:NEXT
840 POKE198,0:PRINTCHR$(13);"[215]ERTE KORREKT (J/N)?"
845 GETA$:IFA$=""THEN845
850 IFA$<>"J"THENPRINT"":GOTO800
855 RETURN
860 READB:FORF=W1TO1 STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM GRAFCODE2 -1+F
865 READB:POKEB,W1:REM P640 +1
870 PRINT"[147][202]ETZT WIRD DER 1920 [208]UNKTE [205]ODUS DES"
875 PRINT"[196]RUCKERS EINGESTELLT."
880 PRINT"[198]UER DEN [198][216]-80 SIND ES 5 [215]ERTE:":PRINT"27 42 3 128 7":PRINT
885 MA=5:GOSUB800
890 READB:FORF=W1TO1STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM GRAFCODE -1+F
895 READB:POKEB,W1:REM GRAFIC3 +1
900 PRINT"[147][202]ETZT WIRD DER [218]EILENVORSCHUB IN N/216"
905 PRINT"FUER DEN [206]ORMAL-[205]ODUS EINGESTELLT."
907 IFV$<>"2"THEN916
910 PRINT"[198]UER DEN [198][216]-80 SIND ES 3 [215]ERTE:":PRINT"27 51 24 (24/216)":PRINT
915 MA=3:GOSUB800:GOTO924
916 PRINT"[198]UER DEN [198][216]-80 SIND ES 5 [215]ERTE:"
917 PRINT"27 64 27 51 24 (RESET + 24/216)":PRINT
918 MA=5:GOSUB800
919 PRINT"[215]IEVIELE [215]ERTE SIND DAS OHNE DEN"
920 PRINT"[210]ESETCODE?"
921 INPUTRC$:RC=VAL(RC$):IFRC<0ORRC>255THENPRINT"[145][145]":GOTO921
922 READR:POKER,RC
924 READB:FORF=W1TO1STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM VORCODE -1+F
925 READB:POKEB,W1:REM ANZAHL ZEILENVOR.
930 PRINT"[147][202]ETZT BITTE DEN [195]ODE FUER 1/216."
935 PRINT"[198]UER DEN [198][216]-80 SIND ES 3 [215]ERTE:":PRINT"27 51 1 (1/216)":PRINT
940 MA=3:GOSUB800
945 READB:FORF=W1TO1STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM CODE -1+F
950 READB:POKEB,W1:REM ANZAHL 1/216
955 PRINT"[206]UN BITTE NOCH DEN [218]EILENVORSCHUB FUER"
960 PRINT"DEN [197]XTENDET-[205]ODUS, HIERBEI BITTE NUR"
965 PRINT"DEN 'N'-[215]ERT DES [218]EILENVORSCHUBS (N/216)";
970 PRINT"EINGEBEN. [198]UER DEN [198][216]-80 IST DIES 24":PRINT"(24/216)":W1$=""
975 INPUT"[215]ERT";W1$:IFW1$=""THENPRINT"[145]";:GOTO975
976 W1=VAL(W1$)
980 IFW1<0ORW1>255THEN975
982 READB:POKEB,W1
983 RETURN
985 PRINT"[147]":GOSUB3000:GOSUB3100:GOSUB3200:FORF=1TO8:READB:NEXT:RETURN
986 IFAA=49GOTO557
987 GOTO620
990 PRINT"[147][212]UT MIR [204]EID, DIESER [196]RUCKER KANN NICHT"
995 PRINT"ANGEPASST WERDEN.":END
1000 FORF=1TO34:READB:NEXT
1005 IF A=51 THEN 1050
1010 IF A=53 THEN 1100
1015 READA,B,C,D,E:GOSUB560
1020 READA,B,C,D:POKEA,B:POKEC,D
1025 IFLF$="N"THENREADA:FORF=0TO4:POKEA+F,234:NEXT:GOTO1040
1030 READA
1040 IFAA=49THENREADA,B:POKEA,B:GOTO5100
1045 READA,B:GOTO5100
1050 READA,B,C,D,E:GOSUB560:FORF=1TO4:READB:NEXT:GOTO1025
1100 GOSUB700:GOSUB4000:GOSUB985
1105 IFAA=49THENREADA,B,C,D:POKEA,B:POKEC,D:GOTO1025
1110 FORF=1TO4:READB:NEXT:GOTO1025
1200 FORF=1TO74:READB:NEXT
1205 IF A=53 THEN 1300
1210 FORF=1TO14:READA:NEXT:FORF=1TO3:READA,B:POKEA,B:NEXT:GOSUB565
1215 IFLF$="N"THENREADA:FORF=0TO4:POKEA+F,234:NEXT:GOTO1225
1220 READA
1225 PRINT"[193][146][211][195] [201][201] ODER [195][146]OMMODORE [194]ETRIEBSART?":POKE198,0
1230 GETA$:IFA$=""THEN1230
1235 IFA$="C"THENREADA:GOTO5100
1240 IFA$<>"A"THEN1230
1245 READA:POKEA,234:POKEA+1,234:GOTO5100
1300 GOSUB1400:GOSUB4000:READA,B:FORF=1TO2:READA,B:POKEA,B:NEXT
1305 PRINT"[147]":GOSUB3000:GOSUB3100:GOSUB3200:FORF=1TO4:READB:NEXT
1310 READA,B,C,D:POKEA,B:POKEC,D:GOTO1215
1400 PRINT"[147][200]AT DER [196]RUCKER EINEN 1920 [208]UNKTE [205]ODUS?(J/N)":POKE198,0
1405 GETA$:IFA$=""THEN1405
1410 IFA$="N"THEN990
1415 IFA$<>"J"THEN1405
1420 PRINT"[147][197]S WIRD DIE VIERFACHE [208]UNKTDICHTEBENOE-"
1425 PRINT"TIGT. [196]IESE IST AUF 960 [196]RUCKPUNKTE EIN-";
1430 PRINT"ZUSTELLEN!"
1435 PRINT"[194]EIM [211]TAR [206][204]-10 SIND ES 5 [215]ERTE:"
1440 PRINT"27 42 3 192 3":GOTO795
1800 RESTORE:PRINT"[147][215]AEHLE:":PRINT"[163][163][163][163][163][163][163]"
1805 PRINT"<[198]1>[146] = [211]TAR [206][204]-10/[197]PSON [198][216]-80 (& [203]OMP.)":PRINT
1810 PRINT"<[198]5>[146] = [193]NDERE [196]RUCKER":POKE198,0
1815 GETA$:IFA$=""THEN1815
1820 IFA$="[133]"ORA$="[135]"THEN525
1825 GOTO1815
3000 READA:SA=PEEK(A)-240
3005 POKE211,17:POKE214,5:SYS58732:PRINTSA
3010 INPUT"[145][211]EKUNDAERADRESSE";SA
3015 IF SA<0 OR SA>255 THENSA=5:GOTO3005
3020 POKEA,240+SA
3025 READA:POKEA,224+SA
3030 READA:POKEA,96+SA:RETURN
3100 LF$="N":POKE211,23:POKE214,7:SYS58732:PRINTLF$
3105 INPUT"[145][204]INEFEED ERFORDERLICH";LF$
3110 IFLF$<>"J" AND LF$<>"N"THEN3100
3115 READA:IFLF$="N"THENPOKEA,96:REM RTS
3120 RETURN
3200 FORF=1TO3:READA,B:POKEA,B:NEXT:RETURN
3205 PRINT"[218]EILENVORSCHUB (N/216 INCH FUER DEN"
3210 ZA=24:POKE211,24:POKE214,10:SYS58732:PRINTZA
3215 INPUT"[145][206]ORMAL-[205]ODUS (640 [208]KT.)";ZA
3220 IFZA<3ORZA>255THEN3210
3225 PRINT"[218]EILENVORSCHUB (N/216 INCH FUER DEN"
3230 ZE=24:POKE211,26:POKE214,13:SYS58732:PRINTZE
3235 INPUT"[145][197]XTENDET-[205]ODUS (576 [208]KT.)";ZE
3240 IFZE<3ORZE>255THEN3230
3245 READA:POKEA,ZA:READA,B:POKEA,B
3250 READA:POKEA,ZE:RETURN
3999 REM ANPASSUNG AN NLQ + ZEILENABSTAND IM NORMALMODUS
4000 IFV$="1"GOTO4100
4005 PRINT"[147][194]ITTE DEN [195]ODE FUER [206][204][209]-[211]CHRIFT BZW."
4010 PRINT"[194]OLD UND [198]ETTDRUCK EINGEBEN. [194]EIM"
4012 PRINT"[197]PSON [198][216] -80 SIND ES 4 [215]ERTE:"
4015 PRINT"27 69 27 71 ([194]OLD & [198]ETT)"
4020 MA=4:GOSUB800
4030 READB:FORF=W1TO1 STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM BOLD + FETT O. NLQ
4035 READB:POKEB,W1:REM ANZ. B+F O. NLQ
4040 PRINT"[147][202]ETZT FEHLT NOCH DER [218]EILENVORSCHUB IM"
4045 PRINT"[194]OLD/[198]ETT- BZW. [206][204][209]-[205]ODUS. [194]EIM [198][216]-80"
4050 PRINT"SIND ES 4 [215]ERTE:"
4055 PRINT"27 64 27 50 (RESET + 1/6)"
4060 MA=4:GOSUB800
4065 READB:FORF=W1TO1 STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM ZEILENABSTAND
4070 READB:POKEB,W1:REM ANZ. ZEILENAB
4075 RETURN
4100 PRINT"[147][194]ITTE DEN [195]ODE FUER [206][204][209]-[211]CHRIFT EIN-"
4105 PRINT"GEBEN. [194]EIM [211]TAR [206][204]-10 SIND ES 3 [215]ERTE:"
4110 PRINT"27 120 49 ([206][204][209])"
4120 MA=3:GOSUB800
4130 READB:FORF=W1TO1 STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM BOLD + FETT O. NLQ
4135 READB:POKEB,W1:REM ANZ. B+F O. NLQ
4140 PRINT"[147][202]ETZT FEHLT NOCH DER [195]ODE FUER DIE"
4145 PRINT"[196]RUCKERINITIALISIERUNG ([210]ESET)."
4146 PRINT"[193]LTERNATIV KANN AUCH EIN ANDERER [218]EILEN-VORSCHUB EINGESTELLT WERDEN."
4150 PRINT"[198]UER DEN [206][204]-10 SIND ES 2 [215]ERTE:"
4155 PRINT"27 64 (RESET)"
4157 PRINT"[197]S MUESSEN GENAU 2 [215]ERTE EINGEGEBEN"
4158 PRINT"WERDEN."
4160 W1$="":INPUT"[215]ERT 1: ";W1$:W1=VAL(W1$)
4165 IFW1<0ORW1>255THENPRINT"[145][145]":GOTO4160
4170 READB:POKEB,W1:REM 1. (null)ERT
4180 W1$="":INPUT"[215]ERT 2: ";W1$:W1=VAL(W1$)
4185 IFW1<0ORW1>255THENPRINT"[145][145]":GOTO4180
4190 READB:POKEB,W1:REM 2. (null)ERT
4195 PRINT"[215]ERTE KORREKT (J/N)":POKE198,0
4200 GETA$:IFA$=""THEN4200
4205 IFA$="N"GOTO4140
4210 IFA$<>"J"THEN4200
4215 RETURN
4999 REM LADEROUTINE
5000 OPEN15,8,15,"I0":OPEN8,8,8,OU$+",U,R":PRINT
5005 INPUT#15,EN,EN$,ET,ES:IFEN<>0THENPRINTEN;EN$,ET;ES:CLOSE8:CLOSE15:GOTO6000
5010 LA=30976:REM LADEADRESSE
5015 GET#8,A$:IFA$=""THENA$=CHR$(0)
5020 POKELA,ASC(A$):LA=LA+1:IF ST=0 THEN5015
5025 INPUT#15,EN,EN$,ET,ES:PRINT"";EN;EN$;ET;ES
5030 CLOSE8:CLOSE15:RETURN
5099 REM SAVE ROUTINE
5100 PRINT"[147][213]NTER WELCHEM [206]AMEN SOLL DER NEUE"
5105 PRINT"[196]RUCKERTREIBER ABGESPEICHERT WERDEN?"
5110 INPUTIN$:GOSUB10000:NA$=OU$
5115 PRINT"... WRITING ";IN$
5120 PRINT"------------ DO NOT DISTURB ------------"
5125 OPEN15,8,15,"I0":OPEN8,8,8,NA$+",U,W"
5130 INPUT#15,EN,EN$,ET,ES:IFEN<>0THENCLOSE8:CLOSE15:GOTO5900
5135 READEA: REM ENDADR.
5136 HI=INT(A/256):LO=A-256*HI
5140 FORF=30976TOEA:WE=PEEK(F):PRINT#8,CHR$(WE);
5145 NEXT:CLOSE8:INPUT#15,EN,EN$,ET,ES:IF EN<>0 THEN CLOSE15:GOTO5900
5150 PRINT"[211]UCHEN DES ALTEN [201]NFOBLOCKS"
5155 OPEN8,8,8,"#2":OPEN9,8,9,"#1":FL=0
5160 INPUT#15,EN,EN$,ET,ES:IFEN<>0THENCLOSE8:CLOSE9:CLOSE15:GOTO5900
5165 EE$="":FORF=0TO15:EE$=EE$+CHR$(160):NEXT
5170 SU$=LEFT$(SU$+EE$,16):GOSUB5175:GOTO5230
5175 TR=18:SE=1
5180 PRINT#15,"U1 8 0";TR,SE
5185 GET#8,NT$:NT$=NT$+CHR$(0)
5190 GET#8,NS$:NS$=NS$+CHR$(0)
5195 FORF=0TO7:PRINT#15,"M-R"CHR$(F*32+5)CHR$(5)CHR$(27):DE$(F)=""
5200 FORG=1TO27:GET#15,A$:IFA$=""THENA$=CHR$(0)
5205 DE$(F)=DE$(F)+A$:NEXT:NEXT:F=0
5210 IF SU$=LEFT$(DE$(F),16)THENRETURN
5215 F=F+1:IFF<8THEN5210
5220 TR=ASC(NT$):SE=ASC(NS$):IFTR=0THENCLOSE8:CLOSE9:CLOSE15:GOTO5900
5225 GOTO5180
5230 IT=ASC(MID$(DE$(F),17,1))
5235 IS=ASC(MID$(DE$(F),18,1))
5240 PRINT#15,"U1 9 0";IT,IS
5245 SU$=LEFT$(NA$+EE$,16):GOSUB5175
5250 TN=1:SN=0
5255 PRINT#15,"B-A 0";TN;SN
5260 INPUT#15,EN,EN$,ET,ES:PRINT"";EN;EN$;ET;ES
5265 IFEN=0THEN5285
5270 TN=ET:SN=ES:IFTN=0THENCLOSE8:CLOSE9:CLOSE15:GOTO5900
5275 GOTO5255
5280 REM SCHREIBEN DES NEUEN INFOBLOCKS
5285 PRINT"[215]ELCHES [196]ATUM HABEN WIR HEUTE ?"
5290 INPUT"[202]AHR :";JA$
5295 INPUT"[205]ONAT :";MO$
5300 INPUT"[212]AG :";TA$
5305 INPUT"[211]TUNDE:";H$
5310 INPUT"[205]INUTE:";MI$
5315 PRINT"[193]NLEGEN DES NEUEN [201]NFOBLOCKS"
5320 PRINT#15,"M-W"CHR$(F*32+21)CHR$(5)CHR$(2)CHR$(TN)CHR$(SN)
5325 PRINT#15,"M-W"CHR$(F*32+23)CHR$(5)CHR$(3)CHR$(0)CHR$(9)CHR$(VAL(JA$))
5330 PRINT#15,"M-W"CHR$(F*32+26)CHR$(5)CHR$(2)CHR$(VAL(MO$))CHR$(VAL(TA$))
5335 PRINT#15,"M-W"CHR$(F*32+28)CHR$(5)CHR$(2)CHR$(VAL(H$))CHR$(VAL(MI$))
5340 IFV$="2"THENPRINT#15,"M-W"CHR$(F*32+30)CHR$(5)CHR$(2)CHR$(6)CHR$(0)
5341 IFV$="3"THENPRINT#15,"M-W"CHR$(F*32+30)CHR$(5)CHR$(2)CHR$(7)CHR$(0)
5342 IFV$="1"THENPRINT#15,"M-W"CHR$(F*32+30)CHR$(5)CHR$(2)CHR$(8)CHR$(0)
5345 PRINT#15,"U2 8 0";TR;SE
5350 IN$="[196]URRAN & [195]IPRINA":GOSUB10000:OU$=OU$+CHR$(0)
5355 PRINT#15,"M-W"CHR$(97)CHR$(4)CHR$(17);OU$
5360 PRINT#15,"M-W"CHR$(73)CHR$(4)CHR$(2)CHR$(LO)CHR$(HI):REM ENDADR.
5365 PRINT#15,"M-W"CHR$(160)CHR$(4)CHR$(1)CHR$(0):REM INFOTEXT LOESCHEN
5370 PRINT#15,"U2 9 0";TN;SN
5375 INPUT#15,EN,EN$,ET,ES:PRINT""EN;EN$;ET;ES
5380 CLOSE8:CLOSE9:CLOSE15
5385 PRINT"[196]ER NEUE [196]RUCKERTREIBER IST FERTIG !"
5390 PRINT"[214]IEL [211]PASS BEIM [193]USDRUCKEN !!":END
5900 PRINT"[196][160][201][160][211][160][203] [197][160][210][160][210][160][207][160][210] !"
5905 PRINT"";EN;EN$,ET,ES:END
6000 PRINT"[206]OCH MAL VERSUCHEN (J/N) ?":POKE198,0
6005 GETA$:IFA$=""THEN6005
6010 IFA$="J"THEN5000
6015 END
6999 REM NACHLADEN
7000 LOADOU$,8,1
9997 END
9998 REM ROUTINE VERWANDELT TEXT IN GEOS FORMAT UM
9999 REM EINGABE IN IN$ AUSGABE IN OU$
10000 IL=LEN(IN$): IF IL=0 THEN RETURN
10005 OU$="":FORF=1TOIL
10010 AS=ASC(MID$(IN$,F,1))
10015 IFAS<65THEN10030
10020 IFAS<91THENAS=AS+32:GOTO10030
10025 IFAS>192THENIFAS<219THENAS=AS-128
10030 OU$=OU$+CHR$(AS):NEXT:RETURN
18999 REM DATEN FUER EIGENE ANPASSUNG GEOS 1.2 (9 STK.)
19000 DATA32236
19005 DATA31530
19010 DATA31319
19015 DATA31316
19020 DATA31303
19025 DATA31300
19030 DATA31603
19035 DATA31616
19040 DATA32236
19999 REM DATEN FUER FX-80 UND NL-10 GEOS 1.2 (25 STK.)
20000 DATA31020,31034,31048
20005 DATA31348
20010 DATA30976,76,30977,198,30978,122
20015 DATA31304,31305,51
20020 DATA32236
20025 DATA31320,7,31322,3
20030 DATA31333,147,31334,122
20035 DATA31466,67
20040 DATA32241
20999 REM DATEN FUER EIGENE ANPASSUNG GEOS 1.3 (14 STK.)
21000 DATA32487
21005 DATA31737
21010 DATA31509
21015 DATA31506
21017 DATA31887
21020 DATA31451
21025 DATA31435
21030 DATA31823
21035 DATA31836
21040 DATA32487
21045 DATA31252
21050 DATA31242
21055 DATA31456
21060 DATA31448
21999 REM DATEN FUER FX-80 UND NL-10 GEOS 1.3 (26 STK.)
22000 DATA31031,31045,31059
22010 DATA31538
22020 DATA30976,76,30977,132,30978,123
22025 DATA31452,31453,51
22030 DATA 32487
22035 DATA31510,7,31512,3
22040 DATA31523,81,31524,123
22045 DATA31278
22047 DATA31656,10
22050 DATA32493
22999 REM DATEN FUER EIGENE ANPASSUNG GEOS 1.3 (13 STK.) NL
23000 DATA32498
23005 DATA31698
23010 DATA31527
23015 DATA31524
23017 DATA31916
23020 DATA31452
23025 DATA31439
23030 DATA31852
23035 DATA31865
23040 DATA32498
23045 DATA31256
23050 DATA31246
23055 DATA31444
23060 DATA31449
23999 REM DATEN FUER NL-10 GEOS 1.3
24000 DATA 31524,5
24002 DATA31288,103,31289,123
24005 DATA31035,31049,31063
24010 DATA31560
24020 DATA30976,76,30977,166,30978,123
24025 DATA31453,31454,51
24030 DATA 32498
24035 DATA31178,67
24040 DATA31346,45
24045 DATA31595
24050 DATA31285
24060 DATA32504