5 POKE56,61:POKE55,192
10 POKE53280,0:POKE53281,0:POKE650,128:POKE53272,23:PRINT"[147]"
11 ::
12 IFA=0THENA=1:LOAD"MT-GRAFIK-ART",8,1
99 ::
100 REM+++++++++++++++++++++++++++++
101 REM+                           +
102 REM+     GRAFIK-ART            +
103 REM+                           +
104 REM+           ANDREAS A. HOLZ +
105 REM+           ZIKADENWEG 15   +
106 REM+ [3017728] 1   BERLIN 19   +
107 REM+                           +
108 REM+++++++++++++++++++++++++++++
109 ::
120 FOR X=704TO766:READA:POKEX,A:NEXT:REM SINGLE CUSOUR [11. BLOCK]
130 FOR X=896TO958:READA:POKEX,A:NEXT:REM MULTI  CUSOUR [14. BLOCK]
135 FORX=1TO9:READSP(X):NEXT:REM +++++SPEED-DATAS
140 V=53248:POKEV+21,143:POKEV+14,0:POKEV+15,29:POKEV+46,7:POKEV+29,134:POKEV+23,140
150 V$="7654321[154]0":L$="                                       ":POKE198,0
155 GOSUB710:GOSUB830:SYS49702:REM BILDSCHIRMAUFBAU+SPRITE LOESCHEN [13.BLOCK]
170 POKE2040,13:POKEV+16,6:POKEV,255:POKEV+1,51:POKEV+39,14:REM+  SPRITE 0
180 POKE2041,13:POKEV+2,28:POKEV+3,51:POKEV+40,14:REM+++++++++++  SPRITE 1
190 POKE2042,13:POKEV+4,28:POKEV+5,80:POKEV+41,14:REM+++++++++++  SPRITE 2
200 POKE2043,13:POKEV+6,255:POKEV+7,80:POKEV+42,14:REM++++++++++  SPRITE 3
298 ::
299 POKE198,0
300 SYS49152
305 GETA$:IFA$=""GOTO300
310 IFA$="[134]"THENSYS49682:GOTO300
320 IFA$="[138]"THENSYS49692:GOTO300
322 IFA$=""THENSYS50559:GOTO300
324 IFA$="[157]"THENSYS50542:GOTO300
326 IFA$=""THENSYS49879:GOTO300
328 IFA$="[145]"THENSYS49931:GOTO300
350 IFA$="D"THENSYS49778:GOSUB800:GOTO299
355 IFA$="[196]"THENSYS49794:GOSUB800:GOTO299
360 IFA$="[147]"THENSYS49702:GOTO299
370 IFA$=""THENPOKEV+14,0:POKEV+15,29:GOTO299
380 IFA$=CHR$(13)THENIFPEEK(V+15)<>189THENPOKEV+14,0:POKEV+15,PEEK(V+15)+8:GOTO299
390 IFA$="S"THENSYS49821:GOSUB800:GOTO299
392 IFA$="[133]"THENSYS49720:GOTO300
393 IFA$="[137]"THENSYS49735:GOTO300
394 IFA$="[135]"THENSYS50502:GOTO300
395 IFA$="[139]"THENSYS50522:GOTO300
396 IFA$="[136]"THENSYS50512:GOTO300
397 IFA$="[140]"THENSYS50532:GOTO300
400 IFA$=" "THENIFPEEK(49405)=176THENSYS49844:GOTO300
410 IFA$="0"THENFORX=832TO894:POKEX,255-PEEK(X):NEXT:SYS49548:GOTO299
490 IFA$="M"THENSYS50065:GOSUB710:GOSUB830:SYS49548:GOTO299
495 IFA$="A"THENGOSUB1010:GOTO300
497 IFA$="@"GOTO3005
500 IFA$="!"THENIFPEEK(49236)=15THENPOKE49997,128:POKE49996,PEEK(V+39):GOSUB760:GOTO299
510 IFA$=CHR$(34)THENIFPEEK(49236)=15THENPOKE49997,64:POKE49996,PEEK(V+37):GOSUB760:GOTO299
520 IFA$="#"THENIFPEEK(49236)=15THENPOKE49997,192:POKE49996,PEEK(V+38):GOSUB760:GOTO299
525 IFA$="_"THENGOSUB4000:GOTO299
527 IFASC(A$)>48ANDASC(A$)<58THENPOKE1661,128+ASC(A$):POKE49294,SP(ASC(A$)-48):GOTO300
528 IFA$="+"THENIFPEEK(V+46)<>255THENPOKEV+46,PEEK(V+46)+1:GOTO299
529 IFA$="-"THENIFPEEK(V+46)<>0THENPOKEV+46,PEEK(V+46)-1:GOTO299
535 IFA$="^"GOTO7010
540 IFA$="*"GOTO7050
550 GOTO300
700 REM++++++++++++++++++++++++
701 REM+                      +
702 REM+  BILDSCHIRMAUFBAU    +
703 REM+                      +
704 REM++++++++++++++++++++++++
705 ::
710 POKEV+14,0:POKEV+15,29
715 PRINT"[147]";:IFPEEK(49236)=15GOTO740
720 FORX=1TO21:PRINT"++++++++++++++++++++++++"X:NEXT:FORX=0TO2:PRINTV$;:NEXT
730 POKE2047,11:POKEV+28,0:GOTO800
740 FORX=1TO21:PRINT"[172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187]"X:NEXT:FORX=0TO2:PRINTV$;:NEXT
750 POKE2047,14:POKEV+28,15
760 POKE214,17:POKE211,28:SYS58640:PRINT"[159][218]EICHEN= ";:POKE646,PEEK(49996):PRINT"  [157][157]  [146]"
765 POKE214,18:POKE211,31:SYS58640:PRINT"[159]FARBE"
770 POKE214,20:POKE211,28:SYS58640:PRINT"[150][198]ARBE #1 ";:POKE646,PEEK(53287):PRINT"  [146]"
780 POKE214,21:POKE211,28:SYS58640:PRINT"[198]ARBE #2 ";:POKE646,PEEK(53285):PRINT"  [146]"
790 POKE214,22:POKE211,28:SYS58640:PRINT"[156][198]ARBE #3 ";:POKE646,PEEK(53286):PRINT"  [146]"
800 POKE214,11:POKE211,28:SYS58640:PRINT"[196][210][193][215]  A";
805 IFPEEK(49280)<>234GOTO808
806 PRINT"N  [146]":GOTO810
808 PRINT"US [146]"
810 POKE214,13:POKE211,28:SYS58640:PRINT"[154][211]/[204]-[205]ODUS-[211]":IFPEEK(49404)=43THENPOKE1582,128+PEEK(1582)
820 IFPEEK(49404)<>43THENFORX=1572TO1574:POKEX,128+PEEK(X):NEXT:RETURN
825 RETURN
830 POKE214,15:POKE211,28:SYS58640:PRINT"[211][208][197][197][196] #  5 [146]":POKE49294,64:RETURN
839 ::
840 REM++++  SINGLE-SPRITE-DATA'S  ++++
845 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,7,,,8,128,,16,64,,16,64,,8,192,,7,224,,,48
850 DATA,,24,,,,,,,,,,,,
900 :
905 REM++++  MULTI -SPRITE-DATA'S  ++++
910 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,31,252,,32,2,,32,2,,32,2,,32,2,,31,252,,
915 DATA,,,,,,,,,,,,
920 :
925 REM++++  SPEED - DATAS ++++++++++++
930 DATA80,75,68,64,58,48,35,25,17
935 ::
1000 REM+++++++++++++++++++++++
1001 REM+                     +
1002 REM+     AUSGABE         +
1003 REM+                     +
1004 REM+++++++++++++++++++++++
1005 :
1010 POKE198,0:POKE214,23:POKE211,0:SYS58640:PRINT"[154][193]USGABE..."
1020 PRINT"1. [196]ISK   2. [196]RUCKER   3. [211]CREEN";
1030 GETA$:IFA$="1"GOTO2001
1035 IFA$="2"GOTO1050
1040 IFA$="3"THENGOSUB1055:GOTO1080
1042 IFA$=CHR$(13)THENGOSUB1095:GOTO300
1045 GOTO1030
1050 OPEN4,4:CMD4:GOSUB1060:PRINT#4:CLOSE4:GOSUB1095:RETURN
1055 PRINT"[147]";:POKEV+21,0
1060 FORX=0TO4:PRINTX+1"DATA";:FORX1=0TO10:PRINTPEEK(832+X1+X*12)"[157],";
1065 NEXT:PRINTPEEK(832+X1+X*12)
1070 NEXT:PRINTX+1"DATA";:FORX=892TO893:PRINTPEEK(X)",";:NEXT:PRINTPEEK(894):RETURN
1080 INPUT"[208]ROGRAMM [197]NDE";A$:IFMID$(A$,1,1)="J"GOTO5000
1090 GOSUB710:GOSUB830:POKEV+21,143:SYS49548:RETURN
1095 FORX=0TO1:POKE214,23+X:POKE211,0:SYS58640:PRINTL$;:NEXT:RETURN
1097 POKE53280,2:POKE53265,PEEK(53265)AND239:RETURN
1098 POKE53265,PEEK(53265)OR16:POKE53280,0:RETURN
1099 OPEN2,8,2,N$+",S,W":RETURN
1100 ::
1101 CLOSE2:GOSUB1099:GOSUB1095:SYS50607:GOSUB1098:WAIT198,1:GOSUB1095:SYS65511:RETURN
2000 ::
2001 GOSUB1095:GOSUB4101:IFN$=""THENGOSUB1095:GOTO300
2010 GOSUB1097:GOSUB1099:OPEN15,8,15:INPUT#15,A$:IFA$<>"00"GOTO1101
2015 FORX=832TO832+62:PRINT#2,PEEK(X)
2020 NEXT
2025 CLOSE2:CLOSE15:GOSUB1095:GOSUB1098:RETURN
3000 REM+++++++++++++++++++++++++++
3001 REM+                         +
3002 REM+   DISK......            +
3003 REM+                         +
3004 REM+++++++++++++++++++++++++++
3005 POKE214,23:POKE211,0:SYS58640:PRINT"[154][196]ISK...":PRINT"1. [196][207][211]   2. [196]ISK-[211]TATUS";
3010 GETA$:IFA$="1"GOTO3050
3015 IFA$="2"GOTO3070
3016 IFA$=CHR$(13)THENGOSUB1095:GOTO299
3020 GOTO3010
3050 GOSUB1095:POKE214,23:POKE211,0:SYS58640:GOSUB4100:IFN$=""THENGOSUB1095:GOTO300
3055 OPEN1,8,15,N$:CLOSE1:GOSUB1095:GOTO300
3070 GOSUB1095:SYS50709:WAIT198,1:GOSUB1095:POKE198,0:GOTO299
3100 REM+++++++++++++++++++++++++++
3101 REM+                         +
3102 REM+   EINGABE               +
3103 REM+                         +
3104 REM+++++++++++++++++++++++++++
3998 OPEN2,8,2,N$+",S,R":RETURN
3999 CLOSE2:GOSUB3998:GOSUB1095:SYS50607:GOSUB1098:WAIT198,1:GOSUB1095:SYS65511:RETURN
4000 GOSUB4101:IFN$=""THENGOSUB1095:GOTO300
4001 GOSUB1097:GOSUB3998:OPEN15,8,15:INPUT#15,A$:IFA$<>"00"GOTO3999
4005 FORX=832TO832+62:INPUT#2,A:POKEX,A:NEXT
4010 CLOSE2:CLOSE15:GOSUB1095:SYS49548:GOSUB1098:RETURN
4091 ::
4092 REM +++  GET  NAME  +++
4093 ::
4100 N$="":POKE214,23:POKE211,0:SYS58640:PRINT"[154][194]EFEHL? ";:N=29:GOTO4105
4101 N$="":POKE214,23:POKE211,0:SYS58640:PRINT"[154][198]ILENAME? ";:N=16
4105 A$="":POKE198,0:POKE204,0
4110 GETA$:IFA$=""THEN4110
4114 IFA$=CHR$(13)THENPOKE204,1:PRINT" ";:RETURN
4120 IFA$=CHR$(20)THENIFN$<>""THENPOKE204,1:PRINT"[157]  [157][157]";:N$=LEFT$(N$,LEN(N$)-1):GOTO4105
4125 IFN$=""THENIFA$=CHR$(20)THEN4110
4130 IFLEN(N$)=NTHEN4110
4135 POKE204,1:PRINTA$;:N$=N$+A$:GOTO4105
5000 POKE631,19:FORX=632TO632+6:POKEX,13:NEXT:POKE198,7:NEW
7003 ::
7004 REM **** SPRITE-SPEICHER
7005 ::
7010 POKE214,23:POKE211,0:SYS58640:PRINT"[154][211]PRITE SPEICHERN"
7015 N$="":N=1:PRINT"[211]PRITENR. (1-8)? ";:GOSUB4105:IFN$=""THENGOTO7065
7016 X=VAL(N$):IFX<1ORX>8GOTO7065
7020 FORX1=0TO62:POKE15808+(64*(X-1))+X1,PEEK(832+X1):NEXT:GOSUB1095:GOTO299
7030 ::
7050 POKE214,23:POKE211,0:SYS58640:PRINT"[154][211]PRITE EINLESEN"
7055 N$="":N=1:PRINT"[211]PRITENR. (1-8)? ";:GOSUB4105:IFN$=""THENGOSUB1095:GOTO299
7060 X=VAL(N$):FORX1=0TO62:POKE832+X1,PEEK(15808+(64*(X-1))+X1):NEXT
7065 GOSUB1095:SYS49548:GOTO299