home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh91a.d64
/
list-designer4.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
11KB
|
319 lines
10 REM -------------------------------
20 REM ----- LIST-DESIGNER TWO -----
30 REM ----- -----
40 REM ----- (W) 1992 GENIES -----
50 REM -------------------------------
60 PRINT"[154][147] [196]AS [208]ROGRAMM SPRINGT AUTOMATISCH IN":POKE53280,14:POKE53281,15
70 PRINT" DAS [205]ENUE ZURUECK, WENN [198]LOPPY ODER"CHR$(14)CHR$(8)
80 PRINT" DER SERIELLE [196]RUCKER AUS IST."
90 PRINT" (W) 1992 [199]ENIES":CLR:GOSUB4000:F=1
93 PRINT" [201]NITIALISIERE [198]LOPPY!":PRINT" [211]TATUS: ";
95 OPEN1,8,15,"I":INPUT#1,E1$,E2$,E3$,E4$:PRINTE1$","E2$","E3$","E4$:CLOSE1
96 PRINT" [212]ASTE!":POKE198,.:WAIT198,1
100 DEFFNT(X)=(40-LEN(X$))/2:DIMTA$(7,50),EG$(7,51):X=1
110 F$(2)="[196]ISKETTENVERWALTUNG":F$(1)="[195][196]-[214]ERWALTUNG":F$(3)="[193]DRESSENVERWALTUNG"
111 F$(4)="[214]IDEOVERWALTUNG":F$(5)=""
150 PRINT"[147]":X$="[204]IST-[196]ESIGNER [212]WO V4.0":PRINT""TAB(FNT(1))X$:POKE198,.
160 PRINT"----------------------------------------":CP$="[205]ARKT&[212]ECHNIK"
161 POKE214,11:POKE211,20:SYS58732:PRINT"[215]RITTEN BY [199]ENIES
163 [151]214,13:[151]211,20:[158]58732:[153]"(C)";CP$
164 [151]214,17:[158]58732:[153]"----------------------------------------
165 POKE214,18:POKE211,4:SYS58732:PRINT"'_' [215]ECHSELT DIE [196]ATEIVERWALTUNG"
166 POKE214,19:SYS58732:PRINT"----------------------------------------
167 [151]214,5:[151]211,.:[158]58732
170 [153]"STR$ESIGNER-(null)ENUE:":M$(1)[178]"- ATNNLEGEN ":M$(2)[178]"- (null)ISTEN "
180 M$(3)[178]"- STR$RUCKEN ":M$(4)[178]"- (null)AVEN ":M$(5)[178]"- (null)ADEN "
190 M$(6)[178]"- STR$ISKETTE ":M$(7)[178]"- (null)OESCHEN ":M$(8)[178]"- PEEKEENDEN "
200 [129]T[178]1[164]8:T$(T)[178]""[170]M$(T)[170]"WAIT":[130]
210 [153]"":[129]T[178]1[164]8:[153][163]7)M$(T):[130]
220 [129]R[178]1[164]X:[153]"";:[130]
230 [153]"ONONONONONONONONON"[163]7)T$(X)
240 [161]A$
241 [139]A$[178]"B"[167]X[178]8:A$[178][199](13)
245 [139]A$[178]"_"[175]Y[178].[167]F[178]F[170]1:[139]F[178]5[167]F[178]1
246 [139]A$[178]"_"[175]Y[178].[167][151]781,23:[158]59903:[145]F[141]4040,4060,4080,4100,4120
250 [139]A$[178]"ON"[175]X[179] 0[167]240
260 [139]A$[178]""[175]X[177] 9[167]240
265 ZE[178][194](214):SP[178][194](211):[151]214,23:[151]211,7:[158]58732:[153]"*ATNRT: "F$(F)
266 [151]214,ZE:[151]211,SP:[158]58732
270 [139]A$[178]""[167]X[178]X[170]1:[153]"ON"[163]7)M$(X[171]1)[199](13)[163]7)T$(X)
280 [139]A$[178]"ON"[175]X[177]0[167]X[178]X[171]1:[153]"ON"[163]7)M$(X[170]1)[199](13)"ONON"[163]7)T$(X)
290 [139]A$[178][199](13)[167]330
300 [139]X[178]0[175]A$[178]"ON"[167]X[178]8:[153][163]7)M$(1)[199](13)""[163]7)T$(X)
310 [139]X[178]9[175]A$[178]""[167]X[178]1:[153]"ONON"[163]7)M$(8)[199](13)"ONONONONONONONON"[163]7)T$(X)
320 [137]240
330 YA[178]5:YE[178]23:[141]60100
340 X$[178][201](M$(X),9):[129]T[178]1[164]9:[139][202](X$,T,1)[178]" "[167]R[178]T:T[178]9
350 [130]:X$[178][200](X$,R):R[178][165]T(X):[153]""[166]R)X$
360 [145]X[137]361,500,1760,770,950,1220,1150,1720
361 [139]Y[178]50[167][153]"(null)EIN (null)LATZ GEFUNDEN!":[151]198,.:[146]198,1:[137]150
365 Y[178]Y[170]1
370 [151]214,20:[151]211,.:[158]58732
371 [153]"----------------------------------------";
372 [153]" ASC1 WAIT ATNENDERN ASC3 WAIT PEEKESTAETIGUNG"
373 [153]" ASC5 WAIT (null)ENUE ASC7 WAIT (null)ESET"
374 [151]214,19:[151]211,.:[158]58732:[153][166]15)"(null)EITE: CMDCMDCMDCMDCMD"Y"WAIT"
375 YA[178]6:YE[178]18:[141]60100
376 [129]Z[178]6[164]18[169]2:[151]214,Z:[151]211,37:[158]58732:[153]"<":[130]:[151]214,4
377 [151]214,5:[158]58732
380 [129]T[178]1[164]7
390 [153]""DA$(T)
400 [130]
410 [151]214,5:[158]58732:[129]T[178]1[164]7:[153]"";
420 LE[178]20:BS[178]1:[141]60000:TA$(T,Y)[178]I$:[130]
445 [139]Y[178]50[167][151]214,21:[151]211,15:[158]58732:[153]" "
450 [151]198,.:[146]198,1:[161]X$:[139]X$[178][199](133)[167]375
460 [139]X$[178][199](134)[175]Y[179]50[167]Y[178]Y[170]1:[137]374
465 [139][197](X$)[177].[175][197](X$)[179]8[167][141]61400
470 [139]X$[178][199](135)[167]150
480 [139]X$[178][199](136)[167]Y[178]0:F[178]1:[137]150
490 [137]450
500 [139]Y[178]0[167][153]"VALS IST KEINE (null)ABELLE VORHANDEN!":[151]198,.:[146]198,1:[137]150
505 D[178]1:[151]214,20:[151]211,.:[158]58732
510 [153]"----------------------------------------"
512 [153]" ASC5 WAIT ATNENDERN ASC7 WAIT (null)ENUE"
515 YA[178]6:YE[178]18:[141]60100
520 [153]""DA$(1);TA$(1,D)
530 [153]""DA$(2);TA$(2,D)
540 [153]""DA$(3);TA$(3,D)
550 [153]""DA$(4);TA$(4,D)
560 [153]""DA$(5);TA$(5,D)
570 [153]""DA$(6);TA$(6,D)
580 [153]""DA$(7);TA$(7,D)
590 [151]214,19:[151]211,.:[158]58732:[153][166]15)"(null)EITE: CMDCMDCMDCMDCMD"D"WAIT"
600 [139]D[178]Y[167][151]214,21:[151]211,.:[158]58732:[153]" "
605 [139]D[179]Y[167][151]214,21:[151]211,.:[158]58732:[153]" ASC1 WAIT (null)OR"
610 [139]D[179]2[167][151]214,21:[151]211,21:[158]58732:[153]" "
615 [139]D[177]1[167][151]214,21:[151]211,21:[158]58732:[153]" ASC3 WAIT (null)URUECK"
620 [151]198,.:[146]198,1:[161]X$
625 [139][197](X$)[177].[175][197](X$)[179]8[167][141]60400
630 [139]X$[178][199](133)[175]D[179]Y[167]D[178]D[170]1:[137]515
640 [139]X$[178][199](134)[175]D[177]1[167]D[178]D[171]1:[137]515
650 [139]X$[178][199](135)[167]680
660 [139]X$[178][199](136)[167]150
670 [137]620
680 YA[178]6:YE[178]18:[141]60100
690 [153]:[129]T[178]1[164]7
700 [153]""DA$(T):[151]214,4[170]T[172]2:[151]211,38:[158]58732:[153]"<"
710 [130]
720 [129]T[178]1[164]7:[151]214,4[170]T[172]2:[151]211,16:[158]58732
730 LE[178]20:BS[178]1:[141]60000:TA$(T,D)[178]I$:[151]214,4[170]T[172]2:[151]211,38:[158]58732:[153]" "
760 [130]:[137]620
770 [141]60200:[139]ER[167]2000
771 [139]Y[178]0[167][153]"(null)EINE (null)ABELLE VORHANDEN!":[151]198,.:[146]198,1:[137]150
775 [159]1,8,15,"UI+":[159]2,8,2,"0:LD 2 RELDAT"
780 [132]1,E:[139]E[178]62[167][153]"RIGHT$ST ES DIE STR$ATENDISK?":[160]1:[160]2
781 [139]E[178]62[167][151]198,.:[146]198,1:[137]150
785 [153]"ATNB WELCHEM PEEKLOCK ABLEGEN (1-20): ";:LE[178]2:BS[178]1:[141]60000
786 AD[178][197](I$):[139]AD[177]20[167][153]"ONON":[137]785
787 [139]AD[178]0[167][160]1:[160]2:[137]150
790 R[178](AD[171]1)[172]50:H[178][181](R[173]256):L[178]R[171]H[172]256
792 [152]1,"P"[170][199](2)[170][199](L)[170][199](H)[170][199](1):[141]60300:[139]E1$[179][177]"00"[167][128]
793 [152]1,"P"[170][199](2)[170][199](L)[170][199](H)[170][199](1):[129]D[178].[164]Y[171]1
794 W$[178][201]([196](F),1)
800 [129]T[178]1[164]7
810 [139][195](TA$(T,D[170]1))[179]20[167]TA$(T,D[170]1)[178]TA$(T,D[170]1)[170]" ":[137]810
820 W$[178]W$[170]TA$(T,D[170]1):[130]:[151]211,.:[151]214,10:[158]58732
830 [139][195](W$)[179][177]141[167][153]"STR$ATENSATZERROR!":[160]2:[160]1:[128]
835 [151]781,2:[158]65481
840 [152]2,W$;:W$[178]"":[141]60300:[139]E1$[179][177]"00"[167][153]"ASCEHLER!":[128]
850 [130]:[152]2,[199](255)::[151]211,.:[151]214,8:[158]58732
855 [153]"STR$ATEN SIND GESCHRIEBEN.":[158]65484
860 [160]2:[160]1:[137]150
950 [141]60200:[139]ER[167]2000
951 [159]1,8,15,"I":[159]2,8,2,"0:LD 2 RELDAT"
955 [132]1,E:[139]E[178]62[167][153]"(null)HNE STR$ATEI KANN ICH NICHTS LADEN!":[146]203,64,64
960 [139]E[178]62 [167][160]2:[160]1:[137]150
970 [153]"ATNB WELCHEM PEEKLOCK LESEN (1-20): ";:LE[178]2:BS[178]1:[141]60000
980 AD[178][197](I$):[139]AD[177]20[167][153]"ONON":[137]970
985 [139]AD[178].[167][160]2:[160]1:[137]150
990 R[178](AD[171]1)[172]50:H[178][181](R[173]256):L[178]R[171]H[172]256
1000 [152]1,"P"[170][199](2)[170][199](L)[170][199](H)[170][199](1):[141]60300:[139]E1$[179][177]"00"[167][128]
1010 [152]1,"P"[170][199](2)[170][199](L)[170][199](H)[170][199](1):Y[178]1
1015 [141]60300:[139]E1$[178]"50"[167][160]2:[160]1:[137]150
1016 [151]781,2:[158]65478
1020 [161]#2,A$:[139]A$[178][199](255)[167][151]214,8:[151]211,.:[158]58732:[137]1100
1030 F[178][197](A$): [151]211,.:[151]214,10:[158]58732
1040 [129]I[178]1[164]7:[129]T[178]1[164]20:[161]#2,A$:TA$(I,Y)[178]TA$(I,Y)[170]A$
1060 [130]:TA$(I,Y)[178][201](TA$(I,Y),20):[130]:Y[178]Y[170]1:[139]Y[178]51[167]1130
1065 [137]1020
1100 [139]Y[178]1[167][153]"VALIN LEERER PEEKLOCK WURDE GELESEN.":[137]1140
1130 [153]"ATNLLE STR$ATEN SIND EINGELESEN.":[158]65484
1140 Y[178]Y[171]1:[160]2:[160]1:[146]203,64,64:[137]150
1150 [153]"ATNLLE STR$ATEN STR$ATEN IM (null)PEICHER WERDEN GE-
1160 PRINT"LOESCHT!"
1170 PRINT"O.[203].? (J[146]/N[146])"
1180 POKE198,.:WAIT198,1:GETX$:IFX$="N"THEN150
1190 IFX$<>"J"THEN1180
1200 FORA=1TO7:FORD=1TO50:TA$(A,D)="":NEXT:POKE53280,A:NEXT:Y=0
1210 PRINT"[196]ATEN SIND GELOESCHT!":POKE198,.:WAIT198,1:POKE53280,14:GOTO150
1220 GOSUB60200:IFERTHEN2000
1225 POKE214,6:POKE211,.:SYS58732
1226 PRINT"[196]ISK-[207]PTIONS 1541/1571":POKE214,7:SYS58732
1230 PRINT" [198][146]ORMATIEREN [174]"CHR$(13)" [204][146]OESCHEN [189][145][157][171] EINER [196]ISK"
1245 PRINT" [193][146]NLEGEN EINER [196]ATEI"
1246 PRINT" [211][146]CRATCHEN EINER [196]ATEI"
1247 PRINT" [201][146]NITIALISIEREN DER [198]LOPPY
1255 [153]" STR$WAITIRECTORY"
1260 [153]"(null)UM (null)WAITENUE ZURUECKKEHREN"
1270 A[178]0:[151]198,.:[146]198,1:[161]X$:[139]X$[178]"M"[167]150
1280 [139]X$[178]"F"[167]A[178]1
1285 [139]X$[178]"A"[167]A[178]4
1286 [139]X$[178]"S"[167]A[178]5
1290 [139]X$[178]"L"[167]A[178]2
1295 [139]X$[178]"D"[167]A[178]3
1296 [139]X$[178]"I"[167]A[178]6
1320 [139]A[178]0[167]1270
1330 [159]1,8,15:[145]A[137]1340,1430,1680,1510,1540,6000,6010
1335 YA[178]6:YE[178]23:[141]60100:[153]"":[160]1:[137]1220
1340 YA[178]6:YE[178]21:[141]60100:[153]"(null)AME DER STR$ISKETTE: ";:LE[178]16:BS[178]1:[141]60000
1350 N$[178]I$:[153]"RIGHT$STR$ DER STR$ISKETTE: ";:LE[178]2:BS[178]1:[141]60000
1360 [139]N$[178]""[176]I$[178]""[167][160]1:[137]1335
1370 [153]"O.(null).? (JWAIT/NWAIT)":[151]198,.:[146]198,1:[161]X$
1380 [139]X$[178]"N"[167]1335
1390 [139]X$[179][177]"J"[167][153]"ONON";:[137]1370
1400 [152]1,"N:"[170]N$[170]","[170]I$:[132]1,E1$,E2$,E3$,E4$
1401 [141]60300
1402 [159]2,8,2,"0:LD 2 RELDAT,L,"[170][199](141)
1403 [141]60300:[139]E1$[178]"63"[167][160]1:[160]2:[137]1335
1404 [152]1,"P"[170][199](98)[170][199](224)[170][199](3)[170][199](1)
1405 [141]60300
1406 [152]2,[199](255)
1407 [141]60300
1408 [160]2
1429 [160]1:[151]198,.:[146]198,1:[137]1335
1430 YA[178]6:YE[178]21:[141]60100:[153]"(null)AME DER STR$ISKETTE: ";:LE[178]16:BS[178]1:[141]60000
1440 N$[178]I$:[139]N$[178]""[167][160]1:[137]1335
1450 [153]"O.(null).? (JWAIT/NWAIT)":[151]198,.:[146]198,1:[161]X$
1460 [139]X$[178]"N"[167]1335
1470 [139]X$[179][177]"J"[167][153]"ONON";:[137]1450
1480 [152]1,"N:"[170]N$:[132]1,E1$,E2$,E3$,E4$
1500 [137]1401
1510 YA[178]6:YE[178]21:[141]60100:[153]"PEEKITTE STR$ISK FUER DIE NEUE STR$ATEI EINLEGEN."
1520 [146]203,64,64:[161]X$:[139]X$[178]"."[167][160]1:[137]1335
1530 [153]"ONON(null)EGE JETZT DIE NEUE STR$ATEI AN. ":[137]1402
1540 YA[178]6:YE[178]21:[141]60100:[153]"(null)EGEN SIE DIE STR$ISK MIT DER ZU SCRATCH-"
1550 [153]"ENDEN STR$ATEI EIN."
1551 [146]203,64,64:[161]X$:[139]X$[178]"."[167][160]1:[137]1335
1552 [153]"ON ":[153]"ONON(null)CRATCHE STR$ATEI! "
1553 [152]1,"S:LD 2 RELDAT":[141]60300:[146]203,64,64:[137]1335 "
1680 PRINT#1,"I":INPUT#1,ER
1690 IFERTHENPRINT"[196]ISK IST NICHT LESBAR!":WAIT203,64,64:GOTO1335
1700 FORT=1TO1000:NEXT:PRINT"[147]"CHR$(142):RESTORE:FORM=828TO902
1710 READ P:POKE M,P:NEXT:SYS828:POKE198,.:WAIT198,1
1711 PRINT"[147]"CHR$(14):X$="[204]IST-[196]ESIGNER [212]WO V4.0":PRINT""TAB(FNT(1))X$
1712 PRINT"----------------------------------------":GOTO1335
1720 PRINT"[211]IND [211]IE SICHER? (J[146]/N[146])"
1730 POKE198,.:WAIT198,1:GETX$:IFX$="N"THEN150
1740 IFX$="J"THENPRINT"[147][212]SCHUESS...":END
1750 GOTO1730
1760 IFY>.THEN1780
1770 POKE214,12:SYS58732:PRINT" [215]AS SOLL ICH DENN DRUCKEN, DU ...?"
1775 POKE198,.:WAIT198,1:GOTO150
1780 POKE214,6:POKE211,.:SYS58732:PRINT"[196]RUCKER: [211]TAR [204][195] 20"
1781 POKE214,8:POKE211,.:SYS58732:PRINT"[213]EBERSCHRIFT:";:LE=40:BS=1:GOSUB60000
1785 POKE214,11:POKE211,.:SYS58732:PRINT"[196]RUCKE!"
1790 OPEN1,4,7:IFI$=""THEN1800
1791 PRINT#1," "
1795 PRINT#1,I$:PRINT#1,"----------------------------------------";
1796 PRINT#1,"----------------------------------------"
1800 PRINT#1," "
1805 PRINT#1,"[214]ERZEICHNIS ";
1806 PRINT#1,"[194]ERMERKUNGEN ";
1809 PRINT#1," "
1810 D=1
1820 FORT=1TO7:PRINT#1,DA$(T);": ";TA$(T,D):NEXT:PRINT#1,""
1830 D=D+1
1831 IFINT(D/7)=D/7ANDD<YTHENGOSUB61500
1832 IFD=<YTHEN1820
1870 POKE214,11:POKE211,.:SYS58732:PRINT" "
1871 POKE781,8:SYS59903:POKE781,9:SYS59903:POKE214,8:POKE211,.:SYS58732
1875 PRINT"[193]NZAHL DER [196]ATEN AUSGEBEN? ";
1876 GETA$:IFA$<>"J"ANDA$<>"N"THEN1876
1877 PRINTA$:IFA$="N"THEN1900
1880 PRINT#1,CHR$(13)"[193]NZAHL:";Y
1900 CLOSE1:POKE214,11:POKE211,.:SYS58732:PRINT"[198]ERTIG!":WAIT203,64,64:GOTO150
2000 YA=6:YE=23:GOSUB60100
2010 PRINT"[198][204][207][208][208][217] IST AUS! [194]ITTE EINSCHALTEN!"
2020 POKE198,.:WAIT198,1:GOTO150
2040 YA=6:YE=23:GOSUB60100
2050 PRINT"[196][145][210][145][213][145][195][145][203][145][197][145][210] IST AUS! [194]ITTE EINSCHALTEN!"
2060 POKE198,.:WAIT198,1:GOTO150
4000 REM "16 [218]EICHEN!"
4040 DA$(1)="[212]ITEL: "
4041 DA$(2)="[205]USIKER/[199]RUPPE: "
4042 DA$(3)="[212]ITELANZAHL: "
4043 DA$(4)="[204]AUFZEIT: "
4044 DA$(5)="[205]ONAT/[202]AHR: "
4045 DA$(6)="[211]PARTE: "
4046 DA$(7)="[194]EMERKUNG: "
4050 RETURN
4060 DA$(1)="[206]AME: "
4061 DA$(2)="[201][196]: "
4062 DA$(3)="[193]NZAHL D. [198]ILES:"
4063 DA$(4)="[203]URZBESCHREIB.: "
4064 DA$(5)="[196]RIVE + [211]PUREN: "
4065 DA$(6)="[199]EOS [196]ISK: "
4066 DA$(7)="[194]EMERKUNG: "
4070 RETURN
4080 DA$(1)="[214]ORNAME: "
4081 DA$(2)="[206]AME: "
4082 DA$(3)="[211]TR. / [200]AUSNR.: "
4083 DA$(4)="[208]OSTLEITZAHL: "
4084 DA$(5)="[215]OHNORT: "
4085 DA$(6)="[212]ELEFON: "
4086 DA$(7)="[199]EBURTSTAG: "
4090 RETURN
4100 DA$(1)="[198]ILMTITEL: "
4101 DA$(2)="[212]HEMA: "
4102 DA$(3)="[210]EGIE: "
4103 DA$(4)="[202]AHR: "
4104 DA$(5)="[204]AENGE: "
4105 DA$(6)="[206]R. DER [203]ASS.: "
4106 DA$(7)="[194]EMERKUNG: "
4110 RETURN
4111 DA$(2)="[206]AME: "
4120 DA$(1)=" "
4121 DA$(2)=" "
4122 DA$(3)=" "
4123 DA$(4)=" "
4124 DA$(5)=" "
4125 DA$(6)=" "
4126 DA$(7)=" "
4130 RETURN
6000 PRINT#1,"I":GOSUB60300:CLOSE1:WAIT203,64,64:GOTO1335
59999 PRINT"ENDE":END
60000 P=0:I$=""
60001 POKE204,.:POKE198,.:WAIT198,1:GETX$
60002 POKE207,.:POKE204,1:PRINT" [157]";
60003 IFP=.THEN60005
60004 IFASC(X$)=20THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157] [157]";:P=P-1:GOTO60001
60005 IFASC(X$)=13THENPRINT:RETURN
60006 IFP=LE THEN60001
60007 IFBS=.AND(X$<"0"ORX$>"9")THEN60001
60008 IFBS=1AND(X$<" "OR(X$>CHR$(127)ANDX$<CHR$(160)))THEN60001
60009 PRINTX$;:I$=I$+X$:P=P+1:GOTO60001
60100 FORT=YATOYE:POKE781,T:SYS59903:NEXT
60110 POKE214,YA-2:POKE211,.:SYS58732:RETURN
60200 POKE144,.:POKE780,8:SYS65457:SYS65454:ER=PEEK(144):RETURN
60210 POKE144,.:POKE780,4:SYS65457:SYS65454:ER=PEEK(144):RETURN
60300 INPUT#1,E1$,E2$,E3$,E4$:POKE781,22:SYS59903:POKE211,.:POKE214,22
60310 SYS58732:PRINTE1$","E2$","E3$","E4$:RETURN
60400 X1=VAL(X$):Y1=4+X1*2:POKE780,Y1:SYS59903
60410 POKE214,Y1:POKE211,.:SYS58732:PRINTDA$(X1)
60420 POKE214,Y1:POKE211,38:SYS58732:PRINT"<"
60430 POKE214,Y1:POKE211,16:SYS58732:LE=20:BS=1:GOSUB60000
60440 TA$(X1,D)=I$:POKE214,Y1:POKE211,38:SYS58732:PRINT" ":RETURN
61400 X1=VAL(X$):Y1=4+X1*2:POKE214,Y1:POKE211,16:SYS58732:PRINT" "
61410 POKE214,Y1:POKE211,.:SYS58732:PRINTDA$(X1)
61430 POKE214,Y1:POKE211,16:SYS58732:LE=20:BS=1:GOSUB60000
61440 TA$(X1,D)=I$:RETURN
61500 POKE781,8:SYS59903:POKE781,9:SYS59903:POKE214,8:POKE211,.:SYS58732
61510 PRINT"[206]AECHSTE [211]EITE EINLEGEN!":WAIT203,64,64
61520 POKE781,8:SYS59903:POKE214,8:POKE211,.:SYS58732
61530 RETURN
63000 DATA169,147,32,210,255,162,134,160,3,169,1,32,189,255,169,8,162,96,133
63001 DATA186,134,185,32,213,243,32,25,242,160,4,32,19,238,136,208,250,165,198
63002 DATA5,144,208,25,32,19,238,170,32,19,238,32,205,189,32,19,238,32,210,255
63003 DATA208,248,32,215,170,160,2,208,219,32,66,246,32,243,246,96,36