8-Bit Software Online Conversion
Snakes and Ladders - Listing
10REM SNAKES & LADDERS 1
20REM JAMES M.CAVANAGH
30REM 30-Oct-1993 05:48:02
40ONERRORMODE7:VDU7:REPORT:PRINT" at
line ";ERL:END
50H%=0:J%=0
60MODE2:VDU23;8202;0;0;0;
70*FX11,0
80*FX9,10
90*FX10,10
100ENVELOPE1,1,1,1,-1,10,10,20,0,0,-1,
-2,126,100
110ENVELOPE2,5,10,-10,10,3,3,3,0,-1,-2
,-3,126,126
120VDU23,224,0,0,4,2,255,2,4,0,23,225,
0,0,32,64,255,64,32,0,23,226,126,249,249
,175,3,83,255,255,23,227,126,159,159,245
,192,202,255,255,23,229,15,15,31,61,60,1
20,96,128,23,228,240,240,248,124,60,22,6
,1,23,230,0,0,0,24,24,0,0,0
130VDU23,&E7,&1C,&2A,&1C,&00,&3E,&49,&
14,&14,19,0,2,0,0,0,0,23,232,0,0,0,0,0,0
,24,24,23,233,24,24,0,0,0,0,0,0,23,234,0
,0,96,96,96,96,0,0,23,235,0,0,6,6,6,6,0,
0,23,236,192,192,192,192,0,0,24,24,23,23
7,24,24,0,0,3,3,3,3
140VDU23,238,195,195,195,195,0,0,0,0,2
3,239,0,0,0,0,195,195,195,195,23,240,195
,195,195,195,0,0,24,24,23,241,24,24,0,0,
195,195,195,195,23,242,195,195,195,195,0
,0,195,195,23,243,195,195,0,0,195,195,19
5,195
150COLOUR5:PRINTTAB(1,4)"SNAKES AND LA
DDERS"
160COLOUR6:PRINTTAB(2,8);"LOADING PART
TWO"
170COLOUR8:PRINTTAB(4,14);"PLEASE WAIT
!"
180COLOUR1:PRINTTAB(2,18)"James M.Cava
nagh"
190PRINTTAB(6,20)"(c) 1993"
200A=INKEY(200)
210IF PAGE>&E01 THEN PAGE=&1100
220CHAIN"LADDER"