Swag

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Swag

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 

People

No people associated with this content.

Scroll to Top