ZX Spectrum Small Basic Listings Selection v01-220118

1  REM zig-zag game
10 LET x=5
20 FOR a=1 TO 9
30 RESTORE USR 3282
40 LET x=x-2*(INKEY$<>"")*(x>2)+(x<29)
50 PRINT AT 10,x;":"
60 NEXT a
70 PRINT AT 20,29-x;"| |"
80 GO TO 20
___________________________
1 REM bubble run (Ski clone)
10 LET B=0
20 PRINT AT 0,B;"*"
30 LET B=B+(INKEY$="6")-(INKEY$="7")
40 POKE 23692,255
50 LET X=RND*30: PRINT AT 20,X;"O"
60 PRINT AT 21,0: PRINT '
80 GO TO 20
____________________________
1 REM Arrow (Ski clone(ripped from a BASIC code in WOS )v01
10 LET B=0: LET d=0
15 CLS
20 PRINT AT 0,B;"O"
30 LET B=B+(INKEY$="6")-(INKEY$="7")
40 POKE 23692,255: REM stop scroll message
50 LET X=RND*30: PRINT AT 20,X; INK RND*6;"^"
60 PRINT AT 21,0: PRINT '
70 IF  SCREEN$ (0,B)="^" THEN LET d=d+1: PRINT INVERSE 1;"HIT ";d;" TIMES"; INVERSE 0
80 GO TO 20
____________________________
9998 REM 08SIMON.tap BASIC 10liner 2016
1 INPUT "Speed? ";F: LET S=0
2 CLS : LET A=(RND*23)+65: PRINT "Press ";CHR$ A;"   Score:";S
3 PAUSE F: GO SUB 6: IF V=1 THEN LET S=S+1: LET T=3: GO SUB 5: GO TO 2
4 LET T=-3: GO SUB 5: GO TO 1
5 FOR N=0 TO 7: BORDER N: BEEP 0.02,N*T: NEXT N: RETURN
6 IF INKEY$=CHR$ A THEN LET V=1: RETURN
7 IF INKEY$=CHR$ (A+32) THEN LET V=1: RETURN
8 LET V=0: RETURN
____________________________
10 REM BASIC 1liner 20xx -Guess the number Oneliner contest
20 LET X = INT (RND*1000)+1:
30 FOR N=1 TO 1000:
40 INPUT "GUESS NUMBER ";G:
50 PRINT "ROUND=";N;TAB 10;"GUESS=";G,"HIGHER " AND G<X;"LOWER" AND G>X;"RIGHT" AND G=X:
60 IF G<>X THEN NEXT N
70 PRINT "YOU WON" : PAUSE 0:CLS: GO TO 1
____________________________
10 REM Meteroids (Ski)  keys z,m
20 BORDER 1: PAPER 0: INK 7: CLS :
30 LET h=15: LET s=0: POKE 23692,-1:
40 FOR t=1 TO RND*1000:
50 PRINT AT 21,RND*31;"*";AT 21,RND*31;"*";AT 21,RND*31;"*";AT 21,RND*31;"*"'':
60 LET h=h+(INKEY$="m" AND h<31)-(INKEY$="z" AND h>0):
70 IF SCREEN$ (0,h)<>"*" THEN PRINT INK 4;AT 0,h;"V": BEEP .001,20:
80 LET s=s+1:
90 NEXT t:
100 PRINT INVERSE 1; FLASH 1; INK 4;AT 0,h;"V":
110 PRINT AT 1,1;"Congratulations! You survived!": PRINT AT 2,1;"Meteoroids: ";s*4
____________________________