&5 COPYRIGHT (C) T&D SOFTWARE 1986 roulette &D0:60000&c(128,96)(128X,96Y),:&(128,96)(128X,96Y),:&I1 32:XCX(I):YCY(I):4:X1Q(AG):Y1R(AG)&XX1:YY1:3:CX(I)X'CY(I)Y::(128,96),70,2,.95:(128,96),90,2,.95:'e2200: CX(32),CY(32):Q(Z6)X(Z6)Y(Z6):R(Z7)X(Z7)Y(Z7):"V31T200L200"'4I1 9: CX(I),CY(I):'6I1 8:CX(I9)CX(I):CY(I9)CY(I):'8I2 9:CX(I16)CX(I):CY(I16)CY(I):( :I11 17:CX(I15)CX(I):CY(I15)CY(I):(#" PLAY A GAME OF COMPUTER ROUL- ETTE. YOU WILL START OUT WITH $1000. SEVERAL BETTING OPTIONS ARE AVAILABLE.")2?" THERE ARE 32 NUMBERS ON THE WHEEL. ALL NUMBERS EVENLY DI- VISIBLE BY 3 ARE RED, THE REST ARE BLACK.")C@9000:::)A" YOU CAN BET ON THE COLOR OF THE WINNING NUMBER. PICK THE CORRECT COLOR AND WIN THREE TIMES YOUR BET. PICK THE WRONG COLOR AND YOU LOSE DOUBLE YOUR BET."*B" YOU CAN ALSO BET ON WHETHER THE WINNING NUMBER IS ODD OR EVEN. A WIN GETS YOU DOUBLE YOUR BET. IF YOU BET INCORRECT- LY, THEN YOU LOSE DOUBLE YOUR BET.":9000::@64+LC" THE LAST BETTING OPTION ALLOWS YOU TO BET ON HIGH OR LOW. ALL NUMBERS 1-16 ARE LOW. NUMBERS 17-32 ARE HIGH. EVEN MONEY IS WON OR LOST ON THIS BET."+D" NOTE THAT YOU DON'T HAVE TO BET ALL THREE OPTIONS. YOU CAN BET ON ANY ONE, TWO, OR ALL THREE BETTING OPTIONS."+E9000:100,+P1::I1 32:XCX(I):YCY(I):3::(128,96),70,2,.95:(128,96),90,2,.95,DQI3 7 2:1,I::,cR1,3:5:1,5:5:1,7:5,iY,dPM1000::@235,"working",e80,n:@136,"you have $";PM,x:" enter amount of bet";: BT:BTPM 110-:" SELECT rED, bLACK, nO BET"-#K$:K$"N" CF0:140-;K$"R" CF1:140-TK$"B" CF1:140-^132-:" SELECT oDD, eVEN, nO BET"-K$:K$"N" NF0:150-K$"E" NF1:150-K$"O" NF1:150-142.:" SELECT hIGH, lOW, nO BET".#K$:K$"N" HL0:160.;K$"H" HL1:160.TK$"L" HL1:160.^152.gSP0.pTD1.}L1 4.I1 7.ȀQ1 7 2:1,Q:1,0:"O5E".(128,96),80,2,.95,SP,SP.02.ҀQA1 TD:/(128,96),80,1,.95,SP,SP.02:SPSP.02:SP0 SP1/'܋::TDTD4:/DWN(32):(10)7 240/SCF0 230/CF1 WN(32):WN3(WN3) 232 :240/WN(32):WN3(WN3) 234 :240/ WN3 (WN3) WC1 :WC1/ WN2(WN2) NN1 :NN10  WN17 WW1 :WW10:@3208" RESULTS OF BETTING"0>"0,BQ1:" YOUR BET $";BT;: CF1 "BLACK ";:BQ0 :CF1 "RED ";:BQ006 NF1 "ODD ";:BQ0 :NF1 "EVEN ";:BQ00@ HL1 "LOW";:BQ0 :HL1 "HIGH";:BQ01JBQ1 "NO BET";1 T1-^:" WINNING NUMBER: ";WN13h1jr" WINNING COLOR: ";:WC1 "RED "; :"BLACK";1wCF0 " NO BET":3801xCFWC " WIN!!!":PMPMBT3 :" lose":PMPMBT21|" ODD/EVEN : ";:NN1 "EVEN "; :"ODD ";2~NF0 " NO BET":3902JNFNN " WIN!!!!":PMPMBT2 :" lose":PMPMBT22" HIGH/LOW : ";:WW1 "HIGH "; :"LOW ";2HL0 " NO BET":4002HLWW " WIN!!!!!":PMPMBT :" lose":PMPMBT2:" YOU NOW HAVE $";PM3 PM0 9000:11030" THE GAME IS OVER FOR YOU."363]#(@484,"press [enter] to continue";3w#2(13) 9010 :3P66,03R64,103T62,203V56,303X48,403Z42,503\30,563^16,623`0,643`8:50OW HAVE $";PM3 PM0 &> COPYRIGHT (C) T&D SOFTWARE 1986 number relationships&M0:60000&"S4BM=PX;,20 C4": DG1 4,5,6,7,8,9,10,11,12,13&"R8D8L8U8":&"BR4D8":&"R8D4L8D4R8":&"R8D4NL4D4L8":&"D4R8NU4D4":& "NR8D4R8D4L8":' "NR8D4R8D4L8U4":' "R8D8":'1 "R8D8L8U8D4R8":'I "ND4R8D4NL8D4L8":'PN$((PN),2):I1 (PN$):DG((PN$,I,1)):3:PXPX12::'"F8G8":'"BD6R8BD4L8":' "G8F8":'2500:"V31T80L50"(3:::" number relationships":(~4" THIS EDUCATIONAL PROGRAM TESTS CHILDREN ON NUMBER VALUE RE- LATIONSHIPS. THREE DIFFICULTY LEVELS ARE AVAILABLE.")5" IN EACH EXERCISE, THE CHILD MUST CORRECTLY ANSWER IF THE FIRST NUMBER IS LESS THAN, EQUAL TO, OR GREATER THAN THE SECOND NUMBER DISPLAYED.")169000::@64)7" THE RIGHT JOYSTICK IS USED TO INPUT THE ANSWER. MOVE THE BOX AROUND THE CORRECT ANSWER ON THE SCREEN AND PRESS THE FIRE BUTTON."*18" IF THE ANSWER SUPPLIED BY THE USER IS INCORRECT, THEN THE CORRECT ANSWER WILL BE DIS- PLAYED."*<;9000*X<:@136," SELECT LEVEL"*^=*>" 1. EASY 2. MEDIUM 3. HARD"*AK$:K(K$):K1 K3 65 :DLK+B:" NUMBER OF EXERCISES";: NE:NE1 66+F1,3:+3HX128:Y50:1000+JJX128:Y142:1000+fL(128,48),20,3,2,.1,.41+M(128,62),16,3,.9,.1,.41+P(128,181),16,3,.9,.62,.9+ZEX1:NC0+\1,1::1,1+^32:2000,d DL1 RB10 :DL2 RB100 :DL3 RB1000, nRN(RB)1:SN(RB)1,;xX1(4DL)2040:X2150,PPXX1:PNRN:20,ePXX2:PNSN:20,{"BM88,50C3":30,"O1DAEADA":TD050:,"BM120,50C3":31,"O3DAEADA":TD050:,"BM158,50C3":32,"O5DAEADA",PT1-"2,1:(PT3048,46)(PT3080,70),,B-5"O3EDEO5EADA"-Z(PT3048,46)(PT3080,70),,B-}H(0):V(1):P(&HFF00)1-H10 PT1 PTPT1-H53 PT3 PTPT1- P 172-RNSN CP2:200-…RNSN CP1:200.ąRNSN CP3.#"BM124,16 C3": PT 30,31,32.4"O3DEO5EDA".D̅PTCP 250.΀T05:(116,16)(136,36),,BF:"BM124,16 C4": CP 30,31,32:"O5ED":. 4 2.ЀT05:"O5EEED":.с2000."O5BAGFEDCO4BAGFEDCO3GFEDCBA".TD01000:.300/+T03:"O3CDEFGABO5CDEFGAB":TD0150::/>2000:NCNC1/"O1CDEFGABO2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGABBAGFEDCO4BAGFEDCO3BAGFEDC"/"C4BM84,80 NR8D8R8BR4R8U8L8D8R8BR4U8R8D4L8R4F4BR4U8R8D4L8R4F4BR4NR8U4NR4U4R8BR4NR8D8R8BR6U8NL4R4"0TD01000:0,EXEX1:EXNE 920'6:@960J@" NUMBER OF EXERCISES = ";NE0mJ" NUMBER CORRECT = ";NC0sT0^" SCORE = ";(NCNE100);"%"0h:" run again? y/n"0rK$:K$"Y" 600|K$"N" 37001(X,Y),30,4,1.51Q(X10,Y8),8,3,.6:(X10,Y8),8,3,.6:(X10,Y8),3,3:(X10,Y8),3,31p(X,Y8),9,2:(X,Y10),2,21(X10,Y8),8,2,3,.6,.9:(X10,Y8),8,2,3,.6,.91(X10,Y4),8,4,3,.6,.9:(X10,Y4),8,4,3,.6,.92 Q118 140 4:WY46:"BM=Q;,=W; C4D12":2ϐ2NЀ I11 2:1,0:"O3E":TD019::1,1:"O5E":TD019::2T32{#(@484,"press [enter] to continue";2#*(13)9002 :2`4:5091(X10,Y4),8,4,3,.6,.9:(X10,Y4),8,4,3,.6,.92 Q118 140 4:WY46:"BM=Q;,=W/$:::" tar pits"::0" ON EACH LEVEL OF THIS GAME, THERE ARE 16 SCREENS. SOME SCREENS CONTAIN TREASURES AND TRAPS. EACH TREASURE YOU COL- LECT GETS YOU 100 POINTS. GET ALL THE TREASURES ON THE LEVEL AND YOU GET A 500 POINT BONUS AND A NEW LEVEL."09000::@160," THE JOYSTICK IS USED FOR GAME CONTROL. MOVING THE JOYSTICK RIGHT OR LEFT MAKES THE PLAYER RUN RIGHT OR LEFT. PRESSING THE FIRE BUTTON WILL MAKE THE PLAYER JUMP."09000::@1281" REMEMBER THAT TRAPS EXIST ON SOME SCREENS. YOU MUST HANDLE THOSE TRAPS AS BEST YOU CAN BY CAREFULLY RUNNING AND JUMP- ING."190001Ȃ NEW GAME1SC0:NM3:RP1:NS01 NEW MAN190:"O1CDEFGABO3CDEFGAB"1X20:Y100:MD0:DR123:52, MAIN LOOP27.H(0):V(1):P(&HFF00)12g0Q(X6,Y34):Q3 MD2900 :Q2 7002}2MD2 50:40024MD1 30:40026H10 DR0:MD1:CT0:40028H53 DR1:MD1:CT0:4002:P0 MD2:CT0:MF02 RF 3003)CYCY1:CY11 (128,130),CY5,3,.2:3003UCY21 (128,130),(21CY)5,1,.2:3003rCY23 CY0:300 :30031,1:4:(220,110)(248,150),,BF:3:5:"O5FADAFEEDO3FEFEFEO1FEFE":SCSC100:NSNS13ƅNSNT 3004"O1CDEFGO2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGAB"4+SCSC500:NS0:1584G䁦800:9000:RP1:2504` :@168,"score: ";SC4|*:" men : ";NM444NMNM1:8004NM0 9000:2504:" game over"4:" play again? y/n"5K$:K$"Y" 2005K$"N" 94055?#(@484,"press [enter] to continue";5U#)(13) 90015[#*5P 60,0,60,0,0,60,0,0,60,0,60,0,60,0,0,60,0,0,60,05R 0,60,0,0,60,0,0,60,0,60,0,0,20,0,20,0,0,20,0,05T 20,0,20,0,20,0,0,20,0,0,20,0,0,20,0,0,20,0,0,2062V 0,20,0,0,20,0,20,0,0,20,0,0,20,0,20,0,20,0,0,206gX 0,0,20,0,0,20,0,0,20,0,0,20,0,20,0,0,40,0,40,06Z 0,40,0,0,40,0,40,0,40,0,0,40,0,0,40,0,0,40,0,06\ 40,0,0,40,0,40,0,0,42,0,170,0,0,170,0,0,170,0,42,07^ 170,0,0,170,0,0,170,0,0,170,0,0,170,0,0,168,0,170,0,07S` 170,0,170,128,0,170,128,0,170,0,170,2,170,0,0,170,0,2,170,07b 2,170,0,0,170,0,0,170,0,170,128,0,170,130,42,32,2,42,32,27d 42,128,170,34,42,128,2,170,0,8,168,128,8,168,128,2,168,128,8,1708f 2,168,128,0,170,128,170,0,2,42,128,8,42,0,42,128,170,0,2,1708]h 0,0,170,0,2,168,128,0,168,32,2,168,0,170,0,0,170,128,42,08j 0,42,0,0,42,0,42,0,42,0,2,170,0,0,168,0,0,168,0,08l 168,0,0,168,0,168,0,0,42,0,42,0,0,42,0,0,42,0,42,09 n 42,0,0,168,0,0,168,0,0,168,0,0,168,0,0,168,0,168,0,09Ap 42,0,42,0,0,42,0,0,42,0,42,0,42,0,0,168,0,0,168,09zr 0,168,0,0,168,0,0,168,0,168,0,0,34,0,34,0,2,34,0,29t 162,0,34,0,34,0,0,136,0,0,136,0,0,136,128,0,138,128,0,1369v 0,136,0,0,34,0,162,0,0,160,128,0,42,0,42,0,42,0,0,136:2x 0,0,138,0,2,10,0,0,168,0,0,168,0,168,0,0,34,0,128,128:gz 0,0,128,0,8,0,160,0,42,0,0,136,0,2,2,0,2,0,0,0:| 32,0,0,10,0,168,0,0,34,128,0,160,0,0,160,0,10,0,40,0:~ 40,0,2,136,0,10,0,0,10,0,0,0,160,0,0,40,0,40,0,0; À 40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,0,0,0;ó-1;`4:100,0,0,34,0,128,128:gz 0,0,128,0,8,0,160,0,42,0,0,136,0,2,2,0,2,0,0,0:| 32,0,0,10,0,168,0,0,34,128,0,160,0,0,160,0,10,0,40,0:~ 40,0,2,136,0,10,0,0,10,0,0,0,160,0,0,40,0,40,0,0; À 40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"::(SXPX)8 (SYPY)8 900/>TSF0:(SX,SY,SP):"O1E"/SXBX4:SYBY8:SP(SX,SY):DXPX:DYPY8:QX(DXBX)8:QY(DYBY)8:TD04:(SX,SY,(4)):"O3EO4EO5E"::SF1:90/W90/ :@96/*" score : ";SC04" planes: ";NM0>0,NMNM1:800:NM0 9000:810F:" GAME OVER":0c" PLAY AGAIN? Y/N"0K$:K$"Y" 80 :K$"N" 930065494,0:0#(@484,"press [enter] to continue";0#)(13) 90010#*0'I6600 6700:I;(I):1Bh 190,1,23,49,141,0,100,198,6,238,132,239,161,48,136,32,90,38,246,571j 190,1,23,49,141,0,80,198,6,238,161,239,132,48,136,32,90,38,246,571пl 190,1,23,49,141,0,36,51,141,0,44,198,6,231,141,0,62,236,132,1642n 196,228,65,170,164,234,33,237,132,51,66,49,34,48,136,32,106,141,0,392_p 38,231,57,1,0,1,0,5,64,6,64,21,80,117,116,252,255,252,255,2402r 63,240,63,192,15,0,3,255,255,255,255,255,255,255,255,255,255,255,255,02P 220,186,195,12,0,31,1,220,186,195,0,31,253,1,21,26,80,125,255,338R 42,251,166,136,223,167,130,188,1,21,38,246,28,175,57,42,0,0,0,03D`2:70,116,252,255,252,255,2402r 63,240,63,192,15,0,3,255,255,255,255,255,255,255,255,255,255,255,255,02P 220,186,195,12,0,31,1,220,186,195,0,31,253,1,21,26,80,125,255,338R 42,251&= COPYRIGHT (C) T&D SOFTWARE 1986 tar pits 02/20/86 RDG&L0:60000&j(X,Y)(XDX,YDY),BG,G:&(X,Y)(XDX,YDY),BG,:&DR (X,Y)(XDX,YDY),S1,: :(X,Y)(XDX,YDY),S0,:'DR (X,Y)(XDX,YDY),R1,: :(X,Y)(XDX,YDY),R0,:'EDR (X,Y)(XDX,YDY),T1,: :(X,Y)(XDX,YDY),T0,:'DR (X,Y)(XDX,YDY),U1,: :(X,Y)(XDX,YDY),U0,:' DR (X,Y)(XDX,YDY),V1,: :(X,Y)(XDX,YDY),V0,:( DR (X,Y)(XDX,YDY),W1,: :(X,Y)(XDX,YDY),W0,:( DR XX8 :XX8(8 X10 13 :X245 15 :(S RP1 RPNR :RPRP1(d90:X235:(RPNR RP1 :RPRP1(90:X20:("O3A":4:H10 H53 MD0:3:5:( H10 DR1 DR0("H53 DR0 DR1)$P0 MD2:MF1:CT0:)9&11:3:CTCT1: CT 6,7,8,9,10,5:CT6 CT0)?1)Q24:MF 11)3CTCT1:CT4 YY8:"O1EDG" :YY8:"O5EGA)43: CT 6,7,8,8,9,10:CT6 )64:MD0:3:5:)ZRF1:1,1:31:42:RM(RP)0 95*k[RM(RP)1 "BM36,134C3R20E10L20G10 BM218,134L20H10R20F10 BM118,134R20U10L20D10":(44,128),3,3:(210,128),3,3:(128,130),3,3:95*\RM(RP)2 (128,130),60,3,.2:(128,130),3,3:4,1:(90,130)(156,136),,BF:95*]RM(RP)3 RF0:CY0:95+"_TF(RP) "BM220,134 C2R20U10L20D10U10E4R20D10G4":(230,130),2,2+-c1,0:+Xd:"V31T150L150"::@234,"working...";+f BG(14),RM(16),S1(14),S0(14),R1(14),R0(14),T1(14),T0(14)+h U1(14),U0(14),V1(14),V0(14),W1(14),W0(14),TF(16)+iDX12:DY32+j1,1:,nAD(186)256(187),&pD:D1 AD,D:ADAD1:112,>r(0,0)(DX,DY),S1,G,Zt(14,0)(DX14,DY),R1,G,vv(38,0)(DX38,DY),T1,G,x(60,0)(DX60,DY),U1,G,z(78,0)(DX78,DY),V1,G,|(92,0)(DX92,DY),W1,G,~(114,0)(114DX,DY),S0,G-(140,0)(140DX,DY),R0,G-$(164,0)(164DX,DY),T0,G-B(190,0)(190DX,DY),U0,G-`(212,0)(212DX,DY),V0,G-~(230,0)(230DX,DY),W0,G-1,3:1-3,1:(0,0)(255,40),,BF-2,1:(0,106)(255,106),-I03.*XI50(20)30:"C4BM=X;,42 D60G4R14H4U60L8":(X6,36),20,3,1,.4,.18:(X4,50),4,4.0.j1,1:(0,108)(255,150),,BF:,1:(0,152)(255,152),.4,1:(0,154)(255,191),,BF.158:170.NR16:I1 16:RM(I)(4)1:.NT0:I116:T(2):T1 TF(I)1:NTNT1 :TF(I)0.:,32,2,134,3,16,190,192/_X 6,167,164,134,0,167,33,134,17,167,34,231,35,175,36,173,159,192,4,57/Y 95,48,141,2,104,134,191,167,159,0,136,141,59,39,252,129,13,39,37,129/Z 8,39,11,167,128,141,36,92,193,200,39,24,32,227,93,39,230,90,134,960=[ 167,159,0,136,16,158,136,49,63,16,159,136,48,31,32,205,231,141,3,490\ 141,1,57,52,52,173,159,160,2,53,52,57,52,52,173,159,160,0,53,520] 77,57,166,128,39,4,141,231,32,248,57,69,78,84,69,82,32,80,65,830^ 83,87,79,82,68,58,32,0,42,134,960=[ 167,1 E&@ COPYRIGHT (C) T&D SOFTWARE 1986 bomb run 02/24/86 RDG&O0:60000&v279,PA256:280,PA 255:16200:&279,PA256:280,PA 255:16220:&279,PA256:280,PA 255:16240:&( (7) 42,44,46,48,50,48,50'*PC10:XLXL4:EF1:CC1:56'1,PC12:XLXL4:XHXH4:EF1:CC1:56'Z.PC10:XLXL4:XHXH4:EF1:CC1:56'}0 SE 42 :PC6:EF0:SE1:CC1'1BXXL20(40):BY0:56'2 SE 44 :PC6:EF0:SE1:CC1'3BXXH20(40):BY0:56(8XL30 XL30 :XH220 XH220(;(0F200,16199:I16200 16359:D:I,D:(QG::" bomb run":(H" IN THIS HIGH RESOLUTION GAME, YOU CONTROL A JET WHICH MUST DROP BOMBS ON ENEMY LAND BASES. THESE LAND BASES CAN FIRE AT YOU AS WELL.":)I" EACH BASE HIT SCORES FIVE HUN- DRED POINTS.":)VJ" USE THE RIGHT JOYSTICK TO CON- TROL YOUR JET.")K9000::@228,"want hi-speed poke? y/n")LK$:K$"Y" 65495,0 :K$"N" 76 :65494,0)P1:2,3::1,0:"V31T150L100":SC0:NM3)Q1:2,3::1,0*BRPA(186)256(187)1999:2:4:PC0:EF1:PX126:PY128:SF0:SE0*dTXL40(10):XHXL(20)100*tZPC0 40*\3:16320:2:4: CC,3:(XL,0)(XH,0),:PCPC1:SF SYSY2:DYDY2+]SE BYBY2:BY180 SE0:EF1:SF (SX,SY,SP):"O2GFEDCBAO1GFEDCBA":SF0+^EF 100+L`4,3:(BX,0)(BX8,0),:PC3 (BX4,0,2)+dH(0):V(1):P(&HFF00)1:H10 110 :H53 120 :130+nPX40 3:PXPX8:PAPA1:2:4:130 :130+xPX210 3:PXPX8:PAPA1:2:4, V10 140 :V53 150 :160,APY50 3:PYPY4:PAPA64:2:4:160 :160,jPY1813:PYPY4:PAPA64:2:4,vP 300,X1PX16:X2PX16:Y1PY0:Y2PY30:P1(X1,Y1):P2(X2,Y1):(X1,Y1,4):(X2,Y1,4)-EȽ(X1,Y1,P1):(X2,Y1,P2):X1X12:X2X22:Y1Y14:Y1Y2 P1(X1,Y1):P2(X2,Y1):(X1,Y1,4):(X2,Y1,4):"O5E":200-P1(X1,Y1):TD010:(X1,Y1,(4)):"O5"::(X1,Y1,P1)-܅(X1(BX4))6 (Y1(BY8))6 230 :300.%SF0:TD05:(X1,Y1),TD,(4):"O4E"::EF1:SE0:SCSC500:"O1CDEFGABO2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGAB".4, SE0 90.T6SF 320 :BY10 500 :90.@(SX,SY,SP):SXSXQX:SYSYQY:SP(SX,SY):(SX,SY,2):"O4E":(SXDX)12 (SYDY)12 330 :(SXPX)8 (SYPY)8 330 :90/"JTD04:(SX,SY,(4)):"O2E#PD,AN$(I,2)8‡#PD8!̋:1008B PF$"load":2000:F$"" 708R""I",#DN,F$8i$#DN,NB:NB0 8108&I1 NB:#DN,BR$(I,0):#DN,BR$(I,1):#DN,BR$(I,2):8*#DN,NA:NA0 8498,I1 NA:#DN,AN$(I,0):#DN,AN$(I,1):#DN,AN$(I,2):9Q#DN:709#RPF$"save":2000:F$"" 7093T"O",#DN,F$9JV#DN,NB:NB0 8609XI1 NB:#DN,BR$(I,0):#DN,BR$(I,1):#DN,BR$(I,2):9\#DN,NA:NA0 8999^I1 NA:#DN,AN$(I,0):#DN,AN$(I,1):#DN,AN$(I,2):9#DN:70:ޞ:@231,"ok to quit? y/n";:߁1000:K$"N" 70::FK$:K$"Y" K$"N" 1000 ::О:@228,PF$" filename: ";: F$:(F$)16 2000 :: F "BIRTHDAYS" :"ANNIVERSARIES": :#(@484,"press [enter] to continue";:#)(13) 9001 ::`1:20/ &5 COPYRIGHT (C) T&D SOFTWARE 1986 disk lock&_ 500,14999:I15000 15288:D:I,D:&:::" disk lock utility"::''" IF YOU STORE SECRET INFORMA- TION IN YOUR DISK FILES, YOU MAY WISH TO BE ABLE TO LOCK THE DISK DIRECTORY WHEN THE DISK IS NOT IN USE.":'}" THE DIRECTORY CAN BE UNLOCKED AT A LATER TIME WITH THE PRO- PER PASSWORD."'9000::@32(i" THIS PROGRAM IS USED TO ADD DISK LOCK TO A DISK. THE DISK MUST BE FORMATTED AND CONTAIN NO FILES. IMMEDIATELY AFTER DISK LOCK HAS BEEN ADDED, THE DISK IS UNLOCKED AND CAN BE USED LIKE NORMAL."(:" TO LOCK THE DISK: LOADM'LOCK' EXEC "( 9000::@32)6"" WHEN A DISK IS LOCKED, DOING A 'DIR' RESPONDS WITH ONLY ONE FILE CALLED 'UNLOCK'.")$:" TO UNLOCK THE DISK: LOADM'UNLOCK' EXEC ENTER THE PASSWORD")&:" THE DISK IS NOW UNLOCKED AND CAN BE USED LIKE NORMAL."* '9000::@128*](" NOTE THAT A DISK SHOULD BE LOCKED OR UNLOCKED IN DRIVE 0 ONLY!!!"*h*9000*Z:@227,"enter password for new disk":*\ PW$:PW$"" 90*^I1 (PW$):A((PW$,I)):B(A ( &HA5)) (&HA5 ( A))+`(PW$,I,1)(B):+BbSS$(0)((PW$))PW$:SS$SS$(128(SS$),255)+d:@226,"insert blank, formatted disk into drive 0. PRESS [ENTER]+n(13) 110+s(0)68 120+u:@230,"this disk has data!!":200, xM"LOCK",15000,15288,15000: 0,17,18,SS$,SS$,4 0,17,3,A$,B$:(A$,1,6)"UNLOCK",H 0,17,16,A$,B$,jȇ:" do another disk? y/n",K$:K$"Y" 90 :K$"N" 210,+,#(@484,"press [ENTER] to continue";,#2(13) 9010 :-P 48,141,1,29,198,18,23,0,142,48,141,1,20,109,132,39,62,142,4,0-cQ 134,96,167,128,140,6,0,38,249,142,4,193,159,136,48,141,0,233,23,0-R 221,23,0,136,230,141,3,241,48,141,0,237,225,1,38,21,49,141,2,229-S 48,2,166,128,136,165,161,164,38,7,49,33,90,38,243,32,47,32,254,198.:T 3,48,141,1,204,141,64,198,17,48,141,1,196,141,60,198,16,48,141,1.U 188,141,48,198,3,48,141,1,180,141,44,48,141,0,174,134,255,167,132,198.V 18,141,32,57,198,17,48,141,1,159,141,19,198,3,48,141,1,151,141,15/W 48,141,0,145,111,132,198,18,141,5,57,134,2&A COPYRIGHT (C) T&D SOFTWARE 1986 SPEC. EVENTS 02/25/86 RDG&P 0:60000&(116)&H7F 8000:MB64:MA32 :2000:MB32:MA16&(&HC000)68 DN1 :DN1& BR$(MB,2),AN$(MA,2)' ND(22):I112:ND(I)::31,28,31,30,31,30,31,31,30,31,30,31'#NB0:NA0'9(:::" special events"'X)" reminder"::'*" USING THIS DATABASE TYPE PRO- GRAM, YOU CAN KEEP A FILE OF THOSE EVENTS WHICH OCCUR AN- NUALLY, SUCH AS BIRTHDAYS AND ANNIVERSARIES.":(-," ISN'T IT EMBARASSING TO FORGET SOMEONE'S BIRTHDAY?"(<-9000::)6." WITH THIS PROGRAM, YOU CAN OR- GANIZE ALL OF THOSE BIRTHDAYS AND ANNIVERSARIES. THE DATA CAN BE ENTERED, EDITED, AND VIEWED ON THE SCREEN. THE DATA CAN ALSO BE SAVED TO TAPE AND DISK, AND HARD COPY PRINTOUT IS ALSO AVAILABLE.)0" THE TIME BETWEEN THE CURRENT DATE AND AN ONCOMING BIRTHDAY OR ANNIVERSARY CAN BE QUICKLY CALCULATED BY THE COMPUTER FOR YOUR CONVENIENCE AND PLANNING.")29000)F:@32*H" main menu":*EI" i/o device = ";:DN1 "disk" :"tape"*J:" A. ANNIVERSARY B. BIRTHDAY L. LOAD DATA FILE S. SAVE DATA FILE Q. QUIT"*L:" your choice?"+NK$:K$"Q" 990+*PK$"A" F0:100+ARK$"B" F1:100+RVK$"L" 800+cXK$"S" 850+l^78+d:@96:F " birthday "; :" anniversary ";+f"menu":+h" V. VIEW/EDIT ";:3000,j" A. ADD ";:F "A BIRTHDAY" :"AN ANNIVERSARY",Ul" C. CALCULATE TIME P. PRINT OUT ";:3000,wm" R. RETURN TO MAIN MENU",n:" your choice? ",pK$:K$"" 112,rK$"V" 150,sK$"A" 200,tK$"C" 240,uK$"P" 400-vK$"R" 70- w112- F 152--NA0 112 :153-<NB0 112-EPT1-W155::164-:@96:" ";:F "BIRTHDAY"; :"ANNIVERSARY";-" #";PT:-" NAME: ";:F BR$(PT,0) :AN$(PT,0)." DATE: ";:F BR$(PT,1) :AN$(PT,1).>" GIFT IDEA: ";:F BR$(PT,2): :AN$(PT,2):.c" eDIT, nEXT, pREVIOUS, mENU".zK$:K$"M" 100.K$"E" 180.K$"N" 170.K$"P" 175.165. F 172.PTNA PTPT1:154 :165/PTNB PTPT1:154 :165/#PT1 165 :PTPT1:154/>I13:@16132I,I;:/f@323,"(1-3) TO EDIT, 0 WHEN DONE";/}K$:K$"0" 196/K(K$):K1 K3 183 : K 185,187,190/@190," NAME: ";:NA$:NA$"" 194 :1920'@224," DATE: ";:DT$:(DT$)5 (DT$,3,1)"/" 1870bM((DT$,2)):D((DT$,2)):M1 M12 D1 1940DND(M) 194 :NA$DT$:1920@257," GIFT IDEA: ";:NA$:1920 F BR$(PT,K1)NA$ :AN$(PT,K1)NA$0155:1801Eć@323," ";:I13:@16132I," ";::@320,"";:1641Rȅ F 2021sɅNAMA 112 : ENNA1:2041ʅNBMB 112 : ENNB11̞:@961͇" THIS IS ENTRY #";EN1·:1Ї" ENTER NAME: ";: NA$:NA$"" 10027҇" ENTER DATE (MM/DD): ";: DT$:(DT$)5 (DT$,3,1)"/" 2102sM((DT$,2)):D((DT$,2)):M1 M12 D1 2102օ DND(M) 2102؇" ENTER GIFT IDEA: ";: GI$2ڇ:" is the input correct? y/n"2܁1000:K$"N" 2043VޅF NBNB1:BR$(NB,0)NA$:BR$(NB,1)DT$:BR$(NB,2)GI$ :NANA1:AN$(NA,0)NA$:AN$(NA,1)DT$:AN$(NA,2)GI$3`1003:@72,"calculate time":@132,"";: F "birthday"; :"anniversary";3" to search for?"3@204,"> ";: S$:S$"" 1004!@260," current month and day":@326,"(mm/dd) > ";: CD$4I(CD$)5 (CD$,3,1)"/" 2464SM((CD$,2)):SD((CD$,2)):SM1 SM12 SD1 2464SDND(SM) 2464SF0: F 2604NA0 2704I1 NA:AN$(I,0)S$ SFI:I10004:2705NB0 2705)I1 NB:BR$(I,0)S$ SFI:I10005/5SF0 :" COULD NOT FIND ";S$"'S ":F " BIRTHDAY":9000:100 :" ANNIVERSARY":9000:1005M((BR$(SF,1),2)):D((BR$(SF,1),2))5QD0:SMM (SMM SDD) 2806$SM12 QD31SD:SD1:SM1:2806eISM1 12:QDQDND(I)::QDQD(ND(SM)SD):SD1:SM1:2806uSMM 2906QDQDND(SM):SMSM1:2806"QDQD(DSD)6$PTSF:1556&:" CURRENT DATE: ";CD$6(:" ";QD;" DAYS"7*9000:1007PD27 F 40573NA0 112 :4107BNB0 1127Y F ULNB :ULNA7gI1 UL7#PD," NAME: ";: F #PD,BR$(I,0) :#PD,AN$(I,0)7#PD," DATE: ";: F #PD,BR$(I,1) :#PD,AN$(I,1)8 #PD," GIFT: ";: F #PD,BR$(I,2) :.6&' :COPYRIGHT (C) T&D SOFTWARE 1986&2 970&C359,57:0,1&(:@73,"*** menu ***":@132,"1. DISCLAIMER":@164,"2. LOADING INSTRUCTIONS":@196,"3. PMODES AND PCLEARS":@228,"4. *** ERRORS ***"'G2@260,"5. SUBMISSION INFORMATION":@292,"6. PRODUCT PRICE INFO.":@324,"7. CHATTER!":@356,"8. END":@425,"ENTER (1-8)"'|:@5,"submission information":@64," T & D SOFTWARE PRODUCES 70% OF ITS PROGRAMS 'IN HOUSE' OR FROM AUTHORS LOCATED IN HOL- LAND MICHIGAN. THEREFORE, ONLY ONE TO FIVE PROGRAMS ARE PURCHASED EACH MONTH FROM OUT-"*" SIDERS.":" WE PREFER TO OFFER SUBSCRIP- TIONS INSTEAD OF MONEY BUT WE SOMETIMES OFFER MONEY AS WELL.":660+m:@33,"procedure:":" SIMPLY SEND YOUR PROGRAMS IN (ON DISKETTE OR CASSETTE) ALONG WITH INSTRUCTIONS. WE WILL TRY TO DECIDE IF WE CAN USE THEM WITHIN FIVE WORKING DAYS.",D@224," IF WE CAN USE THE PROGRAM(S) WE WILL MAKE YOU AN OFFER. IF WE CANNOT USE THE PROGRAM WE WILL SEND YOU THE TAPE OR DISKETTE BACK ALONG WITH A SHORT EXPLA- NATION OF WHY WE COULD NOT USE IT.":660,:@32," program suggestions:":@96," WE USUALLY NEED HELP WITH ADVENTURES, HOME FINANCE, AND UTILITIES. GAMES ARE ALSO WELCOMED."-\@256," WE PREFER PROGRAMS WHICH ARE COMPLETE, BUG FREE, HUMOROUS, AND WORK WITH A 16K EXTENDED COLOR COMPUTER.":660-Ȟ:@32," we need your programs":@128," YOU PROBALBLY HAVE A BUNCH OF PROGRAMS COLLECTING DUST SOME- WHERE. WE WOULD LOVE TO SEE THEM!".Z҇" WHO KNOWS? IT MIGHT BE WORTH A LOT MORE THAN THE $.37 IT WILL COST TO SEND THEM.":680:40.u:LOADING INSTRUCTIONS/R:@6,"loading instructions":@96," AFTER REWINDING THE CASSETTE TAPE, YOU SHOULD ZERO YOUR TAPE COUNTER. TAPE COUNTER LOCA- TIONS FOR THE PROGRAMS ARE GIVEN FOR TWO POPULAR RADIO SHACK TAPE PLAYERS:"/" THE OLDER (BLACK) TAPE RECORDER - CTR-80A AND THE NEWER (GREY) TAPE RECORDER - CCR-81.":6600:@6,"loading instructions";:@32," WE USE A 60 MINUTE TAPE WHICH ALLOWS US TO PUT EACH PROGRAM ON TWO TIMES AND SOMETIMES EVEN THREE. IF THE FIRST COPY WILL NOT LOAD BECAUSE OF AN ?IO ERROR, TRY THE OTHERS."1{" PLEASE ASSUME THAT EACH PROGRAM IS WRITTEN IN BASIC UNLESS WE TELL YOU OTHERWISE. SIMPLY FAST-FORWARD TO THE DESIRED PROGRAM AND ENTER CLOAD, OR CLOADM IF IT IS A MACHINE LAN- GUAGE PROGRAM.":660:401: IO ERRORS1:@12,"?io errors":1":ERRORS1,:@8,"*** errors ***"2@6@64," WE WOULD LIKE TO COVER SOME OF THE ERRORS WHICH MIGHT OCCUR WHEN LOADING/RUNNING OUR PRO- GRAMS."2@@200,"1. ?FC ERROR":@232,"2. ?FM ERROR":@264,"3. ?IO ERROR":@296,"4. ?OM ERROR":@328,"5. ?OS ERROR":@360,"6. ?SN ERROR":@392,"7. RETURN TO MENU":@456,"ENTER (1-7)"3 JI$: I$""330 :3403ITI(I$):I1I7330: I 350,370,390,430,450,470,4047^:@7," *** fc error ***":@96," THE ILLEGAL FUNCTION CALL WILL HAPPEN WHEN YOU USE AN OUT OF RANGE number WITH A basic WORD. FOR EXAMPLE - PMODE 5. THIS MIGHT ALSO HAPPEN WHEN YOU TRY TO PMODE MORE THAN YOU PCLEAR."4h" PLEASE REFER TO THE PMODES AND PCLEARS IN THE MAIN MENU.":680:2905*r:@7,"*** fm errors ***":@96," BAD fILE mODE ERRORS WILL OCCUR WHEN YOU TRY TO cload A MACHINE LANGUAGE PROGRAM OR WHEN YOU TRY TO cloadm A BASIC PROGRAM."5|:" THIS ERROR WILL ALSO OCCUR WHEN YOU TRY TO INPUT DATA FROM A FILE OPEN FOR OUTPUT(O), OR PRINT DATA INTO A FILE OPEN FOR INPUT(I).":680:2906:@7,"*** io errors ***":@64," iNPUT/oUTPUT ERRORS ARE OFTEN CAUSED BY TRYING TO LOAD A PROGRAM FROM A BAD RECORDING OR TAPE. THEY WILL ALSO OCCUR IF YOU TRY TO LOAD A PROGRAM MID- WAY THRU THE RECORDING."7n" WE RECOMMEND THAT YOU USE THE audio on COMMAND BEFORE YOU ATTEMPT TO LOAD A QUESTIONABLE PROGRAM. LISTENING TO THE PROGRAM LOAD MIGHT HELP IN DIAGNOSING THE PROBLEM.":6608J:@6,"*** io errors ***":@64," SOMETIMES IT HELPS TO CHANGE THE VOLUME OF YOUR TAPE PLAYER WHEN TRYING TO LOAD A PROGRAM. PLEASE REME!"#$%'(*+-./INTRO46 BAS 9SPECEVNTBASDISKLOCKBASSMALLBUSBAS&mBOMB RUNBASHTANKS BAS)TAR PITSBAS"BASEBALLBAS,`NUMBER RBASROULETTEBASGLOBEDITBIN0MBER THAT THERE ARE AT LEAST TWO COPIES OF EACH PROGRAM ON EACH TAPE."9$" IF YOU CANNOT GET ANY COPIES OF ANY PROGRAM(S) TO LOAD, YOU CAN SEND THE FAULTY TAPE BACK TO US FOR A PROMPT REPLACEMENT. PLEASE INCLUDE AN EXPLANATION OF WHY YOU ARE RETURNING THE TAPE.":680:290::@7,"*** om errors ***":@32," oUT OF mEMORY ERRORS OCCUR WHEN ALL AVAILABLE MEMORY HAS BEEN USED OR RESERVED. IT MIGHT MEAN THAT YOU HAVE RESERVED TOO MUCH MEMORY FOR GRAPHICS SUCH AS PCLEAR4 OR STRING SPACE SUCH AS CLEAR 4000.:" TO AVOID FRUSTRATING ?OM ERRORS, WE RECOMMEND THAT 16K USERS TURN THE COMPUTER OFF AND ON, THEN ENTER THE PCLEAR STATEMENT BEFORE LOADING IN A PROGRAM WHICH PCLEAR VALUE IS LESS THAN 4.":680:290;ž:@6,"*** os errors ***":@96," oUT OF sTRING SPACE ERRORS CAN OCCUR WHEN YOUR STRING OPERA- TIONS REQUIRE MORE MEMORY THAN YOU ALLOW THEM."< ̇:" MAKING THE CLEAR STATEMENT LARGER WILL HELP YOU CREATE MORE MEMORY FOR YOUR STRING SPACE.":680:290<֞:@6,"*** sn errors ***":@96," sYnTAX ERRORS RESULT FROM A LOT OF THINGS INCLUDING MISPELLED COMMANDS OR ILLEGAL CHARACTERS. SOMETIMES THE COMPUTER WILL TELL YOU THERE IS A ?SN ERROR IN A LINE YOU KNOW IS CORRECT."={" USUALLY YOU CAN RUN THE PRO- GRAM AGAIN AND IT WORKS FINE. SOMETIMES IT HELPS IF YOU RE- TYPE THE ENTIRE LINE.":680:290=:PRICE INFORMATION>&:@7,"price information":@299,"SEND TO:":@328,"T & D SOFTWARE":@360,"P.O. BOX 256-C":@391,"HOLLAND MI 49423" :@422,"TEL. (616) 396-7577">@@113,"tape disk";>@130,"1 YEAR******* $70.00 $70.00":@162,"6 MONTHS***** $40.00 $40.00":@194,"SINGLE ISSUE* $ 9.00 $ 9.00":A159>660?&S$(128):(3):@7,"computer cassettes";:@69,"*** 5 screw shell ***";:@101,"*** free labels ***";:@133,"** error free tape **";:@165,"* immediate shipping*";:@235,"item price";?0@267,"c-10 .59";:@299,"c-20 .69";:@331,"c-60 .85";:@363,"c-90 .99";:@395,"case .18";:@425,"shipping $3.00";@ 2660:870@'C:40: END PRICE INFO@=D:PMODE + PCLEARSA!N:@8,"pmodes + pclears":@64," THE NORMAL MEMORY AREA IS LARGE ENOUGH FOR TEXT (LETTERS AND NUMBERS) BUT NOT FOR GRA- PHICS (CIRCLES, LINES, ETC.). THE COLOR COMPUTER MAKES IT POSSIBLE TO SET ASIDE ROOM FOR"AX" GRAPHICS WITH THE pmode AND pclear COMMANDS. GENERALLY, THE HIGHER THE pmode VALUE, THE MORE DISTINCT THE GRAPHICS AND THE MORE MEMORY IS RE- QUIRED.":660Bb:@8,"pmodes and pclears":@64," WHEN YOU FIRST FIRE UP THE COLOR COMPUTER, THE PCLEAR VALUE IS 4. THEREFORE, ANY PROGRAM OF OURS THAT HAS A PCLEAR VALUE OF 4 SHOULD LOAD AND RUN WITH NO DIFFICULTY "CSl" WITH RESPECT TO pmodes AND pclears.":" THE PROGRAMS THAT MIGHT CAUSE YOU PROBLEMS ARE THOSE WITH pclear VALUES OF LESS THAN 4.":660Dv:@8,"pmodes and pclears":@64," IF YOU HAVE ANY DOUBTS ABOUT WHETHER OR NOT A PROGRAM WILL LOAD OR RUN SUCCESSFULLY WE RECOMMEND THE FOLLOWING PRO- CEDURE:"D" (1) TURN YOUR COMPUTER OFF AND ON.":" (2) ENTER DIRECTLY FROM THE KEYBOARD THE pclear VALUE FOL- LOWED BY THE pmode VALUE.":" (3) LOAD AND RUN THE PROGRAM.":680:40D359,126::D@483,"press any key to continue";E I$: I$"" 670 : EV@484,"press";:@490,"any";:@494,"key";:@498,"to";:@501,"return";ErI$: I$"" 690 : E:CHATTEREƞFEЇ@8,"*** chatter ***":@64," IF YOU HAVE ANYTHING TO SELL, (NON COMMERCIAL), TRADE OR ANNOUNCE OR IF YOU JUST WISH TO SAY 'HI' TO SOMEONE THEN WE WOULD LIKE TO HEAR ABOUT IT."G,ڇ" IT WON'T COST YOU ANYTHING BUT ALL THAT WE ASK IS THAT YOU SUBMIT YOUR 'CHATTER' BY THE 30TH OF THE MONTH PRIOR TO THE NEXT ISSUE. FOR EXAMPLE: IF YOUR CHATTER ARRIVES BY THE 30TH OF JANUARY, WE CAN GET IT"GV" INTO OUR FEBRUARY EDITION.";:660HC960::" 1. 4 health programs : ANALYZE YOUR DIET FOR CONTENT OF PROTEIN, CALORIES, VITAMINS & MINERALS (64K REQUIRED). VITAMIN AND MINERAL DEFICIENCY SYMPTOMS & FOOD SOURCES. HYPOGLYCEMIA SYMPTOMS & DIET"I" SUGGESTIONS. BIORHYTHM-GRAPH. JUST SEND $10 FOR TAPE OR $12 FOR DISK TO : MIKE FORREST 1521 LANCELOT BORGER, TX 79007 806-274-3083"I660J960:@96," 2. 3-IN-1 HEALTH PROGRAM FOR SALE. THE MAIN PROGRAM LETS YOU TYPE IN A TYPICAL SELEC- TION OF DAILY FOODS YOU EAT AND THEN TOTALS THEIR AMOUNTS OF PROTEIN, CALORIES, 11 VITA- MINS, 9 MINERALS. THESE TOTALS"J]" ARE THEN COMPARED WITH YOUR OWN PERSONAL MINIMUM DAILY REQUIRE- MENTS.":660:960:K@64," THE SECOND PROGRAM LETS YOU SELECT ANY OF THE 21 NUTRIENTS OF THE MAIN PROGRAM AND DIS- PLAYS ITS DEFICIENCY SYMPTOMS AND MAIN FOOD SOURCES."K:" THE THIRD PROGRAM WORKS WITH A PRINTER TO PRINTOUT YOUR IN- DIVIDUAL MENTAL, EMOTIONAL, & PHYSICAL BIORHYTHMS FOR AS MANY WEEKS AS DESIRED."K660:960K@64," THIS PROGRAM SET IS AVAILABLE FOR THE COMMODORE 64 ON DISK.":L"" SEND ONLY $10 FOR DISK TO:":L" MIKE FORREST 1521 LANCELOT BORGER TX 79007 806-274-3083"L660M1 :960:::" 3. trade fine used coco software w/docs! SEND S.A.S.E. W/ 'HAVES' AND 'WANTS' TO: "M:" TRADER BILL'S X-CHANGE 73 ALAMITOS BLVD SUITE TWO LONG BEACH, CA 90802M660N960:@64," 4. monochrome video monitor FOR SALE: MICRO DATA SYSTEMS MONOCHROME VIDEO MONITOR WITH STANDARD COMPOSITE VIDEO INPUT. USED, BUT IN GOOD, WORKING CONDITION. SHARP GRAPHICS. $40 OR BEST OFFER."NO0" ROLAND DE GRAAF 4246 ELISABETH AVE HOLLAND, MI 49423 (616) 399-3097"O:660Oe:40: END OF CHATTER ********************************* START OF SUBROUTINESOf:@0," $$$ bulk diskettes $$$"::" quant price shipping"Pp" 1-15 $1.20 $1.75 16-35 1.15 2.00 36-75 1.00 2.25 76-199 .95 3.00 200-499 .80 3.75 500-? .70 5.00"Pz" ADD $.10 EA FOR BLANK SLEEVES"Q3:4)"T & D COMPUTER PRODUCTS":8)"P.O. BOX 256-C":7)"HOLLAND MI 49423":8)"(616) 396-7577";:660:QQ:@8,"*** chatter ***":Q`0:1:30I/@~1~~ooo ={@%@=001cZ&S=VH=K`ӺO70100 Z&L &o L&|9 @""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  " ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  "j&= COPYRIGHT (C) T&D SOFTWARE 1986 small business helper&W roland de graaf&d0:136&(116)&H3F 1900:ME10:MT80 :9000:ME64:MT400'NT0:NE0:I0:L0: EQ$(ME),PD$(ME),CS(ME),AD(ME),FD$(MT),FE$(MT),FA(MT),PA(8),ND(12):(&HC000)68 DN1 :DN1'KBL$(31,32):I14: PA(I)::192,224,288,320'I112: ND(I)::31,29,31,30,31,30,31,31,30,31,30,31':::" small business helper"::( " THIS PROGRAM CAN HELP ANYONE WHO RUNS A SMALL BUSINESS.USE THIS PROGRAM TO KEEP TRACK OF BUSINESS EQUIPMENT AND FINAN- CIAL TRANSACIONS. THIS PROGRAM WORKS WITH TAPE AND DISK, AND A PRINTER IS NEEDED FOR HARD COPY OUTPUT."( 133::@96)8 " EQUIPMENT DATA STORED BY THE COMPUTER INCLUDES ITEM, PUR- CHASE DATE, PURCHASE COST, AND AMOUNT OF DEPRECIATION.") " THIS DATA CAN BE VIEWED, EDIT- ED, SAVED, LOADED, AND PRINTED.") 133::@96* " THE FINANCIAL JOURNAL STORES THE DATE OF THE TRANSACTION, A DESCRIPTION, AND THE AMOUNT, OF THE TRANSACTION."*f" JOURNAL ENTRIES CAN BE VIEWED, EDITED, SAVED, LOADED, SORTED, AND PRINTED OUT."*w133::@96*" IN A 16K SYSTEM, YOU CAN KEEP TRACK OF UP TO 12 PIECES OF EQUIPMENT AND STORE 70 TRANS- ACTIONS.":+`" IN A 32K SYSTEM, YOU CAN KEEP DATA ON UP TO 64 PIECES OF EQUIPMENT AND STORE UP TO 400 TRANSACTIONS."+j133+:@43,"* main *"+" menu":+" I/O DEVICE = ";:DN1 "disk" :"tape"+," C. CHANGE I/O DEVICE L. LOAD DATA FILE S. SAVE DATA FILE E. EDIT/VIEW EQUIPMENT DATA F. FINANCIAL JOURNAL Q. QUIT",:" your choice?",K$:K$"" 26-P("CLSEFQ",K$):P0 26 : P 29,31,35,39,60,121-$26-<DN1 DN1 :DN1-E20-PF$"load":135:F$"" 20 :"I",#DN,F$:#DN,NE:#DN,NT- I1 NE:#DN,EQ$(I):#DN,PD$(I):#DN,CS(I):#DN,AD(I):: NT0 34.!I1 NT:#DN,FD$(I):#DN,FE$(I):#DN,FA(I):."#DN:20.]#NE0 26 :PF$"save":135:F$"" 20 :"O",#DN,F$:#DN,NE:#DN,NT.$I1 NE:#DN,EQ$(I):#DN,PD$(I):#DN,CS(I):#DN,AD(I)::NT0 38.%I1 NT:#DN,FD$(I):#DN,FE$(I):#DN,FA(I):.&#DN:20.'PT1/(:PD0::" equipment data":124/E)@448," Up/Down/Print/Edit/Menu";/[*K$:K$"M" 20/k+K$"U" 48/{,K$"D" 49/-K$"P" 50/.K$"E" 51//42/0PTNR 42 :PTPT1:40/1PT1 42 :PTPT1:40/2PD2:124:3903@448,BL$;:I1 4:@PA(I),"#";I;:0^4@454,"SELECT (1-4) TO EDIT PRESS d WHEN DONE";0t5K$:K$"D" 4006K(K$):K1 K4 53 : K 55,56,57,5807:@226,"item: ";: EQ$:EQ$"" 59 :EQ$(PT)EQ$:591%8:@226,"purchase date: ";: PD$:PD$"" 59 :PD$(PT)PD$:591m9:@226,"purchase cost: ";: CS$:CS$"" 59 :CS(PT)(CS$):591::@226,"amount depreciated: ";: AD$:AD$"" 59 :AD(PT)(AD$):591;PD0:::" equipment data":124:512 <:@70,"financial journal":" menu"2D=:" # transactions = ";NT2J>2?" E. ENTER A TRANSACTION V. VIEW/EDIT TRANSACTIONS S. SORT TRANSACTIONS BY DATE P. PRINT ALL TRANSACTIONS M. MAIN MENU"3@:" your choice?";3AK$:K$"" 653KBP("EVSPM",K$):P0 65 : P 67,79,96,109,203CNTMT 65 ::::" this is transaction #";NT13D:69::71::72::754cE" date (mm/dd/yy): ";: DT$:(DT$)8 (DT$,3,1)"/" (DT$,6,1)"/" 69 :M((DT$,2)):D((DT$,4,2)):Y((DT$,2)):M1 M12 69 :DND(M) D1 69 :Y0 694iF4G" description: ";FE$:FE$(FE$,20):4H" amount: ";AM$:AM(AM$):AM0 724I:" Income or Expense? (I/E)"5JK$:K$"I" :K$"E" AMAM: :745JKNTNT1:FD$(NT)DT$:FE$(NT)FE$:FA(NT)AM5YLNTMT 605{M:" enter another? y/n"5NK$:K$"Y" 67 :K$"N" 60 :785ONT0 65 :PT15P81:856Q::::" transaction #";PT::" DATE: ";FD$(PT)6)R" DESCRIPTION: ";FE$(PT)6YS:" AMOUNT: ";:"$###,###.##+";FA(PT)6aT:6U:" Up/Down/Edit/Menu"6VK$:K$"U" 87 :K$"D" 88 :K$"E" 89 :K$"M" 60 :866WPTNT PTPT1:80 :867XPT1 PTPT1:80 :867'Y@160,"1";:@192,"2";:@256,"3";7lZ@448," SELECT (1-3) TO EDIT PRESS d WHEN DONE";7[K$:K$"D" 80 :K(K$):K1 K3 91 : K 92,93,947\:@222,"";:69:FD$(PT)DT$:957]:@222,"";:71:FE$(PT)FE$:958^:@222,"";:72:FA(PT)AM:958+_81:898W`NT0 NT1 60 ::@234,"sorting..."8gaI1 NT18wbLI1 NT8cD1$FD$(I):D2$FD$(L)8dM1((D1$,2)):D1((D1$,4,2)):Y1((D1$,2)):M2((D2$,2)):D2((D2$,4,2)):Y2((D2$,2))9eY1Y2 1079fY1Y2 1069/gM1M2 1079?hM1M2 1069WiD1D2 D1D2 1079jT$FD$(I):FD$(I)FD$(L):FD$(L)T$:T$FE$(I):FE$(I)FE$(L):FE$(L)T$:TFA(I):FA(I)FA(L):FA(L)T9k:9l609mNT0 659nPD2:'oTE0:TI0:#PD:#PD," LIST ALL TRANSACTIONS PLUS TOTALS ":#PD:[p#PD," # DATE DESCRIPTION AMOUNT ":iqI1 NT:r#PD," #### % % % % $#####.##+ ";I;FD$(I);FE$(I);FA(I):sFA(I)0 TETE(FA(I)) :TITIFA(I):t;u#PD:#PD," TOTAL INCOME = $#,###,###.##";TI;Lv#PD," TOTAL EXPENSE = $#,###,###.##";TE;w#PD:#PD," NET = $#,###,###.##+";TITE;x60;y:@232,"ok to quit? y/n";zK$:K$"N" 20 :K$"Y" 122;{;|#PD:#PD," # ";PT<}#PD," -------"<"~#PD<=#PD," ITEM: ";EQ$(PT)4I010:(PX14,PY8),I,I 7::"O5CDEFGBAO4CDEFGBAO3CDEFGBAO2CDEFGAB":900::" game over"4:" play again ? y/n"4K$:K$"Y" PS0:3000:804̅K$"N" 97055 @427,"working";:5C#(@484,"press [enter] to continue";5Y#)(13) 90015_#*5P 0,255,0,0,0,0,255,0,0,255,255,252,0,63,255,255,0,0,170,05R 0,0,0,170,0,170,170,168,0,42,170,170,0,255,255,192,3,255,255,06,T 0,255,255,252,0,63,251,255,0,0,170,170,128,2,170,170,0,170,170,1686nV 0,42,174,170,0,255,0,0,0,0,255,0,0,250,170,188,0,63,251,2556X 0,0,170,0,0,0,0,170,0,175,255,232,0,42,174,170,255,255,255,2407Z 15,255,255,255,0,251,255,188,0,62,170,175,0,170,170,170,160,10,170,1707K\ 170,174,170,232,0,43,255,250,61,85,87,192,3,213,85,124,0,250,170,1887^ 0,62,255,239,0,41,85,86,128,2,149,85,104,175,255,232,0,43,170,1867` 15,255,255,0,0,255,255,240,0,255,239,252,0,62,170,175,0,10,170,1708b 0,0,170,170,160,170,186,168,0,43,255,250,0,0,0,0,0,0,0,08Zd 0,255,239,252,0,63,255,255,0,0,0,0,0,0,0,0,0,170,186,1688f 0,42,170,170,0,0,0,0,0,0,0,0,0,255,255,252,0,63,255,2558h 0,0,0,0,0,0,0,0,0,170,170,168,0,42,170,170,0,0,0,08j-188111111118:100001019<101010019>101010119@100010019-B101111019;D100100019IF100101119WH101100019eJ100111019sL100000019N111111119`2:50,255,2558h 0,0,0,0,0,0,0,0,0,170,170,168,0,42,170,170,0,0,0,08j-188111111118:100001019<1010 ]&@ COPYRIGHT (C) T&D SOFTWARE 1986 baseball 02/10/86 RDG&O0:60000&XPX:YPY:4:XPX60:YPY10:4:XPX120:YPY:4:&O1 (X,Y)(XDX,YDY),S2, :(X,Y)(XDX,YDY),S1,&&(RX(1),RY(1))(RX(1)DX,RY(1)DY),G1,G:''(RX(2),RY(2))(RX(2)DX,RY(2)DY),G2,G:'U(RX(3),RY(3))(RX(3)DX,RY(3)DY),G3,G:' (RX(4),RY(4))(RX(4)DX,RY(4)DY),G4,G:' O1 (RX(PT),RY(PT))(RX(PT)DX,RY(PT)DY),S1, :(RX(PT),RY(PT))(RX(PT)DX,RY(PT)DY),S2,' ( (RX(1),RY(1))(RX(1)DX,RY(1)DY),G1,:(I (RX(2),RY(2))(RX(2)DX,RY(2)DY),G2,:(w(RX(3),RY(3))(RX(3)DX,RY(3)DY),G3,:((RX(4),RY(4))(RX(4)DX,RY(4)DY),G4,:(XPX:YPY:17:XPX60:YPY10:17:XPX120:YPY:17:)(X,Y)(XDX,YDY),BL,:)#200:DX8:DY10:"V31T200L100") TS(2),BR(4),S1(12),S2(12),HP(30),Q$(10),ZX(5),ZY(5),BL(12),RX(4),RY(4),G1(12),G2(12),G3(12),G4(12),ZZ(12)) I110:Q$(I)::1ST,2ND,3RD,4TH,5TH,6TH,7TH,8TH,9TH,FINAL*"I15:ZX(I),ZY(I)::10,88,126,56,234,90,124,114,56,68*1(::" baseball":**" THIS COMPUTER BASEBALL GAME IS FOR TWO PLAYERS USING JOY- STICKS."*," PLAYER ONE WILL USE THE LEFT JOYSTICK AND CONTROL THE BLUE TEAM."+." PLAYER TWO WILL USE THE RIGHT JOYSTICK AND CONTROL THE RED TEAM."+Y/" THE BLUE TEAM IS THE VISITOR AND WILL BAT FIRST."+k09000::@96,1" ON DEFENSE, THE JOYSTICK IS USED TO CONTROL PITCHING, AND AFTER THE BALL IS HIT, THE JOY- STICK CONTROLS THE MOVEMENT OF THE OUTFIELDERS.",y2" TO PITCH, ORIENT THE JOYSTICK FOR THE PITCH DESIRED AND PRESS THE FIRE BUTTON TO RE- LEASE IT.",39000::@96-4" WHEN THE BALL IS HIT, IT IS THE RESPONSIBILITY OF THE OUT- FIELDERS TO GET THE BALL BACK INTO THE INFIELD. THE OUTFIELD- ER WHO FIELDS THE BALL WILL THROW IT TO THE BASE BEING AP- PROACHED BY THE CURRENT LEAD BASE RUNNER."-69000::@96.7" ON OFFENSE, PRESS THE FIRE BUT- TON TO SWING THE BAT. WHEN THE BALL IS HIT, ALL BASE RUNNERS WILL TRY TO ADVANCE ONE BASE AUTOMATICALLY. IF YOU WANT THE BASE RUNNERS TO CONTINUE RUN- NING, PRESS AND HOLD THE FIRE BUTTON.":9000/ 8:@96:" NOTE THAT ONCE A BASE RUNNER STARTS FOR A NEW BASE, THE BASE RUNNER MUST GO ALL THE WAY TO THAT BASE."/l9" IF THE BALL GETS TO THE BASE BEFORE THE RUNNER DOES, THEN THE RUNNER IS FORCED OUT."/w:9000/<70:100/F3::(0,0)(DX,DY),BL,G/H"C3BM4,0 D1BD2D1NG2NF2D4NG2NF2"/J(0,0)(DX,DY),S1,G0L:"C4BM4,0 D1BD2D1NG2NF2D4NG2NF2"0N(0,0)(DX,DY),S2,G0%O00P:2,10`R(128,181)(255,100),:(128,181)(0,100),0~T(127,100),124,2,.34,.5,00V(236,114)(127,80),0X(127,80)(18,114),:"BM124,182 C2 R8D4G4H4U4R8":(126,184),2,21IZ"BM238,104 E4F4G4H4":(240,104),2,2:"BM6,102 E4F4G4H4":(8,102),2,2:"BM122,68E4F4G4H4":(124,68),2,21`(127,40),134,3,.34,.5,0:(0,0),4,3:(255,0),4,3:(127,42),134,2,.34,.5,0:(127,52),126,2,.34,.5,0:2,1:(0,40)(0,100),:(255,40)(255,100),:(127,4),3,22a(118,170)(138,191),HP,G2%b(126,120),10,2:1000:2>d *** NEW GAME ***2[eTS(1)0:TS(2)0:NN1:O12ei9502~m *** NEW INNING ***2n3:I14:BR(I)0::NO02x80:O2 1402I1 5:(ZX(I),ZY(I))(ZX(I)DX,ZY(I)DY),S2,22PX60:PY30:331503<I1 5:(ZX(I),ZY(I))(ZX(I)DX,ZY(I)DY),S1,3B3VPX60:PY40:33o *** NEW BATTER ***3x1,03BH0:BF03(118,170)(138,191),HP,3I14:(60I4,178,1):(60I4,184,1):3S0:B03ǂ *** NEW PITCH ***4BX122:BY182:LX122:LY19043(118,170)(138,191),HP,4<SW04ZO2,1:(BX,BY)(LX,LY),4܅O1 PH(0):PV(1):PF(&HFF00)1 :PH(0):PH(2):PV(3):PF(&HFF00)24ޅ PF 2204BV(PV8)1:VXPH32:VXVX204TX128:TY120:SF05IP(TX,TY):(TX,TY,3):TD09::O1 HB(&HFF00)2 :HB(&HFF00)15j(TX,TY,P):HB0 SW0 2405TX124 TX132 TY182 TY188 SF15TXTXVX:TYTYBV:TY191 2285 SF1 SS1:1300 :BB1:14005S3 2366'DB4:3000:NONO1:1200:NO3 800 :500:1506=B4 500:2006DB0:BH0:BF0:I4 2 1:BR(I)BR(I1):RX(I)RX(I1):RY(I)RY(I1)::BR(1)1:RX(1)132:RY(1)174:WF1:30062206F0:SC4:SW16O2,16(BX,BY)(LX,LY),7SC2 LXLX4:LYLY2 :LXLX2:LYLY274(BX,BY)(LX,LY),7JMX(LXBX)2BX7`MY(LYBY)2BY7(MXTX)8 (MYTY)8 "O5FADAFAO4FAD":2607SCSC1:SC0 2427"O1DADAD":SF1:2318/"O1E":SC2 TX128 QX(SC):QY12:HC16:270 :SC2 TX127 QX(SC):QY12:HC16:2708`SC2 TX128 QX(2):QY14:HC16:2708SC2 TX127 QX0:QY12:HC16:2708 SC1 TX127 QX(4):QY14:HC16:2708 SC1 TX128 QX(2):QY16:HC17:2709 QX0:QY16:HC179DB0:WF0:BF0:BH1:P(TX,TY):I4 2 1:BR(I)BR(I1):RX(I)RX(I1):RY(I)RY(I1)::BR(1)1:RX(1)132:RY(1)174:3009,CQ0:(118,170)(138,191),HP,:6:PT1:1091CT2096I1 4:BR(I)0 3509@PTI: I 325,330,335,340:%E12:RX(1)RX(1)5.5:RY(1)RY(1)4:6:4F10:350:aJ13:RX(2)RX(2)5.8:RY(2)RY(2)1.8:7:pK10:350:O14:RX(3)RX(3)5.8:RY(3)RY(3)1.8:8:P10:350:T15:RX(4)RX(4)5.5:RY(4)RY(4)4:9:CT1 10:350:^:351:360;:_BF1 :O1 H(0):V(1) :H(0):H(2):V(3);Y`16:H10 PX4 PXPX4;uaH53 PX120 PXPX4;bV10 PY26 PYPY2;cV53 PY60 PYPY2;d3wBR(DB)0:3000: DB 12,13,14,15>XyNONO1:1200:NO3 800 :500:BH0:BF0:WF1:380>||CT0 385 :CTCT1:CT0 310>}(0,0)(DX,DY),ZZ,G:(0,0)(DX,DY),G3,:(0,0)(DX,DY),G4,G:(0,0)(DX,DY),G2,:(0,0)(DX,DY),G3,G?$~(0,0)(DX,DY),G1,:(0,0)(DX,DY),G2,G:(0,0)(DX,DY),ZZ,?I14:BR(I)(BR(I))::BR(4)1 TS(O)TS(O)1:"O1CDEFGABO2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGAB":BR(4)0?WF 150?:IFBF=0 AND BH=0 THEN150?CR(&HFF00):O1 CRCR 2 :CRCR 1@CQCQ1:CQ100 150@#CR 351:BF 360 :391@lI421:BR(I)BR(I1):RX(I)RX(I1):RY(I)RY(I1)::BR(1)0:305@UX126:UY114:QX(UXTX)16:QY(UYTY)16@(TX,TY,P):(TXUX)4 (TYUY)4 "O3DADADADA":ATXTXQX:TYTYQY:P(TX,TY):(TX,TY,3):510A$ O1 O2 :O1:NNNN1A:*950:NN10 990AD110A_:@138,"scoreboard":A" blue ";TS(1)A" red ";TS(2):ANN10 " ";Q$(NN):958B O1 " TOP OF THE "; :" BOTTOM OF THE ";BQ$(NN)B#9000B)BIއ:" play again? y/n"B_K$:K$"Y" 60BqK$"N" 991BwB"BM2,170 C3R4D4L4U4R4BR4D4R4U4BR4R4L2D4BR6R4U2L4U2R4"C"BM2,176 C2NR4D2R4D2L4R4BR6U4L2R4BR4ND4R4D2L4R3D1F1BR6U4BR6ND4D2R2NE2F2BR4U4NR4D2NR2D2R4BR4R4U2L4U2R4"Ck"BM2,182 C4 D4R4U2NL4U2L4R4BR4ND4R4D2NL4D2BR4NU4R4BR4NU4R4BR4R4U2L4U2R4CqKC(60NO4,172,3):"O3FEFDFO1DAFA":C(60S4,178,2):"O3DAFAEO5ADAFAFAAA":Cx(60B4,184,4):"O3EEEED":D DB0:F0:Q1 4:BR(Q)1 FQDڋD/F1 UX234:UY90:2060DMF2 UX126:UY56:2060DjF3 UX10:UY88:2060D|UX126:UY180D QX(UXTX)16:QY(UYTY)16DDBFD3D DB 3010,3020,3030,3040D "BM230,120":3100:3200:"BM230,120":3110:E2 "BM114,90":3100:3200:"BM114,90":3110:Ec "BM2,120":3100:3200:"BM2,120":3110:E "BM140,180":3100:3200:"BM140,180":3110:E "C4 R4D4L4U4R4BR4D4R4U4BR4R4L2D4":E &"C1 R4D4L4U4R4BR4D4R4U4BR4R4L2D4":F "O1EDFGBAGFEDC":TD0500::F4#(@484,"press [enter] to continue";FJ#2(13) 9010FP#<F\`4:2010:E "BM140,180":3100:3200:"BM140,180":3110:E "C4 R4D4L4U4R4BR4D4R4U4BR4R4L2D4":E &"C1 R4D4L4U4R4BR4D4R4U4BR4R4L2D4":F "O1EDFGBAGFEDC":0Z0S0$0I050ܽ$0+}'1wsf-0_1]M'& \O&0 1 ǮFoo9?3B9(%'Y--4P :P#ocP5 *4:뮍馄0&o53]'Z 09_=' '%' &\' ]'Z`1?0 ox9445494454M9' 9_ܦM'\ 9GC' 9 1"9 T&D GLOBAL CHANGE CHANGE: TO: 0 370<iHCHC1:HC0 (TX,TY,3):BH0:370<j(TX,TY,P):TXTXQX:TYTYQY:TX0 TX2:QXQX :TX255 TX253:QXQX<kTY16 TY16:QYQY2=mP(TX,TY):(TX,TY,3)=q380=,rBF0 380=ns(TX,TY,P):TXTXQX:TYTYQY:(TXUX)8 (TYUY)10 374=tP(TX,TY):(TX,TY,3):380=v"O3EFDFEO4FEO1ED":BR(DB)0 500:150 :BR(DB)0 2000:DB0 BF1:P1:370 :500:150>wBR(DB)0:3000: DB 12,13,14,15>XyNONO1:1200:NO3 800 :500:BH0:BF0:WF1:380>||CT*:(TX,TY):(TX,TY,3):380=v