Sinclair ZX80 / ZX81 / Z88 Forums

Crayon21 wrote: ↑Wed Jan 22, 2025 12:20 am no, the idea is to go to certain planets, investigate them (there's an overarching plot of an alien invasion) due to distress calls then move around (p and o) to find the reason. You will find logs (*) and computer terminals (T) that will give more info. eventually, you will need to self destruct all four installations and kill the alien mothership.

still working on it

for now I need a playtest, tell me what works and what doesn't

1 REM [DEC:\
042,012,064,006,024,\
126,254,118,040,005,\
054,000,035,024,246,\
016,251,201,061,042,\
012,064,035,229,017,\
033,000,025,209,001,\
181,002,237,176,213,\
017,033,000,025,001,\
032,000,209,237,176,\
001,000,021,205,245,\
008,201,000,062,022,\
245,205,149,064,241,\
061,040,002,024,246,\
001,000,000,205,245,\
008,201,061,042,012,\
064,035,229,017,179,\
002,025,229,017,033,\
000,025,229,209,225,\
001,181,002,237,184,\
225,006,032,054,000,\
035,016,251,014,000,\
205,245,008,201,061,\
062,022,245,205,203,\
064,241,061,200,024,\
247,061,042,012,064,\
017,248,002,025,062,\
024,245,054,000,001,\
031,000,084,093,019,\
237,176,062,003,006,\
255,016,254,061,032,\
249,017,064,000,237,\
082,241,061,040,002,\
024,225,001,000,000,\
205,245,008,201,000,\
001,000,016,017,131,\
000,042,012,064,175,\
237,082,017,033,000,\
120,128,245,120,254,\
013,048,001,113,241,\
061,040,003,035,024,\
242,062,017,144,087,\
120,198,016,254,029,\
048,005,254,005,056,\
001,113,061,186,040,\
007,213,022,000,025,\
209,024,236,120,128,\
245,120,254,014,048,\
001,113,241,061,040,\
003,043,024,242,062,\
017,144,087,120,198,\
016,254,030,048,005,\
254,006,056,001,113,\
061,186,040,011,245,\
175,213,022,000,237,\
082,209,241,024,232,\
017,034,000,025,016,\
157,001,000,000,205 ]

5 SLOW
10 PRINT AT 0,0;"«««clear‘screen«demonstration«««"
20 PRINT ,,,,"1. ZAP",,"2. FLASH ZAP",,"3. UP SCROLL",,"4. DOWN SCROLL",,"5. UP WIPE",,"6. DOWN WIPE",,"7. CENTER WIPE",,"8. FLASH WIPE",,"9. STAR WARS",,,,"0. STOP"
30 LET E$= " "
35 LET Z$=INKEY$
40 IF Z$="0" THEN STOP
45 IF Z$<"1" OR Z$>"9" THEN GOTO 35
60 GOSUB 1000
80 GOSUB 100*VAL Z$
90 RUN
100 REM zap = USR 16514
105 REM FILL CHAR. = POKE 16525
110 REM NO.LINES+1 = POKE 16518
120 POKE 16525,0
130 LET L=USR 16514
140 RETURN
200 REM flash‘zap
210 POKE 15525,128
220 LET L=USR 16514
230 GOTO 120
300 REM up‘scroll
310 REM SCROLL COMAND=USR 16532
320 REM UP SCROLL CLS=USR 16557
330 POKE 16418,0
340 PRINT AT 23,0;"not«copyright«by«frednachbaur«"
345 LET L=USR 16567
350 PRINT AT 23,0;E$
355 IF INKEY$="" THEN GOTO 355
360 PRINT AT 22,0;E$
370 POKE 16418,2
380 LET L=USR 16567
390 RETURN
400 REM down«scroll
405 REM DN SCROLL COMMAND=16587
406 REM FILL CHAR. = POKE 16613
407 REM DN SCROLL CLS=USR 16624
410 LET L=USR 16624
500 REM up‘wipe =USR 16636
505 REM FILL CHAR. = POKE 16647
510 LET L=USR 16636
520 RETURN
600 REM down‘wipe (NORMAL CLS)
610 CLS
620 RETURN
700 REM center‘wipe =USR 16684
705 REM FILL CHAR. = POKE 16685
710 POKE 16685,0
720 LET L=USR 16684
730 RETURN
800 REM flash«wipe
810 POKE 16585,123
820 LET L=USR 16534
830 GOTO 710
900 REM starwars
905 LET A$="«–»´’*."
906 REM INV.SPACE:INV.PERIOD GR.ON T:GR.ON G:INV.ASTERISK-ASTERISK:PERIOD - OR ANY OTHER PRINTABLE CHARACTERS
910 FOR A=1 TO LEN A$
920 POKE 16685,CODE A$(A)
930 LET L=USR 16684
940 POKE 16525,CODE A$(LEN A$-A+1)
950 LET L=USR 16514
960 POKE 16685,0
970 LET L=USR 16684
980 NEXT A
985 GOSUB 300
990 RETURN
1000 PRINT AT 0,0;
1010 LET F$="SCREEN FILL****screenfill’’’ "
1020 FOR A=1 TO 23
1030 PRINT F$;
1040 NEXT A
1045 POKE 16418,0
1050 PRINT F$( TO 14);TAB 5;"ANY KEY TO CLEAR SCREEN"
1055 POKE 16418,2
1060 IF INKEY$="" THEN GOTO 1060
1070 RETURN
9000 REM «decimal«loader«
9005 FAST
9010 FOR A=16514 TO 16802
9020 IF A<>16690 THEN GOTO 9090
9030 POKE 16418,0
9040 PRINT AT 23,0;"any«key•enter«    «to«continue–"
9050 POKE 16418,2
9055 PAUSE 4E4
9060 INPUT C
9070 IF C<>9999 THEN GOTO 9030
9080 CLS
9090 INPUT B
9100 POKE A,B
9110 PRINT (STR$ (1000+PEEK A)) (2 TO);":";
9120 NEXT A
9999 SAVE"CLEAR-SCREEN"