image of READY prompt

Wang2200.org

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

# Sector 85, program filename = 'GAMES'
0001 COM Z9$8
   : COM CLEAR Z9$
   : Z9$="GAMES"
0002 DATA SAVE DC CLOSEALL
   : SELECT DISK 310
0005 GOTO 200
0010 REM KFAM4102,REV.11/26/74
   : COM Q1,Q5$1,Q6$64,W$8,W3$3,W4$1,W$(3)8,Q4(3),Q5(3)
   : DIM E$60,I1$1,O1$1,T$1,Z$8,H$2,L$1
   : DIM X1$2,N$8,I$(32)8,D$(4)64
   : C=0
   : PRINT HEX(030A0A0A0A)
   : PRINT "DISK COPY AND REORGANIZE"
0100 DEFFN'0
   : GOSUB '69("MATH")
0101 DEFFN'1
   : GOSUB '69("MOOCOW")
0102 DEFFN'2
   : GOSUB '69("SLOTMACH")
0103 DEFFN'3
   : GOSUB '69("BLAKJACK")
0104 DEFFN'4
   : GOSUB '69("MARBLES")
0105 DEFFN'5
   : GOSUB '69("LIFE")
0106 DEFFN'6
   : GOSUB '69("CRYPTO")
0107 DEFFN'7
   : GOSUB '69("HELP")
0108 DEFFN'8
   : GOTO 4000
0109 DEFFN'9
   : GOTO 3000
0110 DEFFN'10
   : GOSUB '69("TICTAC")
0111 DEFFN'11
   : GOSUB '69("KALAH")
0112 DEFFN'12
   : GOSUB '69("TIME")
0113 DEFFN'13
   : GOSUB '69("WAR")
0114 DEFFN'14
   : GOSUB '69("SEAWAR")
0115 DEFFN'15
   : GOSUB '69("GOLF")
0116 DEFFN'16
   : GOSUB '69("MATCHES")
0117 DEFFN'17
   : GOTO 2000
0118 DEFFN'18
   : GOTO 1000
0119 DEFFN'19
   : GOSUB '69("ICBM")
0120 DEFFN'20
   : GOSUB '69("SPACE")
0121 DEFFN'21
   : GOSUB '69("ARTILERY")
0122 DEFFN'22
   : GOSUB '69("HANGMAN")
0123 DEFFN'23
   : GOSUB '69("AUTORACE")
0124 DEFFN'24
   : GOSUB '69("PLAYGIRL")
0125 DEFFN'25
   : GOSUB '69("SNOPY1")
0126 DEFFN'26
   : GOSUB '69("MUSHROOM")
0127 DEFFN'27
   : GOSUB '69("CAL")
0128 DEFFN'28
   : GOSUB '69("NUDE")
0129 DEFFN'29"SCRATCHTZ9$";HEX(0D)
0130 DEFFN'30"SAVE DCT$(Z9$)Z9$";HEX(0D)
0131 DEFFN'31
   : GOSUB 169
   : PRINT Z9$
   : END
0132 DEFFN'69(Z9$)
   : PRINT HEX(030A0A0A0A0A0A0A)
   : PRINT TAB(14);"YOUR SELECTION IS BEING LOCATED...";
0133 H=INT(10*(RND(1)))
   : GOTO 135
   : IF H<>3THEN 135
   : Z9$="BONUS"
0135 LOAD DC TZ9$
0169 SELECT PRINT 005(64),CO 005,LIST 005
   : PRINT HEX(03)
   : RETURN
0200 REM START SCREEN PRINT
0205 GOSUB 169
0210 PRINT "SF- 0= MATH EXERCISES            SF-16= MATCHES"
0220 PRINT "SF- 1= MATH GAME                 SF-17=+STAR TREK+ ALL VERSIONS"
0230 PRINT "SF- 2= SLOT MACHINE              SF-18= MOONLANDING (3 VERSIONS)"
0240 PRINT "SF- 3= BLACK JACK                SF-19= ICBM WAR"
0250 PRINT "SF- 4= MARBELS                   SF-20= ASTERIOD BELT"
0260 PRINT "SF- 5= GAME OF LIFE              SF-21= ARTILLERY"
0270 PRINT "SF- 6= CRYPTOGRAMS               SF-22= HANGMAN"
0280 PRINT "SF- 7= HELP                      SF-23= AUTORACE      "
0290 PRINT "SF- 8= BOWLING (FAST & SLOW)     SF-24= PLAYGIRL"
0300 PRINT "SF- 9= FOOTBALL (4K/16K/SUPER)   SF-25= SNOOPY"
0310 PRINT "SF-10= TIC TAC TOE               SF-26= MUSHROOM"
0320 PRINT "SF-11= KALAH                     SF-27= CALENDAR-1975"
0330 PRINT "SF-12= TIME                      SF-28= NUDE"
0340 PRINT "SF-13= WAR                       SF-29= SCRATCH MENU"
0350 PRINT "SF-14= SEAWAR                    SF-30= RESAVE MENU"
0360 PRINT "SF-15= GOLF                      SF-31= CLEAR SCREEN";
0370 INPUT X
   : GOTO 1
1000 REM MOONLANDER
   : PRINT HEX(03);"PICK VERSION"
1010 INPUT "1=NORMAL   2=LOW ALTITUDE  3=REAL TIME",X
1020 ON X GOTO 1021,1022,1023
   : GOTO 1010
1021 GOSUB '69("MOONLAND")
1022 GOSUB '69("ROCKET2")
1023 GOSUB '69("ROCKET3")
2000 PRINT HEX(03);TAB(15);"STARTRECK"
2010 INPUT "PICK 1=BIG STARTRECK 2=LITTLE STARTRECK 3=INSTR 4=GRID",X
2020 ON X GOTO 2021,2022,2023,2024
   : GOTO 1
2021 GOSUB '69("STARTREK")
2022 GOSUB '69("STARTRK4")
2023 GOSUB '69("STARINST")
2024 GOSUB '69("STARGRID")
3000 PRINT HEX(03);
   : INPUT "TYPE OF FOOTBALL 1=BIG 2=LITTLE 3=FOOTBALL STRAGETY",X
3010 ON X GOTO 3011,3012,3013
   : GOTO 1
3011 GOSUB '69("FOOTBALL")
3012 GOSUB '69("8KFTBAL")
3013 GOSUB '69("FBALL")
4000 PRINT HEX(03)
   : INPUT "1=FAST BOWL   2=OLD & SLOW BOWL",X
4010 ON X GOTO 4011,4012
   : GOTO 1
4011 GOSUB '69("BOWL2")
4012 GOSUB '69("BOWLING")