Appears on
Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.
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