10 REM SNAKES & LADDERS 1
   20 REM JAMES M.CAVANAGH
   30 REMEVAL30-Oct-1993EVAL05:48:02
   40 ONERRORMODE7:VDU7:REPORT:PRINT" at line ";ERL:END
   50 H%=0:J%=0
   60 MODE2:VDU23;8202;0;0;0;
   70 *FX11,0
   80 *FX9,10
   90 *FX10,10
  100 ENVELOPE1,1,1,1,-1,10,10,20,0,0,-1,-2,126,100
  110 ENVELOPE2,5,10,-10,10,3,3,3,0,-1,-2,-3,126,126
  120 VDU23,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,120,96,128,23,228,240,240,248,124,60,22,6,1,23,230,0,0,0,24,24,0,0,0
  130 VDU23,&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,237,24,24,0,0,3,3,3,3
  140 VDU23,238,195,195,195,195,0,0,0,0,23,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,195,195
  150 COLOUR5:PRINTTAB(1,4)"SNAKES AND LADDERS"
  160 COLOUR6:PRINTTAB(2,8);"LOADING PART TWO"
  170 COLOUR8:PRINTTAB(4,14);"PLEASE WAIT!"
  180 COLOUR1:PRINTTAB(2,18)"James M.Cavanagh"
  190 PRINTTAB(6,20)"(c) 1993"
  200 A=INKEY(200)
  210 IF PAGE>&E01 THEN PAGE=&1100
  220 CHAIN"LADDER"