Code: Select all
#Scroll roles
1 REM [HEX: \
2A,0C,40,\
11,21,00,\
B7,\
ED,52,\
3A,21,40,\
47,\
C6,EA,\
D8,\
04,\
19,\
10,FD,\
EB,\
21,D7,02,\
ED,4B,0C,40,\
09,\
B7,\
ED,52,\
44,\
4D,\
21,21,00,\
19,\
ED,B0,\
2A,0C,40,\
01,B6,02,\
09,\
22,0E,40,\
3E,21,\
32,39,40,\
3E,02,\
32,3A,40,\
C9 ]
10 FOR A=1 TO 20
20 PRINT AT 20,10;".HELLO WORLD."
30 RAND USR 16514
40 NEXT A
Code: Select all
1 REM P.B.
20 PRINT "SURROUND"
30 INPUT D$
40 CLS
100 FOR I=VAL"1" TO VAL "10"
110 PRINT "««««««««««"
120 NEXT I
130 LET Q=PEEK VAL"16396"+ VAL"256" * PEEK VAL "16397"+ VAL"1"
140 LET T=VAL"0"
150 LET X=VAL"5"
155 LET Y=X
160 PRINT AT Y,X;"*"
165 FOR I=VAL"1" TO VAL"3"
170 LET A=X+INT(RND*VAL"3")-VAL"1"
175 IF A>VAL"9" OR A<VAL"0" THEN GOTO VAL"170"
180 LET B=Y+INT(RND*VAL"3")-VAL"1"
185 IF B>VAL"9" OR B<VAL"0" THEN GOTO VAL"180"
190 IF A=X AND B=Y THEN GOTO VAL"170"
200 PRINT AT B,A;"o"
205 NEXT I
210 INPUT D$
215 IF CODE D$>VAL"36" OR CODE D$<VAL"33" THEN GOTO VAL"400"
220 LET V=X+(D$="8")-(D$="5")
230 LET W=Y+(D$="6")-(D$="7")
240 IF PEEK (Q+V+VAL"11"*W)=VAL"180" THEN GOTO VAL"400"
250 PRINT AT Y,X;"«"
260 LET X=V
270 LET Y=W
280 LET T=T+VAL"1"
290 GOTO VAL"160"
400 CLS
410 PRINT"TIME=";T
420 RUN
Code: Select all
10 LET LASERS=500
20 PRINT TAB 8;"À ALIEN SEARCH À",TAB 8;"----------------",,, TAB 5;" À R. LAWRENCE/S. HAIGH À "
30 PRINT
40 PRINT
50 PRINT
60 PRINT "YOU HAVE TRAPPED AN ALIEN","STAR-FIGHTER WITHIN YOUR","FORCE FIELD.",,,,"YOU HAVE A DEFINED AMOUNT","OF LASER BOLTS TO SEEK","OUT AND DESTROY HIM."
70 PRINT
80 PRINT
90 PRINT "SET FORCE FIELD STRENGTH"
100 INPUT S
110 CLS
120 LET N=INT(5+RND*(S/4))
130 PRINT AT 20,0;"YOU HAVE ";N;" PRIMED LASER GUNS"
140 LET D=1
150 LET A=INT(RND*S)
160 LET B=INT(RND*S)
170 LET C=INT(RND*S)
180 SCROLL
190 PRINT "ATTEMPT ";D
200 SCROLL
210 PRINT "INPUT ÀNORTH-SOUTHÀ ";TAB 23;
220 INPUT X
230 PRINT X
240 SCROLL
250 PRINT "INPUT ÀEAST-WESTÀ ";TAB 23;
260 INPUT Y
270 PRINT Y
280 SCROLL
290 PRINT "INPUT ÀRANGEÀ ";TAB 23;
300 INPUT Z
310 PRINT Z
320 SCROLL
330 LET W=(X-A) OR (Y-B) OR (Z-C)
340 IF W=0 THEN GOTO 430
350 GOTO 670
360 GOSUB LASERS
370 LET D=D+1
380 IF D>N THEN GOTO 400
382 PAUSE 4E4
385 CLS
390 GOTO 180
400 FAST
402 PAUSE 100
403 POKE 16437,255
405 CLS
407 SLOW
410 PRINT TAB 12;"URGENT",,,,"BATTLE COMPUTERS REPORT THAT","ALL LASER GUNS NOW FIRED",,,"ALIEN STAR-FIGHTER HAS SHOWN","ITSELF AT",,"NORTH-SOUTH ",A,"EAST-WEST",B,"DISTANCE",C,,,"BUT IT IS NOW ESCAPING"
420 STOP
430 IF D=1 THEN GOTO 470
440 SCROLL
450 PRINT " ÀBOOMÀ YOU TOOK ";D;" SHOTS"
460 STOP
470 SCROLL
480 PRINT " ÀBOOMÀ YOU TOOK ";D;" SHOT"
490 STOP
500 REM LASERS
510 SCROLL
520 PRINT "LASERS ARE SET"
530 SCROLL
540 IF X>A THEN PRINT "NORTH"
550 IF X<A THEN PRINT "SOUTH"
560 IF X=A THEN PRINT "NORTH-SOUTH O.K."
570 SCROLL
580 IF Y>B THEN PRINT "EAST"
590 IF Y<B THEN PRINT "WEST"
600 IF Y=B THEN PRINT "EAST-WEST O.K."
610 SCROLL
620 IF Z>C THEN PRINT "RANGE TOO LONG"
630 IF Z<C THEN PRINT "RANGE TOO SHORT"
640 IF Z=C THEN PRINT "RANGE O.K."
650 SCROLL
660 RETURN
670 SCROLL
675 RAND
680 LET F=INT(RND*30)
690 IF F>4 THEN GOTO 360
700 IF F>=0 AND F<=2 THEN GOTO 760
710 SCROLL
720 PRINT "BATTLE COMPUTER MAL-FUNCTION"
730 LET D=D+1
740 SCROLL
750 GOTO 150
760 SCROLL
770 PRINT "LASER GUN ";D;" HIT BY ALIEN STRIKE"
780 SCROLL
790 SCROLL
800 PRINT "GO ON TO GUN ";D+1
810 SCROLL
820 GOTO 370
Code: Select all
5 PRINT "STEER"; TAB 7 ; "HOURS"; TAB 15;"MINUTES"
10 INPUT A
20 INPUT B
30 INPUT C
40 INPUT D
50 INPUT E
60 IF B<A THEN GOTO 90
70 LET S = B-A
80 GOTO 100
90 LET S = A-B
100 IF S<180 THEN GOTO 120
110 LET S=360-S
120 LET H= (ASN((D*SIN(S/180 * PI))/C))/PI*180
130 IF B<A AND A-B<180 THEN GOTO 170
140 IF A<B AND B-A>180 THEN GOTO 170
150 LET I = INT (A-H)
160 GOTO 200
170 LET I = INT (A+H)
180 IF I<360 THEN GOTO 200
190 LET I=I-360
200 IF I>0 THEN GOTO 220
210 LET I=I-360
220 LET J=((COS(H/180*PI))*C)+((COS(S/180*PI))*D)
230 LET K=(E/J)*60
240 LET L=INT(K/60)
250 LET M=INT K-(60*L)
260 PRINT AT 3,1;I;TAB9;L;TAB 17;M;
Code: Select all
1 REM "TEST"
2 INPUT Z
3 GOTO Z*1000
4 GOSUB 890
5 PRINT AT 0,1;B$;B(1),C$;B(2)
7 PRINT
10 PRINT R;"RUNS"
20 PRINT "FOR ";W;" WICKETS"
25 PRINT
30 PRINT "ENGLAND LEADS BY ";153+R
40 PRINT 0," OVERS"
50 PRINT "EXTRAS"; E
60 PRINT "LAST MAN:"
65 IF W=10 THEN GOTO 350
67 PRINT A$
70 IF LEN A$<32 THEN PRINT
80 PRINT "BOWLERS:"X$,,Y$
81 PRINT
82 IF W<>0 THEN PRINT AT 21,8;"LAST STAND ";LS
84 IF W<>0 THEN PRINT AT 20,8;"THIS STAND ";R-VAL L$ (W)
88 PRINT AT 12,0;"£"
95 INPUT Z
99 IF Z=9 AND W=9 THEN GOTO 300
100 IF Z=9 THEN GOTO 200
101 IF Z=5 THEN GOTO 600
103 IF Z=0 THEN GOTO 500
105 IF Z=8 THEN GOTO 150
107 IF Z=7 THEN GOTO 130
109 IF Z=50 THEN GOTO 440
110 LET R=R+Z
115 LET B(S)=B(S)+Z
117 IF Z=1 OR Z=3 OR Z=-1 OR Z=-3 THEN GOTO 225
120 GOTO 5
130 LET O=O+1
140 GOTO 9000
150 LET E=E+1
160 LET R=R+1
170 GOTO 5
205 LET W=W+1
207 IF W=1 THEN LET LS=R
208 IF W<>1 THEN LET LS=R-VAL L$(W-1)
210 INPUT A$
215 LET L$(W)=STR$ R
217 LET B(S)=0
219 IF S=1 THEN INPUT
220 IF S=2 THEN INPUT
223 GOTO 4
225 IF S=1 THEN GOTO 400
230 LET S=1
235 PLOT 0,43
240 UNPLOT 30,43
245 IF A=1 THEN RETURN
250 GOTO 5
300 LET W=W+1
305 INPUT A$
310 GOTO 5
350 INPUT Z
360 GOTO 5000
400 LET S=2
403 PLOT 30,43
407 UNPLOT 0,43
408 IF A=1 THEN RETURN
410 GOTO 5
440 IF INKEY$="" OR INKEY$=CHR$ 118 THEN GOTO 440
442 IF INKEY$="T" THEN LET H$="TEA"
443 IF INKEY$="S" THEN LET H$="STUMPS"
444 IF INKEY$="R" THEN LET H$="RAIN"
445 IF INKEY$="B" THEN LET H$="BAD LIGHT"
446 IF INKEY$="N" THEN LET H$="NEW BALL"
447 IF INKEY$="D" THEN LET H$="DRINKS"
448 IF INKEY$="E" THEN LET H$="£££££££££"
458 PRINT AT 3,16;H$
460 GOTO 5
500 INPUT Z$
510 IF BS=1 THEN LET X$=Z$
530 IF BS=2 THEN LET Y$=Z$
540 GOTO 4
600 INPUT Z
605 LET E=E+Z
610 LET R=R+Z
620 IF Z=1 OR Z=-1 OR Z=3 OR Z=-3 THEN GOTO 225
630 GOTO 5
900 FOR N=0 TO 21
910 PRINT AT N,0;"££££££££££££££££££££££££££££££££"
920 NEXT N
930 GOSUB 6000
940 RETURN
4990 STOP
5000 LET W=0
5010 LET R=0
5015 CLS
5020 LET O=0
5030 LET E=0
5040 LET A$=""
5042 LET S=1
5047 LET BS=1
5050 PRINT "BATSMAN?"
5060 INPUT B$
5080 INPUT C$
5090 DIM B(2)
5100 DIM L$(10,3)
5110 PRINT "BOWLERS?"
5120 INPUT X$
5130 INPUT Y$
5140 GOTO 4
6000 PRINT AT 14,0;"FALL OF WICKETS"
6100 LET A=2
6110 RETURN
9010 IF BS=1 THEN GOTO 9060
9020 LET BS=1
9030 PLOT 30,21
9040 UNPLOT 30,90
9050 IF A=1 THEN RETURN
9055 GOTO 255
9060 LET BS=2
9070 PLOT 30,19
9080 UNPLOT 30,21
9090 IF A=1 THEN RETURN
9100 GOTO 225
9990 SAVE"CRICKET1"Code: Select all
5 REM "TEST"
10 PRINT AT 0,0;R;" RUNS"
20 PRINT W;" WICKETS"
30 PRINT "RUNS REQUIRED ";R-130 (OR ENGLAND LEADS BY)
40 PRINT O;" OVERS"
50 PRINT "EXTRAS ";E
60 PRINT "LAST MAN";A$
70 PRINT "LAST WICKET ";LW
80 PRINT "BOWLERS;", B$,,C$
90 INPUT Z
100 IF Z=9 THEN GOTO 200
105 IF Z=7 THEN GOTO 130
107 IF Z=8 THEN GOTO 150
110 LET R=R+Z
120 GOTO 1
130 LET O=O+1
140 GOTO 1
150 LET E=E+1
160 LET R=R+1
170 GOTO 1
200 LET W=W+1
210 INPUT A$
215 LET LW=R
220 GOTO 1
9990 SAVE"CRICKET2"Code: Select all
1 REM EXPANDER
9000 PRINT "HOW MANY BYTES REQUIRED?"
9010 INPUT N
9020 LET L1= PEEK 16511+256*PEEK 16512
9030 LET L2= PEEK (L1+16515)+256*PEEK (L1 + 16516)
9040 LET L3= L1+L2+4
9050 LET X= INT (L3/256)
9060 POKE 16511,L3-256*X
9070 POKE 16512,X
9080 POKE L1+16512,0
9090 IF L1+L2+2<N THEN GOTO 9020
9100 POKE 16514,118
9110 POKE 16515,118
9120 PRINT "REM LENGTH =";L3-2;"BYTES"
Code: Select all
1 REM [HEX: 0E,16,06,20,3E,80,D7,10,FD,3E,3B,17,D7,0D,20,F2,C9 ]
2 POKE 16515,9
3 POKE 16517,32
4 POKE 16519,128
5 RAND USR 16514
6 PRINT AT 12,0;
7 POKE 16515,9
8 POKE 16517,32
9 POKE 16519,128
10 RAND USR 16514
11 PRINT AT 10,10;"HELLO WORLD"
Code: Select all
99 REM INITIALISE
101 DIM Q$(2000)
110 LET L=2
140 LET P=1
150 LET A$="AN ELEPHANT"
160 LET NFB=1
170 LET C=0
172 GOTO 2000
175 REM WRITE INTO Q$
180 LET Q$(NFB)=CHR$ LEN A$
190 LET Q$(NFB+1 TO NFB+LEN A$)=A$
195 LET NFB=NFB+1+LEN A$
200 LET C=C+1
205 LET N=C
210 RETURN
499 REM READ FROM Q$
500 LET P=1
505 LET S=C
510 LET S=S-1
520 IF S<=0 THEN GOTO 550
530 LET P=P+1+CODE Q$(P)
540 GOTO 510
550 LET Z$=Q$(P+1+CODE Q$(P)+P)
560 RETURN
1000 PRINT "HAVE YOU THOUGHT OF AN ANIMAL?"
1005 LET C=N-1
1010 INPUT A$
1020 IF CODE A$=62 THEN GOTO 1040
1030 GOTO 1010
1040 IF C<1 THEN LET C=0
1044 GOSUB 500
1045 IF C=0 THEN GOTO 2117
1047 CLS
1050 PRINT ,,TAB 0;Z$;
1060 INPUT A$
1070 LET C=C+1
1080 GOSUB 500
1090 IF CODE A$=CODE Z$ THEN GOTO 1120
1100 LET C=C-4
1110 GOTO 1040
1120 LET C=C-2
1130 GOSUB 500
1140 PRINT ,,TAB 0;"IS IT ";Z$;"?"
1150 INPUT A$
1160 IF CODE A$<>62 THEN GOTO 1200
1170 PRINT ,,TAB 0;"ARENÀT I CLEVER?"
1175 FOR I=1 TO 35
1176 NEXT I
1180 GOTO 3000
1200 LET C=N
1210 GOTO 2170
2000 GOSUB 180
2005 CLS
2010 PRINT "HAVE YOU THOUGHT OF AN ANIMAL?"
2090 INPUT A$
2100 IF CODE A$=62 THEN GOTO 2115
2110 GOTO 2090
2115 GOSUB 500
2117 PRINT
2120 PRINT TAB 0;"IS IT ";Z$;"?"
2130 INPUT A$
2140 IF CODE A$<>62 THEN GOTO 2170
2145 PRINT
2150 PRINT "ARENÀT I CLEVER?"
2155 FOR H=1 TO 50
2156 NEXT H
2160 GOTO 3000
2170 PRINT
2180 PRINT "WHAT WAS IT?"
2190 INPUT A$
2195 LET Y$=A$
2200 PRINT ,,"WHAT QUESTION COULD I ASK TO DISTINGUISH BETWEEN ";A$;TAB 0;"AND ";Z$;"?"
2210 INPUT A$
2215 GOSUB 180
2220 PRINT ,,"WHAT WOULD THE ANSWER BE FOR ";TAB 0;Y$;"?"
2230 INPUT A$
2235 GOSUB 180
2240 GOTO 3000
3000 CLS
3010 PRINT AT 8,3;"MAY I TRY AGAIN?"
3020 INPUT Z$
3029 CLS
3030 IF CODE Z$=62 THEN GOTO 1000
3499 REM SAVE
3500 CLS
3510 PRINT AT 8,5;"PLEASE PREPARE THE TAPE TO SAVE MY NEW INFORMATION."
3520 PRINT ,,TAB 5;"PRESS NEWLINE WHEN YOU ARE READY"
3525 IF INKEY$="" THEN GOTO 3525
3530 SAVE "ANIMALS"
3535 CLS
3540 GOTO 1000