0 IFPEEK(1000)=222THEN5
1 IFX=0THENX=1:LOAD"(1)",8,1
2 IFX=1THENX=2:LOAD"(2)",8,1
3 IFX=2THENX=3:LOAD"(3)",8,1
4 IFX=3THENX=4:LOAD"(5)",8,1
5 POKE1000,222:GOSUB1100
6 POKE24653,28:POKE55,0:POKE56,76:CLR
8 POKE646,PEEK(700):PRINT"[147]"CHR$(8):SYS24000,1024,2023,34000,55
9 SYS24000,55296,56295,35000,55
10 POKE53265,0:POKE53283,PEEK(701):POKE53282,PEEK(702)
11 DIMF$(16):POKE49570,52
12 FORT=0TO15:READF$(T):NEXT:DATA"SCHWARZ  ","WEISS    ","ROT      ","TUERKIS  "
13 DATA"VIOLETT  ","GRUEN    ","BLAU     ","GELB     ","ORANGE   ","BRAUN    "
14 DATA"HELLROT  ","GRAU 1   ","GRAU 2   ","HELLGRUEN","HELLBLAU ","GRAU 3   "
15 SYS49158:PRINT"[147]":POKE53280,5:POKE53248+27,0:POKE888,6:POKE679,200
16 FORT=0TO3:READHH(T):NEXT:DATA64,16,4,1:POKE24583,188:POKE24584,2
17 FORT=0TO7:READHL(T):NEXT:DATA128,64,32,16,8,4,2,1:POKE678,0
18 FORT=0TO3:READLH(T):NEXT:DATA192,48,12,3
19 FORT=0TO3:READVV$(T):NEXT:DATA".   "," .  ","  . ","   ."
20 PRINT"[147]";:POKE49554,138:FORT=0TO7:READQ:POKE20000+T,Q:NEXT
21 DATA238,221,187,119,238,221,187,119:FORT=0TO3:READLL(T):NEXT:DATA128,32,8,2
22 PRINTTAB(8)"  "TAB(18)"  [158]MENUE..[158]F1 [158]YSPIEGELN"
23 PRINTTAB(8)"  "TAB(18)"  [158]KOPIEREN. [158]XSPIEGELN"
24 PRINTTAB(8)"  "TAB(18)"  [158]NORDEN... [158]DREHEN..."
25 PRINTTAB(8)"  "TAB(18)"  [158]SUEDEN...[176][192][192][192][192][192][192][192][192][192]"
26 PRINTTAB(8)"  "TAB(18)"  [158]OSTEN....[221][158]F1 EDITOR"
27 PRINTTAB(8)"  "TAB(18)"  [158]WESTEN...[221][158]F3 PLAN.."
28 PRINTTAB(8)"  "TAB(18)"  [158]INVERSE..[221][158]F5 FARBEN"
29 PRINTTAB(8)"  "TAB(18)"  [158]LOESCHEN.[221][158]F7 DISK.."
30 PRINT"    .            [164]                     "
31 PRINT"MUL:[154][165][165][165][159][146][165][165] SIGN >[167][146][154]@[180] JOYSTICK<->CRSR    "
32 PRINT"    123H         [163]                     [144]":POKE51200,0
33 FORT=0TO10:POKE52263+T*40,160:NEXT
34 FORT=0TO39:POKE53184+T,160:NEXT
36 SYS49152,0:POKE53265,27:POKE650,128
38 SYS24000,20000,20007,58368,55
40 POKE53269,0:POKE722,0:POKE2,11:SYS24576
41 T=PEEK(203)
42 IFT=4THEN50
43 IFT=5THEN600
44 IFT=6THEN400
45 IFT=3THEN700
46 GOTO40
50 :
80 PRINT"[158]";:POKE53248+27,255
95 H=0:IFPEEK(679)=200THENH=10
96 PRINTTAB(H)"@@[146]    @@"
97 PRINTTAB(H)"@[146]  @@[146]  @"
98 PRINTTAB(H)"@@@@@[146]  @"
99 PRINTTAB(H)"@@@@[146]  @@"
100 PRINTTAB(H)"@@@[146]  @@@"
101 PRINTTAB(H)"@@@[146]  @@@"
102 PRINTTAB(H)"@@@@@@@@"
103 PRINTTAB(H)"@@@[146]  @@@":POKE198,0:T=PEEK(52601)
104 GETA$:IFA$=""THEN104
105 IFA$=" "ORA$=CHR$(13)THENSYS49152,T:GOTO40
106 POKE53269,3:POKE646,PEEK(700):PRINT""TAB(17)A$:POKE53248+27,0
110 T=PEEK(52601):SYS49152,T:Z=36864+T*8
111 IFPEEK(679)=216THEN200
112 JO=56320
115 SYS49194
117 IF(PEEK(JO)AND16)=0ORPEEK(203)=1THENSYS49191,Z+PEEK(683),HL(PEEK(682)):GOSUB160
120 A$=""
121 GETA$
122 IFA$=""THEN149
123 IFA$="M"ORA$="[133]"THENPOKE50432,69:GOTO40
125 IFA$="K"THENGOSUB310
127 IFA$="N"THENSYS49170,PEEK(52601)
130 IFA$="S"THENSYS49173,PEEK(52601)
132 IFA$="W"THENSYS49176,PEEK(52601)
135 IFA$="O"THENSYS49179,PEEK(52601)
137 IFA$="I"THENSYS49155,PEEK(52601)
140 IFA$="L"THENSYS49185,PEEK(52601)
141 IFA$="Y"THENSYS49164,PEEK(52601)
143 IFA$="X"THENSYS49167,PEEK(52601)
145 IFA$="D"THENSYS49182,PEEK(52601)
149 IFPEEK(679)=216THEN251
150 GOTO115
160 SYS49152,PEEK(52601):RETURN
200 :
212 JO=56320
215 SYS49197
217 IF(PEEK(JO)AND16)=0ORPEEK(203)=1THENGOSUB270:GOSUB260
250 GOTO120
251 IFA$=""THEN215
252 IFA$="1"THENPOKE678,0:PRINT""TAB(4)VV$(PEEK(678))
253 IFA$="2"THENPOKE678,1:PRINT""TAB(4)VV$(PEEK(678))
254 IFA$="3"THENPOKE678,2:PRINT""TAB(4)VV$(PEEK(678))
255 IFA$="H"THENPOKE678,3:PRINT""TAB(4)VV$(PEEK(678))
259 GOTO215
260 SYS49152,PEEK(52601):RETURN
270 T=PEEK(680):S=PEEK(678):E=Z+PEEK(681):IFS<>0THEN280
275 POKE50432,5:SYS49191,E,LH(T)
276 RETURN
280 IFS<>1THEN290
285 POKE50432,37:SYS49191,E,255-LH(T):POKE50432,5:SYS49191,E,LL(T)
286 RETURN
290 IFS<>2THEN300
295 POKE50432,37:SYS49191,E,255-LH(T):POKE50432,5:SYS49191,E,HH(T)
296 RETURN
300 :
306 POKE50432,37:SYS49191,E,255-LH(T)
307 RETURN
310 PRINT"[158]";:POKE53248+27,255
312 H=0:IFPEEK(679)=200THENH=10
315 PRINTTAB(H)"@@[146]    @@"
317 PRINTTAB(H)"@[146]  @@[146]  @"
320 PRINTTAB(H)"@@@@@[146]  @"
322 PRINTTAB(H)"@@@@[146]  @@"
325 PRINTTAB(H)"@@@[146]  @@@"
327 PRINTTAB(H)"@@@[146]  @@@"
330 PRINTTAB(H)"@@@@@@@@"
332 PRINTTAB(H)"@@@[146]  @@@":POKE198,0:T=PEEK(52601)
335 GETA$:IFA$=""THEN335
340 POKE646,PEEK(700):PRINT""TAB(17)A$:POKE53248+27,0
342 S=PEEK(52601):POKE52601,T:SYS49161,S,T:A$="":RETURN
400 POKE53265,0:SYS24000,52224,53223,30000,55:SYS24000,55296,56295,31000,55
405 POKE53269,0:PRINT"[158]";
407 PRINT" [158]                                      "
410 PRINT" [158]  M[158]ULTICOLORMODUS...: AUS             "
412 PRINT" [158]  1[158].FARBE...........: 6               "
415 PRINT" [158]  2[158].FARBE...........: 14              "
417 PRINT" [158]  3[158].FARBE...........: 1               "
420 PRINT" [158]  H[158]INTERGRUNDSFARBE : 12              "
422 PRINT" [158]                                      "
425 PRINT" [158]  Z[158]EICHENMODUS......: GROSS/GRAFIK    "
427 PRINT" [158]                     (DATENVERLUST!)  "
430 PRINT" [158]  F1[158] -> MENUE                         "
432 PRINT"                                       "
435 POKE646,PEEK(700):PRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789\@*"
440 POKE31364,PEEK(700):POKE31365,PEEK(701):POKE31366,PEEK(702)
442 POKE31377,PEEK(700):POKE31367,PEEK(712)
460 IFPEEK(679)=200THENPRINT""TAB(23)"[158]AUS"
462 IFPEEK(679)=216THENPRINT""TAB(23)"[158]AN "
465 PRINT""TAB(23)"[158]   [157][157][157]"F$(PEEK(700)AND15)
467 PRINT""TAB(23)"[158]   [157][157][157]"F$(PEEK(701)AND15)
470 PRINT""TAB(23)"[158]   [157][157][157]"F$(PEEK(702)AND15)
472 PRINT""TAB(23)"[158]   [157][157][157]"F$(PEEK(712)AND15)
475 IFPEEK(49201)=208THENPRINT""TAB(23)"[158]GROSS/GRAFIK"
477 IFPEEK(49201)=216THENPRINT""TAB(23)"[158]KLEIN/GROSS "
478 POKE53248+27,255
480 POKE53265,27
490 GETA$:IFA$=""THEN490
492 IFA$="M"ANDPEEK(679)=200THENPOKE679,216:GOTO435
495 IFA$="M"ANDPEEK(679)=216THENPOKE679,200:GOTO435
497 IFA$="1"THENPOKE700,(PEEK(700)+1)AND15:GOTO435
500 IFA$="2"THENPOKE701,(PEEK(701)+1)AND15:POKE53283,PEEK(701):GOTO435
502 IFA$="3"THENPOKE702,(PEEK(702)+1)AND15:POKE53282,PEEK(702):GOTO435
504 IFA$="H"THENPOKE712,(PEEK(712)+1)AND15:GOTO435
505 IFA$="Z"THEN515
507 IFA$="[133]"THEN510
508 GOTO490
510 POKE53265,0:SYS24000,30000,30999,52224,55:SYS24000,31000,31999,55296,55
511 SYS24000,20000,20007,58368,55:SYS49152,PEEK(52601)
512 POKE53269,3:POKE53265,27:GOTO40
515 PRINT"  IST DAS GANZ SICHER ([158]J/[158]N) ???       "
517 GETA$
519 IFA$="N"THEN530
520 IFA$="J"THEN525
522 GOTO517
525 IFPEEK(49201)=208THENPOKE49201,216:SYS49158:GOTO530
527 IFPEEK(49201)=216THENPOKE49201,208:SYS49158
530 PRINT"                                      "
531 SYS24000,20000,20007,58368,55
532 GOTO435
600 POKE53265,0:SYS24000,52224,53223,30000,55:SYS24000,55296,56295,31000,55
605 PRINT"[147]":POKE53269,0:SYS49188:POKE53281,PEEK(712)
607 SYS24000,34000,34959,52224,55:SYS24000,35000,35959,55296,55
610 POKE53265,27:POKE722,1:POKE2,0:SYS24576
612 POKE53265,0:SYS24000,52224,53183,34000,55:SYS24000,55296,56255,35000,55
615 :PRINT"[147]":SYS24000,30000,30999,52224,55:SYS24000,31000,31999,55296,55
617 POKE53269,3:SYS49458:POKE53265,27:GOTO40
700 POKE53265,0:SYS24000,52224,53223,30000,55:SYS24000,55296,56295,31000,55
705 POKE53265,0:POKE53269,0:PRINT"[158]";
710 PRINT" [158]  F1[158] - ZEICHENSATZ NACHLADEN......... "
712 PRINT" [158]  F2[158] - ZEICHENSATZ SICHERN........... "
715 PRINT" [158]  ----------------------------------- "
717 PRINT" [158]  F3[158] - SPIELPLAN NACHLADEN........... "
720 PRINT" [158]  F4[158] - SPIELPLAN SICHERN............. "
722 PRINT" [158]  ----------------------------------- "
725 PRINT" [158]  F5[158] - DIRECTORY ANZEIGEN............ "
727 PRINT" [158]  F6[158] - DISKBEFEHL SENDEN............. "
728 PRINT" [158]  F7[158] - FARB/BILDSCHIRMPARAMETER SAVEN "
730 PRINT" [158]  F8[158] - ZURUECK INS MENUE............. "
732 PRINT"                                       "
735 PRINT"[158]                                       "
737 PRINT"                                       "
740 POKE52703,160:POKE52743,160:POKE55775,7:POKE55815,5:POKE53265,27
745 GETA$:IFA$=""THEN745
747 IFA$="[133]"THEN900
750 IFA$="[137]"THEN920
752 IFA$="[134]"THEN940
755 IFA$="[138]"THEN950
757 IFA$="[139]"THEN960
760 IFA$="[140]"THEN510
762 IFA$="[136]"THEN970
765 IFA$="[135]"THEN990
799 GOTO745
800 PRINT"[158]";:X=0:N$=""
802 PRINT">[146] [157]";
805 GETA$:IFA$=""THEN805
807 A=ASC(A$)
810 IFA>38ANDA<91THEN820
811 IFA=32THEN820
812 IFA=13THEN825
813 IFA<>20ORX=0THEN805
815 X=X-1:T=LEN(N$):T=T-1:N$=LEFT$(N$,T)
817 PRINT" [157][157][146] [157]";:GOTO805
820 IFX=35THEN805
822 N$=N$+A$:X=X+1:PRINTA$"[146] [157]";:GOTO805
825 PRINT:RETURN
900 REM ZEICH-LADE
901 PRINT"F1"
905 GOSUB800:IFN$=""THEN705
907 SYS49188:SYS57812N$,8:POKE780,0:POKE781,0:POKE782,144:SYS65493
910 SYS24000,36864,37888,57344,55:GOTO1000
920 REM ZEICH-SAVE
921 PRINT"F2"
925 GOSUB800:IFN$=""THEN705
927 SYS49188:SYS57812N$,8:POKE193,0:POKE194,144:POKE174,0:POKE175,148
930 SYS62954:GOTO1000
940 REM SPIEL-LADE
941 PRINT"F3"
945 GOSUB800:IFN$=""THEN705
947 SYS49188:SYS57812N$,8:POKE780,0:POKE781,208:POKE782,132:SYS65493
949 GOTO1000
950 REM SPIEL-SAVE
951 PRINT"F4"
955 GOSUB800:IFN$=""THEN705
957 SYS49188:SYS57812N$,8:POKE193,208:POKE194,132:POKE174,159:POKE175,140
959 SYS62954:GOTO1000
960 REM BEFEHL
961 PRINT"F6"
965 GOSUB800:IFN$=""THEN705
967 SYS49188:OPEN1,8,15,N$:CLOSE1
969 GOTO1000
970 REM PARAMETER
971 PRINT"F7"
977 SYS49188:OPEN1,8,15,"S:(4)":CLOSE1
980 OPEN1,8,2,"(4),S,W"
981 A=PEEK(700):PRINT#1,A
982 A=PEEK(701):PRINT#1,A
983 A=PEEK(702):PRINT#1,A
984 A=PEEK(712):PRINT#1,A
985 A=PEEK(679):PRINT#1,A
986 A=PEEK(49201):PRINT#1,A
988 CLOSE1:GOTO1000
990 PRINT"F5[144]":SYS49188:POKE648,4:POKE56576,151:POKE53272,21
991 PRINT"[147][144]":POKE214,24:SYS58640:SYS19664
992 IFPEEK(203)=64THEN992
993 POKE53265,0:POKE648,204:POKE56576,148:POKE53272,57
994 PRINT"[147]"
995 OPEN1,8,15:INPUT#1,A$,B$,C$,D$:CLOSE1:SYS49458:POKE53269,3:GOTO510
1000 OPEN1,8,15:INPUT#1,A$,B$,C$,D$:CLOSE1
1002 PRINT"[158]  "B$" >>TASTE<<":POKE198,0:SYS49458
1005 GETA$:IFA$=""THEN1005
1007 POKE53269,3:GOTO510
1100 OPEN1,8,2,"(4),S,R"
1101 INPUT#1,A:POKE700,A
1102 INPUT#1,A:POKE701,A
1103 INPUT#1,A:POKE702,A
1104 INPUT#1,A:POKE712,A
1105 INPUT#1,A:POKE679,A
1106 INPUT#1,A:POKE49201,A
1107 CLOSE1
1110 OPEN1,8,15:INPUT#1,A$,B$,C$,D$:CLOSE1
1112 IFA$<>"62"THENRETURN
1115 POKE700,11:POKE701,12:POKE702,15:POKE712,12:POKE679,200:POKE49201,208
1120 RETURN