Source Code
5 REM "SWAG"
10 LET H=0
20 LET X=0
30 LET S=0
40 FOR M=1 TO 15
50 LET A=INT (RND*12)+2
60 LET B=(INT (RND*5))*10
70 PRINT AT 1,1;"\ :%£%£%£%£%£%£%£%£%£%£%£%£\: "
80 FOR Y=1 TO 9
90 PRINT AT Y,A;"%£"
100 IF INKEY$="5" AND X<>0 THEN LET X=X-1
110 IF INKEY$="8" AND X<>11 THEN LET X=X+1
120 PRINT AT 10,X;" \: % \ : "
130 PRINT AT Y,A;" "
140 NEXT Y
150 PRINT AT 10,A;"%£"
160 IF A<>X+2 THEN GOTO 200
170 LET S=S+B
180 PRINT AT 0,2;"SWAG=£";S
190 GOTO 210
200 PRINT AT 10,A;" "
210 NEXT M
220 CLS
230 IF H<S THEN LET H=S
240 PRINT AT 0,12;"HI-SWAG=£";H
250 GOTO 30
260 SAVE "1016%5"
270 LIST
