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"