Wang 2200 Virtual Media

Listing of file='PLAYBOX' on disk='vmedia/more_games.wvd.zip'
# Sector 1122, program filename = 'PLAYBOX'
0005 REM %-"PLAYBOX"-
0010 PRINT HEX(0306)
0011 PRINT HEX(020402020E06)
0020 FOR I= 1 TO 75
0030 PRINT AT(7,18);"YOU ARE NOW TAKING A TRIP THRU THE"
0040 NEXT I
0100 A=12
   : B=35
   : C=1
0110 PRINT HEX(03)
0111 SELECT P4
   : PRINT HEX(020404000E)
0120 FOR I=1 TO 10
0130 A=A-1
   : B=B-3
   : C=C+2
   : C1=C*3
0140 IF B<0 THEN 170
0150 PRINT AT(A,B);BOX(C,C1)
0160 NEXT I
0170 PRINT AT(11,35);"TIME"
0171 SELECT P
0180 PRINT AT(13,34);"TUNNEL"
0190 PRINT AT(21,0);" "
0200 PRINT HEX(0F)
0210 A=12
   : B=35
   : C=1
5070 SELECT P4
   : PRINT HEX(020404000E)
5080 FOR I=1 TO 10
5090 A=A-1
   : B=B-3
   : C=C+2
   : C1=C*3
5100 IF B<0 THEN 5130
5110 PRINT AT(A,B);BOX(-C,-C1)
5120 NEXT I
5130 PRINT AT(11,35);"TIME"
5140 SELECT P
5150 PRINT AT(13,34);"TUNNEL"
5160 PRINT AT(21,0);" "
5170 PRINT HEX(0F06)
5180 FOR I=1 TO 250
   : NEXT I
   : LOAD DC T"START"