Listing of file='TRAIN1' on disk='vmedia/more_games.wvd.zip'
# Sector 1448, program filename = 'TRAIN1' 0200 PRINT HEX(06) 0202 FOR A=1TO 42 0205 Q=Q+1 : IF Q=5THEN Q=1 0210 PRINT HEX(06) 0220 PRINT AT(2,A);" ######" 0230 PRINT AT(3,A);" ###" 0240 PRINT AT(4,A);" ## " 0250 PRINT AT(5,A);" XXXXXXXXXXXX XXXXX" 0260 PRINT AT(6,A);" X XXXXX X XXXXX" 0270 PRINT AT(7,A);" X X X X X XXXXX" 0280 PRINT AT(8,A);" X X X X XXX XXXXX" 0290 PRINT AT(9,A);" X XXXXX XXXXXXXXXXXXXXXXXXXXXXXX" 0300 IF Q=1THEN PRINT AT(10,A);" X XXX W A N G X" 0301 IF Q=2THEN PRINT AT(10,A);" X XXX W A N G X" 0302 IF Q=3THEN PRINT AT(10,A);" X XXX W A N G X" 0303 IF Q=4THEN PRINT AT(10,A);" X XXX W A N G X" 0310 IF Q=1THEN PRINT AT(11,A);" X X o--X-- 2 2 0 0 X" 0311 IF Q=2THEN PRINT AT(11,A);" X X X 2 2 0 0 X" 0312 IF Q=3THEN PRINT AT(11,A);" X X X 2 2 0 0 X" 0313 IF Q=4THEN PRINT AT(11,A);" X X X 2 2 0 0 X" 0320 IF Q=1THEN PRINT AT(12,A);" X X X --- XXX XXX X" 0321 IF Q=2THEN PRINT AT(12,A);" X X X XXX XXX X" 0322 IF Q=3THEN PRINT AT(12,A);" X X X XXX XXX X" 0323 IF Q=4THEN PRINT AT(12,A);" X X X XXX XXX X" 0330 IF Q=1THEN PRINT AT(13,A);" X X X -X-o-X----X-o X X" 0331 IF Q=2THEN PRINT AT(13,A);" X X o-X- X X X X X" 0332 IF Q=3THEN PRINT AT(13,A);" X X X X X X X X" 0333 IF Q=4THEN PRINT AT(13,A);" X X o------X- X X X X X" 0340 IF Q=1THEN PRINT AT(14,A);" XXX X X X X X X XX " 0341 IF Q=2THEN PRINT AT(14,A);" XXX X X --X----oX--X----oX XX " 0342 IF Q=3THEN PRINT AT(14,A);" XXX X X X X X X XX " 0343 IF Q=4THEN PRINT AT(14,A);" XXX X X --Xo----X--Xo X XX " 0350 IF Q=1THEN PRINT AT(15,A);" X X X X X X XXX " 0351 IF Q=2THEN PRINT AT(15,A);" X X X X X X XXX " 0352 IF Q=3THEN PRINT AT(15,A);" X o-X------X-o-X----X-o X XXX " 0353 IF Q=4THEN PRINT AT(15,A);" X X X X X X XXX " 0360 IF Q=1THEN PRINT AT(16,A);" XXX XXX XXX XXXX" 0361 IF Q=2THEN PRINT AT(16,A);" XXX XXX XXX XXXX" 0362 IF Q=3THEN PRINT AT(16,A);" XXX XXX XXX XXXX" 0363 IF Q=4THEN PRINT AT(16,A);" XXX XXX XXX XXXX" 0370 NEXT A 0375 PRINT HEX(020402000E) 0380 PRINT AT(5,1);"W W A N N GGGG" 0390 PRINT AT(6,1);" W W A A NN N G " 0400 PRINT AT(7,1);" W W W AAAAA N N N G GGGG" 0410 PRINT AT(8,1);" W W W W A A N N N G G" 0420 PRINT AT(9,1);" W W A A N N GGGG" 0425 PRINT HEX(02040B000E) 0430 PRINT AT(13,1);" CCCC SSSS DDDDD " 0440 PRINT AT(14,1);" C C S S D D " 0450 PRINT AT(15,1);" C S D D " 0460 PRINT AT(16,1);" C S D D " 0470 PRINT AT(17,1);" C SSS ==== D D " 0480 PRINT AT(18,1);" C S D D " 0490 PRINT AT(19,1);" C S D D " 0500 PRINT AT(20,1);" C C S S D D " 0505 PRINT AT(21,1);" CCCC SSSS DDDDD " 0510 FOR Z=1TO 10000 0520 NEXT Z 0525 PRINT HEX(0F) 0530 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 0540 PRINT HEX(03) : GOTO 200