Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/snakes_and_ladders-sector.ccvf'

1 REM K
10 REM  MENU PROGRAM
20 REM  V1	28/6/81
30 REM  BY GREG HUBBARD
40 REM  PHONE (03)241-7094
50 REM  (C) COPYRIGHT 1981
100 PLOT 27,24,6,1,12,15,29
110 GOSUB 1000:GOTO 60000
120 TM= PEEK (32940)+ PEEK (32941)* 256+ 1
130 POKE TM+ 4,0
140 FOR I= 0TO 2:POKE TM,125:POKE TM+ 2,200
150 XX= CALL (0):NEXT I
160 POKE TM,93:POKE TM+ 2,255:POKE TM+ 3,1
170 XX= CALL (0)
180 GOTO 2000
1000 REM
1010 PLOT 2,0,0,242,127,0,127,127,0,127,0,0,255,6,11,14
1020 FOR I= 0TO 6:PLOT 3,0,I,11:NEXT I
1030 PLOT 3,9,2:PRINT "tef  {jd  a b  {jd  {jd  teu eene en  tef  cjf"
1040 PLOT 3,9,4:PRINT "v}  a |  vw  ld  ld  vw   a  l  vi  gd"
1050 PLOT 3,25,6:PRINT "P R E S E N T S":PLOT 6,3
1060 RETURN
2000 PLOT 3,7,10:PRINT "~a   cf pb tu bh {e cf   cd   a  tu nu nu {e {d cf"
2010 PLOT 3,7,11:PRINT "l e gd as no a| l gd   cx   l no lw lw l a| gd"
2020 PLOT 3,7,14:PRINT "hd   a  {e pq tu pb tu nu {e   cf en tu pb nu"
2030 PLOT 3,7,15:PRINT "y e l l ab vw as no lw l   gd  a no as lw"
2040 PLOT 3,7,18:PRINT "ez   en en pq {e   cf en tf pb tu en ab {d {e cf"
2050 PLOT 3,7,19:PRINT "gd e  a l ab l   gd l v} as no  a vw a| l gd"
3000 PLOT 14,3,12,25:PRINT "ENTER SELECTION BY NUMBER... ";
3010 XX= CALL (0):CH= CALL (2)
3020 IF CH> 48AND CH< 52THEN PRINT CHR$ (CH)
3030 IF CH= 27THEN PLOT 15,6,2,12:LOAD "MENU2":RUN :END
3040 IF CH= 49THEN LOAD "SAL":RUN
3050 IF CH= 50THEN LOAD "LEM":RUN
3060 IF CH= 51THEN LOAD "TSIM":RUN
9999 PRINT " ":GOTO 3000
60000 REM LOAD MACHINE LANGUAGE
60010 TM= PEEK (32940)+ PEEK (32941)* 256
60020 IF TM> 65500THEN 60060
60030 POKE TM+ 1,50:POKE TM+ 3,15
60040 A= 0:FOR N= TM+ 176TO TM+ 182:A= A+ PEEK (N):NEXT
60050 IF A= 1445THEN 60130
60060 AD= 32940:TM= TM- 200:DA= TM:GOSUB 60140:CLEAR 100
60070 TM= PEEK (32940)+ PEEK (32941)* 256
60080 RESTORE 60210
60090 FOR N= 1TO 200:READ A:IF A> 255THEN N= 220:GOTO 60120
60100 IF A< 0THEN DA= TM- A:AD= TM+ N:GOSUB 60140:GOTO 60120
60110 POKE TM+ N,A
60120 NEXT
60130 AD= 33283:DA= TM+ 8:GOSUB 60140:GOTO 120
60140 Z1= INT (DA/ 256):Z2= DA- Z1* 256
60150 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN
60200 REM        MACHINE LANGUAGE DATA
60210 DATA 50,0,15,0,0,0,0,123,254,0,194,-121,30,8,243
60220 DATA 58,-6,87,58,-7,254,0,194,-33,122,50,-7,42,-1
60230 DATA 34,-49,42,-3,34,-46,33,-22,1,50,0,11,120,177
60240 DATA 194,-51,123,238,2,211,4,95,43,124,181,194
60250 DATA -48,58,-5,254,0,202,-100,61,50,-5,58,-49,130
60260 DATA 50,-49,58,-7,103,122,50,-7,84,195,-45,50,-7
60270 DATA 50,-4,50,-2,62,15,50,-3,62,50,50,-1,251,201
60280 DATA 254,1,194,-158,33,0,0,6,4,14,17,17,128,0,25
60290 DATA 126,17,128,255,25,119,35,0,13,194,-133,17,8
60300 DATA 0,25,5,194,-131,201
60310 DATA 254,2,194,-182,245,229,197,205,36,0,194,-166
60320 DATA 95,175,87,50,255,129,193,225,241,201,201
60330 DATA 300