image of READY prompt

Wang2200.org

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