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