Wang2200.org

Listing of file='BONUS' on disk='vmedia/games.wvd.zip'

# Sector 673, program filename = 'BONUS'
0010 DIM Q6$64
0020 SELECT P1
   : GOTO 80
0030 DEFFN'42(W0,Q6$)
   : IF W0<=0THEN 70
   : IF W0=1THEN 40
   : STR(Q6$,2)=STR(Q6$,1,W0-1)
0040 PRINT Q6$;
   : RETURN
0050 DEFFN'48(Q6,Q7,Q8)
   : GOSUB 70
   : IF Q8<1THEN 60
   : GOSUB 60
   : SELECT PRINT 205
   : Q6$=" "
   : PRINT STR(Q6$,Q7+1)
   : IF Q8<2THEN 60
   : FOR W0=2TO Q8
   : PRINT HEX(0A);STR(Q6$,1)
   : NEXT W0
0060 PRINT HEX(01)
   : GOSUB '42(Q7,HEX(09))
   : GOSUB '42(Q6,HEX(0A))
0070 SELECT PRINT 005(64),CO 005
   : RETURN
0080 PRINT HEX(03)
   : GOSUB '48(14,23,0)
   : PRINT "X"
   : GOSUB '48(13,22,0)
   : PRINT "X"
   : GOSUB '48(12,21,0)
   : PRINT "X"
   : GOSUB '48(11,21,0)
   : PRINT "X"
   : GOSUB '48(10,21,0)
   : PRINT "X"
   : GOSUB '48(9,21,0)
   : PRINT "X"
   : GOSUB '48(8,22,0)
0090 PRINT "X"
   : GOSUB '48(7,23,0)
   : PRINT "X"
   : GOSUB '48(6,23,0)
   : PRINT "X"
   : GOSUB '48(5,24,0)
   : PRINT "X"
   : GOSUB '48(5,25,0)
   : PRINT "X"
   : GOSUB '48(5,26,0)
   : PRINT "X"
   : GOSUB '48(5,27,0)
   : PRINT "X"
   : GOSUB '48(6,28,0)
0100 PRINT "X"
   : GOSUB '48(7,28,0)
   : PRINT "X"
   : GOSUB '48(8,28,0)
   : PRINT "X"
   : GOSUB '48(8,27,0)
   : PRINT "X"
   : GOSUB '48(8,26,0)
   : PRINT "X"
   : GOSUB '48(7,25,0)
   : PRINT "X"
   : GOSUB '48(6,24,0)
   : PRINT "X"
   : GOSUB '48(5,29,0)
0110 PRINT "X"
   : GOSUB '48(5,30,0)
   : PRINT "X"
   : GOSUB '48(5,31,0)
   : PRINT "X"
   : GOSUB '48(5,32,0)
   : PRINT "X"
   : GOSUB '48(6,33,0)
   : PRINT "X"
   : GOSUB '48(7,33,0)
   : PRINT "X"
   : GOSUB '48(8,33,0)
   : PRINT "X"
   : GOSUB '48(9,32,0)
0120 PRINT "X"
   : GOSUB '48(9,31,0)
   : PRINT "X"
   : GOSUB '48(9,30,0)
   : PRINT "X"
   : GOSUB '48(9,29,0)
   : PRINT "X"
   : GOSUB '48(5,34,0)
   : PRINT "X"
   : GOSUB '48(5,35,0)
   : PRINT "X"
   : GOSUB '48(5,36,0)
   : PRINT "X"
   : GOSUB '48(5,37,0)
0130 PRINT "X"
   : GOSUB '48(6,38,0)
   : PRINT "X"
   : GOSUB '48(7,38,0)
   : PRINT "X"
   : GOSUB '48(8,38,0)
   : PRINT "X"
   : GOSUB '48(9,38,0)
   : PRINT "X"
   : GOSUB '48(10,37,0)
   : PRINT "X"
   : GOSUB '48(10,36,0)
   : PRINT "X"
   : GOSUB '48(10,35,0)
