Hampsons Plane

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

Appears on

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

Gallery

Hampsons Plane

Source Code

   1 REM HAMPSONS PLANE
  10 PRINT TAB 7;"HAMPSONS PLANE"
  20 PRINT 
  21 PRINT "MOVES SHOULD BE ENTERED AS      LETTER,NUMBER,ENTER"
  23 PRINT 
  30 PRINT "ENTER SKILL LEVEL"
  39 REM %A%P%P%L% %M%O%V%E
  40 INPUT S
  50 CLS 
  60 PRINT "  ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  70 FOR Z=1 TO 20
  80 IF Z<10 THEN PRINT " ";
  90 PRINT Z;"++++++++++++++++++++++++++";Z
 100 NEXT Z
 101 PRINT "  ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 103 FOR W=1 TO 1
 106 NEXT W
 110 LET D=0
 120 LET P=0
 125 LET V=0
 130 LET X=0
 140 LET Y=0
 150 DIM K$(3)
 160 DIM A(9)
 170 LET A(1)=-34
 180 LET A(2)=-33
 190 LET A(3)=-32
 200 LET A(4)=-1
 210 LET A(5)=0
 220 LET A(6)=1
 230 LET A(7)=32
 240 LET A(8)=33
 250 LET A(9)=34
 259 REM %D%I%S%P%L%A%Y% %F%I%L%E
 260 LET D=PEEK 16396+256*PEEK 16397
 265 RAND 
 269 REM %S%C%R%A%M%B%L%E% %B%O%A%R%D
 270 FOR W=1 TO 5
 280 LET X=INT (RND*24)+4
 290 LET Y=INT (RND*18)+2
 300 GOSUB 400
 310 NEXT W
 319 REM %G%E%T% %M%O%V%E
 320 INPUT K$
 330 LET X=CODE (K$)-35
 340 LET Y=VAL K$(2 TO )
 349 REM %C%H%E%C%K% %M%O%V%E
 350 IF X<4 OR X>27 OR Y<2 OR Y>19 THEN GOTO 320
 360 GOSUB 400
 370 GOTO 320
 400 FOR Z=1 TO 9
 410 LET P=D+Y*33+X+A(Z)
 415 LET V=PEEK (P)
 420 LET V=V-128*(V=149)+128*(V=21)
 425 POKE P,V
 430 NEXT Z
 440 RETURN 
 500 SAVE "1013%8"
 600 RUN 

People

No people associated with this content.

Scroll to Top