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