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")