4B 840 NEXT F(F): NEXT F701770 DATA226,165,69,166,70,17£B50 I ~ INT ( RND (1) 16) +FB1330 B(T) - 0: IF DS THEN GOS64,71, 88,76,240.25339ll IF Ad) - 0 THEN B50860 PRINT CHR* (I + 64):SC =IEUB 12201340 FOR F = 1 TO A 12 THEN T = 154,96Al870 DS = 1: QOSUB 1310: FDR TN ■ 1 TO 9001 NEXTF51370 B3 THEN RETURN35839 : READ A:CS - CS +A: POKE I.As NEXT : IFCS < > 9833 THEN PRINT "EN 1000DB1410 IF P* = "P" AND T0 < = 6ERRORIN DATA STATEMENT1C900 IF PT = 0 THEN 940THEN 1450SET #2 ": STOP49910 IF CP > 24 THEN 1000Bl1420 IF P* = "C" AND T0 > = 7E91820RETURNAf920 GOTO 390THEN 1450W1830DATA0,0,0,0,0,0,0,0Si930 REM *t NO COUNTERS ttES1430 RETURN9D1840DATA8,8,8,8,8,0,8,0SI940 FOR TM = 1 TO 400: NEXT231440 REM ** TOTAL CAPTURES ttD41850DATA20,20,20,0,0,0,0,0?!DC42DDB2950 GOSUB 90: PRINT "NO COUNTERB!!! " ;960 IF PT - 0 THEN PRINT "BAMEOVER."970 FOR TM » 1 TO 1500: NEXT9<strong>80</strong> IF PT » 0 THEN 1060990 REM I* AWARD COUNTERS t*336C524E1450 LS = Is IF P* = "C" THENLS - 71460 FOR F = T0 TO LS STEP -11470 IF B(F> < 2 OR B 3THENRETURN14<strong>80</strong> IF P» = "P" THEN SP = B CP THEN PRINT "PLAYER WINS. ";: GOTO 1117E191550 REM tt DISPLAY PLAYER'SSCOREtt1560 IF SP = 0 THEN RETURN54DB2020 DATA 62,32,16,24,32,34,2e i*2030 DATA 16,24,20,18,62,16,14901090 IF CP > PL THEN PRINT "CFC1570 FOR H - PL + 1 TO PL + SPIt6 .02040 DATA 62,2,30,32,32,34,28OMPUTERWINS.";•315<strong>80</strong> VTAB 21: HTAB 20: PRINTi 0£31100 REM tt ANOTHER GAME ttHi QOSUB 1650K2050DATA56,4,2,30,34,34,28,711110 PRINT "ANOTHER GAME (Y/N521590 NEXT H:PL = PL + SP: RET0)? "IURNit2060DATA62,32,16,8,4,4,4,0E51120 GOSUB 1530: IF B* < > "Y" AND B» < > "N" THEN 1120BDH1600 REM tt DISPLAY COMPUTER'S SCORE tt1610 IF SC = 0 THEN RETURNitEB2070 DATA 28,34,34,28,34,34,28 .020<strong>80</strong> DATA 28,34,34,60,32,16,1SC1130 PRINT BS: IF B* - "Y" THEN HGR2 : GOTO 100FJ1620 FOR H ■= CP + 1 TO CP + SCF74 ,02090 DATA 0,0,8,0,8,0,0,0SF1140 TEXT : HOME : ENDCB1630 VTAB 9: HTAB 20: PRINT H342100DATA0,0,8,0,8,8,4,0771150 REM ** QUIT SAME tt: GOSUB 1650BE2110DATA16,8,4,2,4,8,16,0EC1160 FOR TM = 1 TO 100: NEXT711640 NEXT H:CP = CP + SC: RET962120DATA0,0,62,0,62,0,0,0Cl1170 GOSUB 90: PRINT "QUIT GAURN512130DATA4,8,16,32,16,8,4,0IIME. ARE YOU SURE (Y/N)?11B0 GOSUB 1530! IF B» < > "YBD1650 FOR I = 1 TO 10:A - PEEK( - 16336): NEXT : RETURN33 21407A 2150ID 2160DATADATADATA28,34,16,B,a,0,8,0Bf 8f 8, 15r 1 jj 8, 8j 88, 20, 34, 34, 62, 34, 34" AND B« < > "N" THEN 11DS1660 REM DATA STATEMENT SET #i0B01 - HROUTF82170DATA30,34,34,30,34,34,3EFSE1190 IF B« < > "Y" THEN 4201200 GOSUB 90:PT = 0: GOTO 96791670 FOR I = 768 TO 862: READA:CS - CS + A: POKE I,AH0 ,021<strong>80</strong> DATA 28, 34, 2,2, 2, 34, 28,0CEFC01210 REM *> UPDATE DISPLAY tt1220 VTAB 13 + 2 * (T > 6)4*: NEXT16<strong>80</strong> IF CS < > 9320 THEN PRINT "ERROR IN DATA STATEME11952190 DATA 30,34,34,34,34,34,30 P«2200 DATA 62,2,2,30,2,2,62,0Fl1230 IF T < 7 THEN TB « 37 -NT SET #1": STOP382210DATA62,2,2,30,2,2,2,03BCE 6 THEN TS - 5 « (T - 6) +21250 HTAB TB: PRINT SPC( 2);:HTAB TB: PRINT B 0 THEN RETUR12MEBIB1690 RETURN1700 DATA 216,120,133,69,134,70,132,71,166,7,101710 DATA 10,176,4,16,62,48,4,16,1,232,2321720 DATA 10,134,27,24,101,6,133,26,144,2,2304E2122202230DATADATA4 ,060, 2, 2, 2, 50, 34, 60, 034,34,34,62,34,34,3FB0922402250DATADATA8 .02B,8,8,8,8,8,28,032, 32,32,32,32,34,271 2260 DATA 34,18,10,6,10,IB,346AF7N12<strong>80</strong> IF P* = "P" THEN GOSUB 1560: RETURN1290 IF P« - "C" THEN GOSUB 16101 RETURNA7CE451730 DATA 27,165,40,133,8,165,41,41,3,5,2301740 DATA 133,9,162,8,160,0,177,26,36,50,481750 DATA 2,73,127,164,36,1450 r98«227022<strong>80</strong>DATADATA4 .02,2,2,2,2,2,62,034,54,42,42,34,34,304 2290 DATA 34,34,38,42,50,34,3431300 REM tt MOVE COUNTERS *t,8,230,26,206,24313B1310 T - IiBl = 0:S2 - 01320 FOR F = 1 TO 12:B
5D 2310 DATA 30,34,34,30,2,2,2,0FE 2320 DATA4,0if 2330 DATA4,0=SC(F+6> OR fllKF+6))-0 THEN 7<strong>80</strong>770 IB=I(F+6)1PB=SC(F+6)7B0 NEXT790 IF IA=O AND IB=O THEN 820BOO I=IAiIF PB>PA THEN I=IB810 GOTO 8<strong>80</strong>B20 P=OiFOR F=7 TO 12iP=P+A(F)1NEXTB30 IF POO THEN 870B40 FOR F-l TO 5850 IF A(F)0 AND A(FX=6-FTHEN I"FiGOTO B<strong>80</strong>860 NEXT F870 I=INT(RND*6)+liIF A(I)=OTHEN B70BBO COLOR 21PRINT CHR*(I+64)■SC=OiF0R TM=1 TO 900iNEXTTM890 DS=liGOSUB 1320iFDR TM-1TO 900iNEXT TM900 PT=OiF0R F=l TO 12iA(F)=B(F)iPT»PT+A(F)1 NEXT910 IF MP-ML AND MC=ML THEN 1020920 IF PT=O THEN 960930 IF CP>24 THEN 1020940 GOTO 4209S0 REM t NO COUNTERS *960 FDR TM=1 TO 400iNEXT TM970 GOSUB 1650iC0L0R 4iPRINT"No counterb!!i "j9B0 IF PT-0 THEN PRINT "Gam*over."990 FOR TM-1 TO I6OO1NEXT1000 IF PT=O THEN 10901010 REM * AWARD COUNTERS >1020 COLOR 4)GOSUB 16501 PRINT"Game ovBr. "11COLOR 141030 PRINT "Award counter*."1040 FOR F-l TO 61050 P*-"C"iSC-A
- Page 2 and 3:
We just did something only the best
- Page 4 and 5:
icate Maker!Because accomplishments
- Page 6 and 7:
Editor'sNotesThis is the 81st issue
- Page 8 and 9:
PublisherFounder/Editor in ChlelSen
- Page 10 and 11:
Selby BatemanFeatures Editor....
- Page 12 and 13:
, ■■-■■'■ ;-.-..■■■
- Page 14 and 15:
The new Compaq Deskpro 386 is among
- Page 16 and 17:
Selby Bateman, Features Editoricrop
- Page 18 and 19: 68030 chip, which should be readyfo
- Page 20 and 21: computer are often called proprieta
- Page 22 and 23: Tom R. Halfhill, Staff Editorore By
- Page 24 and 25: Selby Bateman, Features Editorasers
- Page 26 and 27: MicroscopeSheldonLeemonThe new Appl
- Page 29 and 30: Fly to Florida!Scenery Disk # 7 cov
- Page 31 and 32: contains twice as many vertical pix
- Page 33 and 34: And you don't even have toleave you
- Page 35 and 36: Increase your knowledge about all a
- Page 37 and 38: BEST SERVICE IN THE USA • ONEDAY
- Page 39 and 40: BATTERIES Sg? INCLUDEDTHE FOUR LETT
- Page 41 and 42: LYCOCOMPUTERMARKETING & CONSULTANTS
- Page 43 and 44: ATARIJKLYCOCOMPUTERMARKETING & CONS
- Page 45 and 46: QuickProDOSCatalog For AppleLarrySh
- Page 47 and 48: Behaved Batch FilesCOPY CON: YESNO.
- Page 49 and 50: ASC II ExpressBalance of PowerBally
- Page 51 and 52: END**Beap:*SOUND 800,1,100,0:SOUND
- Page 53 and 54: COMMODOREAPPLEC64 COMPUTER C-128COM
- Page 55 and 56: FileCompressorChrisRogersThis Commo
- Page 57 and 58: character n. Whenever File Compress
- Page 59 and 60: \Make Your ChoiceC-64 or C-128BASIC
- Page 61 and 62: RP0A71i4C0A79:1B0A81:0A0A89:1F0A91i
- Page 63 and 64: ACCOLADEHardball 24.95Mean 18 31.95
- Page 65 and 66: Ibefore a move is made. Each compar
- Page 67: PH 1390 IF P$="C" AND T0>=7 THEN .1
- Page 71 and 72: I10 630 P$="C"BC 640 REM tt PICK BE
- Page 73 and 74: ,——■———U-J>G>Player■p
- Page 75 and 76: INSIGHT:AtariBillWilkinsonNumber-Ba
- Page 77 and 78: EMPX,TEMPY,MASKBH 9140 TEMPX-X1TEMP
- Page 79 and 80: AmigaViewSheldonLeemonThe Latest Am
- Page 81 and 82: Computers and SocietyDavid D. Thorn
- Page 83 and 84: RUSH POSTAGE-PAID CARDFOR YOUR FREE
- Page 85 and 86: Train with NRI for a high payingcar
- Page 87 and 88: PersonalComputingDonald B. irivette
- Page 89 and 90: 3M DiskettesICEI has an outstanding
- Page 91 and 92: key (Atari logo key on 400/800 mode
- Page 93 and 94: MLXMachine Language Entry ProgramFo
- Page 95 and 96: THEN PRINT IN?iPRINTM{UP][5 RIGHT}"
- Page 97 and 98: When you want to talk price.AmdekMO
- Page 99 and 100: THE LOWESTTHE BESTPRICESSERVICEELEC
- Page 101 and 102: fNOWAVAILABLE AT24$O>!00The Mew Car
- Page 103 and 104: COMPUTERSFREE Reader Information Se
- Page 105 and 106: STARGLIDERJJtarglider — is an all
Change language