0140 PRINT "X"
   : GOSUB '48(10,34,0)
   : PRINT "X"
   : GOSUB '48(9,33,0)
   : PRINT "X"
   : GOSUB '48(5,39,0)
   : PRINT "X"
   : GOSUB '48(5,40,0)
   : PRINT "X"
   : GOSUB '48(5,41,0)
   : PRINT "X"
   : GOSUB '48(5,42,0)
   : PRINT "X"
   : GOSUB '48(6,43,0)
0150 PRINT "X"
   : GOSUB '48(7,43,0)
   : PRINT "X"
   : GOSUB '48(8,43,0)
   : PRINT "X"
   : GOSUB '48(9,42,0)
   : PRINT "X"
   : GOSUB '48(9,41,0)
   : PRINT "X"
   : GOSUB '48(9,40,0)
   : PRINT "X"
   : GOSUB '48(9,39,0)
   : PRINT "X"
   : GOSUB '48(9,47,0)
0160 PRINT "X"
   : GOSUB '48(9,46,0)
   : PRINT "X"
   : GOSUB '48(9,45,0)
   : PRINT "X"
   : GOSUB '48(9,44,0)
   : PRINT "X"
   : GOSUB '48(9,42,0)
   : PRINT " X"
   : GOSUB '48(8,42,0)
   : PRINT "X "
   : GOSUB '48(7,44,0)
   : PRINT "X"
   : GOSUB '48(7,45,0)
0170 PRINT "X"
   : GOSUB '48(7,46,0)
   : PRINT "X"
   : GOSUB '48(7,47,0)
   : PRINT "X"
   : GOSUB '48(7,48,0)
   : PRINT "X"
   : GOSUB '48(7,49,0)
   : PRINT "X"
   : GOSUB '48(7,50,0)
   : PRINT "X"
   : GOSUB '48(7,51,0)
   : PRINT "X"
   : GOSUB '48(8,52,0)
0180 PRINT "X"
   : GOSUB '48(9,52,0)
   : PRINT "X"
   : GOSUB '48(10,52,0)
   : PRINT "X"
   : GOSUB '48(11,51,0)
   : PRINT "X"
   : GOSUB '48(12,50,0)
   : PRINT "X"
   : GOSUB '48(13,46,0)
   : PRINT "X"
   : GOSUB '48(14,42,0)
   : PRINT "X"
   : GOSUB '48(10,46,0)
0190 PRINT "X"
   : GOSUB '48(14,33,0)
   : PRINT "/"
   : GOSUB '48(13,33,0)
   : PRINT "/"
   : GOSUB '48(12,34,0)
   : PRINT "/"
   : GOSUB '48(11,36,0)
   : PRINT "/"
   : GOSUB '48(10,40,0)
   : PRINT "/"
   : GOSUB '48(15,29,0)
   : PRINT "P O W E R";
0200 GOSUB '48(10,34,0)
   : PRINT "    "
   : GOSUB '48(9,33,0)
   : PRINT " XXXX "
   : GOSUB '48(9,34,0)
   : PRINT "    "
   : GOSUB '48(8,34,0)
   : PRINT "XXXX"
   : FOR I=8TO 1STEP -1
   : GOSUB '48(I,33,0)
   : PRINT "X    X"
   : GOSUB '48(I-1,34,0)
0210 PRINT "XXXX"
   : NEXT I
0220 GOSUB '48(9,37,0)
   : PRINT "."
   : FOR I=1TO 5
   : GOSUB '48(I-1,33,0)
   : PRINT "      "
   : GOSUB '48(I,33,0)
   : PRINT " XXXX "
   : NEXT I
   : GOSUB '48(6,34,0)
   : PRINT "XXXX"
   : FOR I=7TO 10
0230 GOSUB '48(I-1,34,0)
   : PRINT "    "
   : GOSUB '48(I,34,0)
   : PRINT "XXXX"
   : NEXT I
   : GOSUB '48(9,33,0)
   : PRINT "X    X"
   : GOSUB '48(15,26,1)
   : GOSUB '48(15,29,0)
   : SELECT P3
   : PRINT "P O W E R";
   : SELECT P0
   : GOTO 200
0231 DEFFN'14
   : LOAD DC R"GAMEMENU"