Is a part of release: | Moritz Strikes Back |
File size: | 26624 |
md5: | 805fc4d4b0cbfe39a068ebe4689553aa |
0 REM ! LET <>"CHR$ / STEP I] NEXT GO SUB {=/ LLIST ! RESTORE !v RESTORE CLEAR THEN INKEY$PEEK *O/ FOR LINE ]! LPRINT Z6G, CLS ! FOR ] POKE P RESTORE MERGE ~▜o&))~# IF MOVE LLIST # DIM v RETURN © GO SUB x THEN _( OUT GO SUB x THEN g INPUT 2ASN ] STEP LINE ] STEP BRIGHT ]S STEP BRIGHT ]>ATN (>ACS 2▛ABS CLS > OPEN # RETURN vvvCODE OPEN # RETURN <> CLS vCODE OPEN # RETURN ! COPY Z RETURN Z COPY w GO SUB LN <>!d/ STEP =NOT dCHEAT (Y/N)? TRD by tiboh'22
10 CLEAR VAL "25599": RANDOMIZE USR VAL "23872"
15 BORDER NOT PI: PAPER NOT PI: INK VAL "7"
40 POKE VAL "23606",VAL "192": POKE VAL "23607",VAL "142": PAUSE NOT PI: PAUSE NOT PI
64 CLS : LET k=VAL "11": PRINT INK VAL "4";AT VAL "9",k;"1 EASY"; INK VAL "6";AT VAL "12",k;"2 MEDIUM"; INK VAL "2";AT VAL "15",k;"3 HARD": POKE VAL "48549",VAL "177": POKE VAL "48550",VAL "187": POKE VAL "51445",VAL "46": POKE VAL "51446",VAL "28"
65 LET k=CODE INKEY$-CODE "0": IF k<=NOT PI OR k>INT PI THEN GO TO VAL "65"
66 POKE VAL "48005",VAL "8-2*k": IF k = 1 THEN POKE VAL "48549",VAL "117" : POKE VAL "48550",VAL "188"
67 CLS : LET k=VAL "11": PRINT INK VAL "5";AT VAL "12",k;"4 KEYBOARD"; INK VAL "3";AT VAL "15",k;"5 SINCLAIR"
68 IF INKEY$="4" THEN POKE 50501,37: POKE 50502,38: POKE 50503,26: POKE 50504,34: POKE 50505,16: POKE 50506,32: POKE 50507,1: GO TO 71
69 IF INKEY$="5" THEN POKE 50501,27: POKE 50502,19: POKE 50503,3: POKE 50504,11: POKE 50505,35: GO TO 71
70 GO TO 68
71 RANDOMIZE USR VAL "27060"
80 RANDOMIZE USR VAL "33805"
90 PAUSE NOT PI
110 PRINT #0,AT 1,0; INK 2; PAPER 0;" "; INK 6; PAPER 0;" "; INK 7; PAPER 0;" "
111 POKE VAL "51445",VAL "64": POKE VAL "51446",VAL "20": RANDOMIZE USR VAL "48000"
115
117 IF PEEK VAL "51433"= 3 THEN GO TO VAL "140"
120 PRINT AT VAL "6",VAL "12"; INK 2; FLASH 1;"GAME OVER"
124 PAUSE NOT PI
125 RANDOMIZE USR VAL "26840"
128 GO TO VAL "63"
140 RANDOMIZE USR VAL "30850"
142 PAUSE VAL "100"
150 GO TO VAL "63"