oB$E$:Q$(Y)(B$,20):YY1:B$""P$(5)E$8P$(5)""(Y1)" "Q$(Y1)A580Q1:P$(5)E$W);"-";(Q$(X(2IN)2 ),16)X4," ............................................................";4,".........."4:4:4L01L1(Z$)L00L1L2BXP3$"[":P4$"]":"LIST TO PLOTTER N";Z${bP3:(Z$)89P6:L$"":P3$(219):P4$(221):4000lP1$"[":P2$"]"vM$L$:P1$P3$:P2$P4$"TRANSLATE CURSOR MOVES N";Z$(Z$)89T71250:250 10QADAPTED FROM 'DISK ST&' BY RAY SCHRINER RAY KREBS, PD INC. (V)8THIS PROGRAM WILL EXTRACT THE DIRECRY FROM YOUR DISK, ALPHABETIZE IT, IT OUT IN A COMPRESSED, THREE COLUMN MAT, SUITABLE ATTACHING1  THE JACKET OF THE D 1/4," ========================="KX1IN:CC1:C75440}PP1:4:4" "B$" PAGE"P"OF";Q:4:C3X1014," ";:X114," ";:(A$,1)"N"X1004," ";:(A$,1)"N"X994," ";:Q$(X) INT,CONTJ  LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEP  +,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND,LOG,EXP,COS " SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO,CONCAT$ , DOPEN,DCLOSE,RECORD,H 4,"TRANSITION FROM POSITIVE TO NEGATIVE"?4,"STATES. DURING THE CRITICAL DAYS YOU"o4,"ARE MORE PRONE TO ERRORS, ACCIDENT AND"4,"PHYSICAL SETBACKS."4," THIS BIORHYTHM PLOT FLAGS THE"4,"CRITICAL DAYS."4:4  (X)""SX: "Q$(X)""ZX:XN:V ,M2$:P$(9)4)"SORTING: "S:S(S2):S0350{ 6K1S:LKZSS:JL:T$Q$(LS) @T$Q$(J)340 JQ$(JS)Q$(J):JJS:J1320 TQ$(JS)T$:L,K:300 ^M2$:P$(9); h"SORT FINISHED IN "; Z PLOTTER LISTER C-64=] 1520 MODS BY ROSS CHEREDNIK]a LISTER BY JIM BUTTERFIELDd 19,147,17,145,29,157,18,146,20,148,141,32n 80-COLUMN CURSOR STUFFx 129,149,150,151,152,14,142,153,154 155 VIC STUFF 144,5,28,1ISK. IT IS WRITTEN THE STARMICRICS GEMINI 10X,x BUT THE SPECIAL ING COMMS (LINES 370540) COULD BE CHANGED WK WITH ANY ER THAT HAS 17 CPI CAPABILITIY. COMPLIMENTS OF RF LLI THE COMMODE USER'S GROUP OF TALLAHASSEE, FLIDA' ""XX14," ";X1;"-";(Q$(X),16);F4," ";(X2)IN;"-";(Q$(X(IN)1),16);y4," ";(X3)(2IN);"-";(Q$(X(2IN)2 ),16)X4," ............................................................";4,".........."4:4:4EADER,COLLECT,BACKUP,COPY,APPEND,DSAVE,DLOADK 6 CATALOG,RENAME,SCRATCH,DIRECTORYa @J090:K$(J):Jo ^53272,21 h53280,0:53281,0 r(147);14);"PLOTTER LISTER" 1:"NAME OF PROGRAM FILE";G$  1,8,3,G$",P,R" #1,A$,B$ I1CO:4,"-";::4(I1CO:4,"-";::42L<0,31,59,90,120,151,181,212,243,273,304,334FMONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAYPJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUSTZSEPTEMBER,OCTOBER,NOVEMBE m(TI$,2);" SECONDS"P pV$(27):QO$(34): SPECIAL PRINTING COMMANDS V$=ESC / QO$="t r"PRINTING...":4,4:4,V$;"H" t4,V$;(66);(3):4,V$;(65);(9):DI$QO$ID$ u4," CLIP AND ATTACH TO DISK JACKET"5w4," 59,156,30,31,1588 8,9,133,137,134,138,135,139,136,140| HOME,CLEAR,DOWN,UP,RIGHT,LEFT,RVS,RVOFF,DEL,INST,RETURN,SPACE ORANGE,BROWN,L.RED,GRAY1,GRAY2,TEXT,GRAPHIC,L.GREEN,L.BLUE GRAY3 BLACK,WHITE,RED,CYAN,MAGENTA,GREEN,BLUE,YELL RF LLI, VIC LIBRARIAN, (904) 9263388 - > dN144:Q$(N)u nM1$"**** INPUT MODE ****" xM2$"**** OUTPUT MODE ****" M1$:P$(5)5):"DATE";DT$:DT$""DT$"UNDATED" Y1:X15 P$"4:4*"ANOTHER COPY";A$:"":(A$,1)"Y"P1:3700&@01,8,0,"$0"|:T128:#1,A2$:B$B$A2$::P$(3)B$:ID$(B$,20):B$""D#1,A2$:ST680NA2$(34)580XA2$""bB$B$A2$l#1,A2$:ST680vA2$(34)610 B$A$(1)A$""400% A$""A$(1):#1,X$H "LINE NUMBER RANGE -";Z$] L00:L10:L21E9y J1(Z$):Y$(Z$,J,1)  Y(Y$):Y48Y57510  Y32510  L0J:Y45600 J L0(Z$)L2((Z$,L01)):L20L21E9TR,DECEMBER0d" 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031"AYS YOU"o4,"ARE MORE PRONE TO ERRORS, ACCIDENT AND"4,"PHYSICAL SETBACKS."4," THIS BIORHYTHM PLOT FLAGS THE"4,"CRITICAL DAYS."4:4  ............................................................";Ix4,".........."P{4|4,V$;(15);:4," DIRECTORY, ";}4,V$;"G";DI$;:4,V$;"H";4," DISK, ";DT$:P1:C2Z3(Z3)ZZ1:400Q(Z72):IN(Z3)OW( LOCK,UNLOCK,F1,F2,F3,F4,F5,F6,F7,F8A A(40),A$(40),K$(90)V J039:A(J):Jl J039:A$(J):J END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN,IF,RESTORE,GOSUB  RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#,PR":T110:P$(T)(P$,T)::E$" "h M1$:P$(5)"INSERT DISK, TURN ON GEMINI 10X" " PRESS ANY KEY TO BEGIN PROCESS " Q9$:198,1:198,0:M1$;""; 560:260 TI$"000000" X1N:" " Q$56334,(56334)1 [ 900,1% _ 10001 dP12288D nZE$"00000000"b xNB$(0)"0":NB$(1)"1":B2m zJ1X C0:IPCP(J)8(PCP(J)8)7:CC1 F$"":H(I) Z1HB:Z2(Z1):RH(Z2B):HZ2 F$NB$(R)F$ H1190 150 (Fr"HOW MANY DAYS TO RUN";SPC |"WOULD YOU LIKE THE BIORHYTHM THEORY"h "EXPLAINED ON YOUR PRINTOUT";P$t SPSP1 RBTB1((TB1)7)7 ""; 4,"";S$"********** B I O R H Y T H M **********" 4,(CR$,2) (P$,1)"Y" 113Y$(R),3)" "(DD$,2DS1,2)" ":ZZ1:7203MS13MS1:ZZ1:700BZZ1:700R1300:1320dSS13:4,:m250|$CT(CO2).T2$""CTCO8T1((CT(T$))2)BT114,T$:1120LT2$T2$(AS$,T1)T$V4,T2$:4` 0)D1D11:D10D170(Y2200M03)(Y2200)D1D11:D10D17_(Y2300M03)(Y2300)D1D11:D10D17ex(Y100(Y100))(Y400(Y400))E128:1410}E129" THIS IS A PROGRAM":" TO SHOW A " YEARLY  d BIOPRINTER 6.0)nA%(12),M$(12)Mx""9)" B I O P R I N T E R "{"INPUT DEVICE #, SCREEN=3 PRINTER=4";DVDV3DV41304,DVCO39*FOR80 COL:IFDV=4THENCO=79S$(1):CL((CO10)2):CNCL10 I110:CR$CR$ "13001320 AT$(DAY$(R),3)" "(DD$,2DS1,2)" "M$(MS)WF(0)CN:F$(0)"*"sF(1)CNI(X):F$(1)"I"F(2)CNE(X):F$(2)"E"F(3)CNP(X):F$(3)"P"F0I02 JI13F(I)F(J)850! F(I)F(J)F( $)8F$(ZE$,8(F$))F$% PO$(C,J)F$1 I: Jb "EADY PRINTER AND PAPER AND HIT RETURN:"y Z$:Z$(13)217 4,4 "EADY PRINTER AND PAPER AND HIT RETURN:" A$" ":198,0 JC$:JC$""222 C$"":I18:C$C$A$:  0 T$" ANALYSIS FOR "N$" ") T2$S$:1060D 4," "v T$" BORN "DAY$(RB)", "M$(MB)(DB)", 19" T$T$(((YB10)),1)((YB),1)" " T2$"":1060 RTS1((TS1)7)7 660 T$" STARTING DATE "DAY$(R)"j4,"THE PURPOSE OF BIORHYTHM IS TO PREDICT"Ht4,"A PHYSICAL, EMOTIONAL AND INTELLECTUAL"ty4,"PATTERN THAT INDICATES YOUR UP AND"~4,"DOWN DAYS FOR ANY PERIOD OF TIME."4," BIORHYTHM CAN SHOW WHICH DAYS WERE"4,"GOOD OR BAD FOR CALENDAR.":" ON THE PRINTER."M" PLEASE TYPE IN THE":" YEAR THAT YOU":" WANT TO SEE.g" USE ALL 4 DIGITS.s"";Y"" THANK YOU. NOW TURN ON THE%"PRINTER AND HIT A KEY.,J$:J$""15806(Y2100M03)(Y210(13):8 I1CO:SP$SP$" ":AS$AS$" ":AR$AR$"--":M I112:A%(I):c I06:DAY$(I):x I112:M$(I): DD$ "INPUT YOUR NAME";N$ Z0 "INPUT BIRTH DATE MM,DD,YY";MB,DB,YB MS(MS):DS(DS):YS(YS) ""INPUTI)CNF(I)CNF(I)0:F$(I)"":F$(J)"C":F1:850O*F(I)F(J)F(I)0:F$(I)"":F$(J)"X":850c4QF(I):Q$F$(I)}>F(I)F(J):F$(I)F$(J)HF(J)Q:F$(J)Q$RJ,I\F1T$T$(AR$,CN1(T$))fI03pW(T$)zF(I)W910T$T$I I1X1 M18! J811Q (PO$(J,I),M,1)"0"P$P$" ": 300^ P$P$C$ , J:Q14:4,P$:Q:P$"": M: I: 4 6 "()RINT AGAIN, ()UN PROGRAM OR ()UIT" @Z$:Z$""320 JZ$"P"220 TZ$"R" ^Z$"Q"32,"M$(MS)(DS)", 19"6 &T$T$(((YS10)),1)((YS),1)" "G 0T2$"":1060 :T$((23(X23(X23))))" DAYS INTO THE PHYSICAL CYCLE" DT2$"":1060 NT$((28(X28(X28))))" DAYS INTO THE EMOTIONAL CYCLE" XT2$"":1060+bT$((YOU BEGINNING WITH",4,"YOUR BIRTH. IT CAN ALSO SHOW YOU WHICH"Y4,"FUTURE DAYS WILL BE GOOD OR BAD FOR"g4,"YOU."4," THESE PREDICTIONS ARE BASED ON"4,"SCIENTIFIC STUDIES TO DETERMINE WHY"4,"ACCIDENTS OCCUR. IT WAS LEARCP(255):PO$(8,255)+ (14):(8)D 53280,11: 53281,0U(900)195 "COPYING CHARACTER DATA TO WORK AREA"( 56334,(56334)254: 1,(1)2512I0127<J07F 12288I8J,(55296I8J)PJ: I Z 1,(1)4:  START DATE MM,DD,YY";MS,DS,YS9 ,MB(MB):DB(DB):YB(YB)Y 6I(X)(CL(2X33).5)y @E(X)(CL(2X28).5) JP(X)(CL(2X23).5) TTS(DS365.25YSA%(MS).01MS.03) ^TB(DB365.25YBA%(MB).01MB.03) hXTSTB (SP$,F(I)W)F$(I)44,T$:XX.5:(X)XT$" ":720CZSP1030VRR1:R7R0DSDS1:MS4MS6MS9MS11L30:990MS2YS4(YS4)L29:990MS2L28:990L31DSLDSDSL:MSMS1:1010T$(DA0 h SM1064:SHSM; L "YPE IN MESSAGE TO BE DISPLAYED:"O VA$:A$""1110 `A$(13)"":"LEASE WAIT WHILE LOOK AT THIS":2000 j A$;:SHSH1: 1110 X0:ZSMSH:XX1 CP(X)(Z)  Z C$"":I18:C$C$A$: 33(X33(X33))))" DAYS INTO THE INTELLECTUAL CYCLE"<lT2$"":1060ivT$"P = THE PHYSICAL CYCLE":T2$"":1060T$"E = THE EMOTIONAL CYCLE":T2$"":1060T$"I = THE INTELLECTUAL CYCLE":T2$"":106044,13)"DOWN UPNED"4,"THROUGH THESE STUDIES THAT A PHYSICAL"A4,"CYCLE OCCURS EVERY 23 DAYS, AN"p4,"EMOTIONAL CYCLE OCCURS EVERY 28 DAYS,"4,"AND AN INTELLECTUAL CYCLE OCCURS EVERY"4,"33 DAYS."4," THE CRITICAL DAYS OCCUR DURING THE"30GD111,(15)6);D;:330,H1,(15)3);D;:330?I1,(15)2);D;EJaKDE11,(15)5);:350{LD11D91,D;:350MD11D91,D;:350OD91,(15)2);D;:350P1,(15)1);D;^DE11,(15)9);:435328 pkkh?d`\XUT|UdRDRRQOOON-d15,8,15:53280,0:53281,0:""(142)We" AUTO DIRECTORY PRINTER"|f" BY DAVID TURNBULL"n" PLEASE REMOVE DISK FROM DRIVE 8"x" AND PRESS RETURN"A$:A$(13)130 " ENTER DI 5:J6:12% j1,(14)9)"JULY"16)"AUGUST5 lI7:J8:12\ t1,(14)7)"SEPTEMBER"13)"OCTOBERm vI9:J10:12 ~1,(14)7)"NOVEMBER"13)"DECEMBER I11:J12:12 1,(15)1):1: D4W4(M8):D7W4(M8)6 DD4:1050 D11"WHY D1 baRFU1:RϞRG*!FREADING SECTOR: G*!aRpRlG*! Rˊ(Feb("FRˊh(ReFe(""(hR Rnn(G*!Uѹ,%/w/FCONVERTING FILE NAMES...."ˊ(* ( RURR8(* F % FROM COMPUTE GAZETTE APRIL 84H65517:A(781):A4053281,1f1,4:W4(3):1510:I1:J21,(14)" CALENDAR FOR";Y:1:1 1,(14)8)"JANUARY"13)"FEBRUARY 1009:1000:1012:C06:1019:1000:1022 M0I:M81:292: DE11,(15)9);:435329(1,(15)1);D;.JDE11,(15)9);:535S532oDE11,(15)9);:535x5331,(15)5);D;:5351,(15)4);D;1,(15)3);:9921,(15)6);1,(15)7);  sSKS IN DRIVE AT WILL FOR"D " AUTO-DIRECTORYS.":13);e "INSERT DISK"; 15,"M-R"(0)(28):#15,A$:A(A$(0)) (A 16)220 " ":TI$"000000" TI100245 4,4 2,8,0,"$":400:#2,A$,A$,=";D1 M81(D1)10528, M81(D1)9530D M82(D1)10428f M82D430D4E1433:217} M82(D1)9430 DD41D7:1050:331: W4(M8)D71 $M01M03M05M07M08M010M012E131 %M04M06M09M0 -(8(w/FSORTING......................Њˊ( dF dRdF$*Fj* 2.(j.( h (* h (Fj``-%/oi/ˊ(RFB-P:RϞRkG*UkR+ЊG*Rˊ20:35+ D1:1050:W28D1:W4(M8)W21:3219 D1730R D2W2:1050:331:X t #990:M0J:M82:292:20} ,W31 -M0I:M81:292:200 .W4(2)91,(15)1); 2991:M0J:M82:292:200 8W31W4(1)91,(15)0); 9W31W4(1)1,(15)3);,1," SUN MON TUE WED THU FRI SAT";2_1," SUN MON TUE WED THU FRI SAT"ev1,(15)3);1," ";1," "M01M013: G )r7>=~Tyct\tokkgdV` \ X TTaU1R(R RPOONNA$,A$3 #2,A$,B$:4," "(A$(0))(B$(0))256;R #2,A$:A$""4,A$;:270q 4,"":#2,A$,B$:ST0300{ " 260 ,2:4,"":4:" REMOVE DISK"; 615,"M-R"(0)(28):#15,A$:A(A$(0)) @(A 16)0350# 11E130 &M02Y4(Y4)E1286 'M02Y4(Y4)1400< ([ AD171,(15)36);D;:330z BD161,(15)31);D;:330 CD151,(15)26);D;:330 DD141,(15)21);D;:330 ED131,(15)16);D;:330 FD121,(15)11);D;:3( iR()R RFCD(RFU2:RϞRG*!w/FWRITING SECTOR: G*!F Ь(FD O N E w/RRFОfq"ˊ((#s/fRR qFR/RqF1(#R U(FURR8(* F101,(15)1);+ :W34W4(2)301,(15)0);7 AW3W31F FW3C045Q G1," "^ HI186k II396y JI5106 KI7116 LI9126 MI11199 V1,(14)9)"MARCH"16)"APRIL XI3:J4:12 `1,(14)10)"MAY"17)"JUNE bIYY1:1080$M02M014:YY18MM02ELD1(2.6M0.2)DY1900((Y1900)4)\~D1D1(194)219rD1D1(D17)71M04M09D1D11M013M01:YY1:1250M014M02:YY1:D1D11D18D11(Y2100M03)(Y210dF" S O R T D I R BY CHRISDOSRRRFIRRRF#L*J15,"M-R"(0)(28):#15,A$:A(A$(0))5 T(A 16)330a ^15,"M-R"(0)(28):#15,A$:A(A$(0))u h(A 16)0350 r 200 15,E1,E$,E2,E3:E10 ""E1;E$;E2;E3 4:2:15: TI100245 4,4 2,8,0,"$":400:#2,A$,A$,fEnoa SL& JL%8e/med0ldp L&  fEnoa SfIfL& JL%{l%m$ibcjkEFe/d0El\FdfebembcelcjeEjkeFkm&l&E&F֥becdE\0kjk iL& LgiL fEnoa +L& %$  ML $Jʆ%$P/0Fdfe /eP/0eQ0P&Q楶 K/eme0eld\PR0 L>LbJLR0DL'd  "9#:$1%2ABD" " D"L& "("8473AB("/"0/ɖܩ(ͣL /L& deL f L  浠edL& B 0 :)eL%L Ȫ$Ȅ% nL  e/  e0  edLr E/%0L& /LV !/90: `8LK\^#def  e  e  e L& K`ln8dmi`mZʊee$f% nL& e`L& 8lee)ʊem$n% nL& deedȄL& LH }&831e42dL& / 浥ed &d &deeedeIeJ/>=>L& /0/Laȱ/f bȱ/cȱ/dȱ/eL& / e d L& mlL& /  ( cd0/ L& (L& O\ ( ^%$q]$ h n\L& (L& dLHe"f# L& v&`L& v&hL& ڡiI>)HȘ2/FEȹȄ?EȱE L% Bӈ80 :"eee;"eddp ڥ\ L9AB L& _L _L de膵`EddEeeed`9:`L`, "=L& /0/dȱ/eL& / e d*eeedeIeJ/J=>L& 0/ȱ/dȱ/eȱ/fL& !L !L !L, !/lȱ/mL& !/iȱ/n jȱ/kȱ/lȱ/mL& !/lȱ/mȱ/nL& 9=9i9:9>  d?ʤ?л вiE 'E)bcjkjbȱjbE`X78_N5`O64~3xvX0 ' 'N N '8fX 'XSFXN_ȱN_" '56 'N_^"NO43 'N '0L'" '56 'L!'563$ p< $ E$"Ș n9A _LC!L& AX/)?$/0p"0 m c0 L% cAeȱAd d cAeȄH$H8eAAB`AB"Ȅ#`*lABeȄfȱA\)?d$\pȘ cL%ABL& de Ƶ` BӅeL&   ̼ L& BL& d(l ldem d```l` )"- )$  % deL& deȄL& L5 }&e$f%dd6Ȅ/43/ʆ43ef33$3$342F`f`LX8delp/3/43lm3h/h/h/h/h/L& h/L& !9H:HH/9ȱ/:L, 9:9/0 &0 &0 &08//080i(0/)/f/e/dL& /f/e/d/c/b/aL& 9:9/0 &0 &0 &08//080i(0/)/n/m/lL& /n/m/l` 9:L, LL9Х de Ƶ` `.ldldmeme` `h`hp` L%de ƵL% 0/ Ƶ`eIedIdedL& fIfL& %e/emed0eldpL&  fEnoa jL& JL%8e/meed0lddpL&  =ȥe=L& 9=9i9:9>0O=dȑ=ȥe=L& pp   L a=eӥbȦf0)=ȥc=ȥd=ȥe=L& =20=/=/ȑ/f2dȱe dd=eȥ>ef=e=d=L& 9Iȱ9J9i9:L, 9/9i9:90`\ 8I4` 'I8eNONO`I8e_`_``N"`TROLY STGARB   NN .  SUqnn~ytrt" L&  9 edL& fd LL& d0eȈ` L&  Ƶ  qL&  L&  dL&  kL&  L&  L&  L& H%H d0>fle l l de/h$hhL dLH` de` ( f m3le3$4%de$e$/33d3e4f2 XL& dldlLL em$n%ll nL& ed8l_eem$n% nL& dL& ݽȄeȹdf dL& eȄ$Ȅ% nL& dfL& `L`/k/j/iL& 9:9PQ &Q &Q &Q8PPQ8Qi(QPXP0VePdPL& pp8 # P  L%fPePdPcPbPaPL& Ь͠P2%P$P$ȑ$f2 dȱe ddPiQeȊefPePdPL& ednhmhlL& hhL& de膵L& ml膶L& deL& lmL& ʎ7L& LH#)@U fL[7\膵 ; ).ǽ$-\+ .@0:Lf B p L%Ƚ9,6 :0.EȤ;" p  #Ƶ;100 nF0F1' x4,(C$S$,16);:C$""H C$C$B$: #1,B$:B$""130d 4," "(C$,2):ST030 4," BLOCKS FREE":4,(12):1:4 " HANGE ISKS IN RIVE ";D " HILE 'M USY ITH RIVE"D2 " EMOVE DISK 0(/(/ȩ/f2dȱe dbȘdeȩ(efb(d(e(L& Р(/  /L pp8 #ed(aE"ɐ) %c 𾪽%bca(b(c(d(e(f(L& (J((L& 9) L L Lf L L3 L LB LT L Ȅ9eȱ9d9jkIkkjnlmijkjlki in`ik&j8iIiiifjfk`L~涥iɐiݥ LHlm`8$nƶi `涥mImlIlml騥i)Fjj L{% d%lde%meL& % dldemeL&  K`浥 K `U1150 "" ! 15,EN,E1$,E2$,E3$A EN0"";EN;E1$;E2$;E3$:G h A(IQ)10A$"<":980 A(IQ)127A(IQ)32A$".":980 A$(A(IQ)) A$;:P1,A$; Q " ";:P1," "; Q07 AA(IQ) A1A15:A0$,16);:C$"") C$C$B$: #1,B$:B$""130E 4," "(C$,2):ST030h 4," BLOCKS FREE":4,TF$:1:4 " HANGE DISKS AND HIT ANY " " KEY FOR ANOTHER DIRECTORY" 198,0 WW$:WW$""180 104:#1,A$,B$-  $$ML79%i9:Hȥ:ȥ9E3*HEdEȥeEL& de H L&   DHL8LH  HL2 h/h0hmhlhh @ lm @ 0H/HHLL& deaɐ) %c```%bc`?x(L0hIN DRIVE"D"TO END." 198,0 10? 15,E1,E$,E2,E3:E10300E U ,1:4:15: 15,8,15:15,"M-W"(106)(0)(1)(133):15 15,9,15:15,"M-W"(106)(0)(1)(133):15 0 Z #1,B$:B$(34) C$C$B$:90 d #1,B$:B$(32) i9:L& Ȅ9mȱ9l9i9:L& 9`9i99hL) dȄ9e9:L& lȄ9m9й:L& 9:ifeȱ9dee9::L, 9:inmȱ9lem9::L, ȱ9ȱ9:9L㨥 ݽL ;L& d - LL b8e:"ed 浥dIdeIeL& H)6+ H)-" H)$ H) H) H) deL& deL& %%d0l0ld0 em```  f0n`n I)`aiƨƥbjлckгdlЫemУ`a ed9e99#D9:D28:400: DEVICE NUMBERR53280,6:53281,6:53272,23:"":CR$(10)[4,4"  IRECTORY RINTER ":160 "  IRECTORY RINTER ": D9 D8:D29: 20 D8 D9:D28: 20 15:15,D,15:1,D,0 (2073) PETSPEEDLE"((g,p,/y.W}  &/ (,04bb!#r#!,K9%]BKTfoq6B#l"E"Z  m H#K3,K ?LF xW FhEp E Ea0 EdȱEe _EdȱEehmhl 0LeemedeldpdeEdEhmhl 0.ld0Ad0l0 Lme.h:h9XL& LL(ld0d0lLemXhhL& E! EȱE fEnoa j LLHHWH0de E8Ln EfoNTF$(12): TOP OF FORM - MAKE IT 0 IF YOUR PRINTER DOES NOT HAVE T.O.F.~53280,5:53281,13:53272,23:"":CR$(10)"  IRECTORY RINTER ":160 "  IRECTORY RINTER "1,8,0,"$":4:4,4:#1,A$,B$- ;"de}:"ed};"d b bi/! о! de! f` תL& e ;eL& e8Ӑ  ;L& de"f# %L& 8 Iiע#ʆ"L% h(hmhlHHHlHmHdHeHHL& D hإd%e$ (  dlem%d$eL HHH:L& 9ȱ9:9L, 9iH:HHL5hɤ h:h9L&  D Lਊiۊi e? /9/64ȱ9/e99:9L:L㨊e9H:ȘHHԱ9e99:L& dHeHfHHL& p #aHHL& hhfhehdL& h`L& hh,"$":200:4:4,4:#1,A$,B$L  #1,A$,B$:#1,A$,B$:C0:S$" "` (A$""C(A$)z 2B$""CC(B$)256 <4,((C)S$,2,3);:C$"" F #1,B$:ST0 150 PB$(34)70 Z #1,B$:B$(34) C$C$B$:90 d #1,B$:B$(32)@ g T H B N  N##!$o$$9:9   L L L &?'@l?()(f(d(epL& p(a(b(c(d(e(fL& ()(n(l(mL& (i(j(k(l(m(nL& (e(x0 d(e(L& b(2a j`EWhW   HLkLEl0m/ n Efoa j hh    L:9 @ 0/ @ EHFHHL& E`E`xhL0/h9Fh9E9i9:$/f/L/ i LiLlmƶjkI*jI(A240)16 A1A148:A157A1A17: A0A048:A057A0A07P $" ";(A0);(A1);l .P1," ";(A0);(A1); 8Q:" ":P1," " BI L"":P1 V"ANOTHER -YES OR NO-"; `A$:A$""1120 jA$"Y"750 t4:15: ~A$:A$"" #1,A$,B$:#1,A$,B$:C0:S$" "A (A$""C(A$)[ 2B$""CC(B$)256x <4,((C)S$,2,3);:C$"" F #1,B$:ST0 150 PB$(34)70 Z #1,B$:B$(34) C$C$B$:90 d #1,B$:B$(32)100 nF0F1 x4,(C$S @ %$ @ HL& h ( HHH @ L hh L h?h@?@h`l?h?h@?@aHl?HHHdHeHHHHL&  Lc aHHH HHHHHL& h%9EHȱ9FH$% i L ii08i FEʆH%e$Z1$(0) ""/ "HARDCOPY (Y OR N) ";:P0B A$:A$""700R A$"Y"P1f 4,8,4,"#":CH4s 15,8,15 P1,4 "" "DRIVE ";D "TRACK ";T "SECTOR ";S "":P1,(13);(13);"TRACK";T;"SECTOR";S;(13) " ######": X$(Y)"##### ":= X$(Y)" #### ":Z X$(Y)" ##### ":w X$(Y)"#### ##": X$(Y)"## ## ##": X$(Y)" ## ##": X$(Y)"## ## ##": X$(Y)"## ####": ,1550,1560,1570:13201V551580,1590,1600,1610,1620,1630,1640,1650:1320iV631660,1670,1680,1690,1700,1710,1720,1730:1320 V711740,1750,1760,1770,1780,1790,1800,1810:1320V791820,1830,1840,1850,1860,1870,1880,1890:1320 V8 260,340,340,340,260: Z 210,470,470,470,570:(&Z 260,340,340,750,230:F0Z 210,470,470,470,790:d:Z 650,310,310,310,660:DZ 490,490,210,490,490:NZ 240,550,550,550,240:XZ 690,720,700,720,690:bZ 210,630,620,6 # ## ##### ":X$(Y)"## ### ##":4$X$(Y)" # ## ##### ":c." THIS PROGRAM PRINTS POSTERS OF 1 TO 4"8"LINES,ANY LENGTH,ALL ASCII CHARACTERS."L"NUMBER OF ROWS (1-4)";EVS142E`"MESSAGE . . .  10:Z 260,310,310,310,660:"Z 930,940,950,960,690::,Z 300,310,310,310,300:X6Z 650,310,310,310,260:v@Z 520,520,420,520,520:JZ 520,460,420,520,520:TZ 250,440,420,340,520:^Z 440,440,440,440,440:hZ 5 TRACK";T;"SECTOR";S;"". 15,"U1"CH;D;T;S:1180@ *15,"B-P"CH;1g 4I12505:#4,C1$,C2$,C3$,C4$,C5${ >A(I)(C1$Z1$) HA(I1)(C2$Z1$) RA(I2)(C3$Z1$) \A(I3)(C4$Z1$) fA(I4)(C5$Z1$) pI zI12508 I1211150 X$(Y)"###### ######":% X$(Y)"###### ##### ":B X$(Y)"## ## ":_ *X$(Y)"## ## ":| 4X$(Y)" ## ": >X$(Y)" ## ": HX$(Y)" ## ": RX$(Y)"## ## ## ": \X$(Y)"## ### "71900,1910,1920,1930,1940,1950,1960,1970%(1,X$(Y)(S$,S);: YF21,"": Z:1,"": X1:1:1:d<Z 520,520,520,520,520:FZ 520,520,640,520,520:PZ 520,930,520,930,520:ZZ 430,260,430,260,430:dZ 650,310,210,310,660:n30,210:lZ 350,450,620,450,350:vZ 590,610,580,610,590:6Z 730,740,310,760,770:TZ 520,520,520,520,520:rZ 840,830,540,830,840:Z 210,210,210,210,210:Z 210,270,290,250,520:Z 520,250,290,270,210:Z ."jX1E:"ROW";X;: A$(X):X:8t"WIDTH (1)=SINGLE; (2)=DOUBLE";W\~Q1:Q15:Q21:W2Q15.5:Q2.5X15:(A$(X))R1R1(A$(X))XX11R1:ZQQ1Q2E412101,(S$,6(3E)11);YE11X1(A$(Y))20,340,420,440,250: rZ 820,490,740,470,570:*|Z 280,320,330,320,480:HZ 220,470,470,470,220:fZ 210,310,310,310,300:Z 260,340,340,340,410:Z 210,340,340,410,270:Z 210,310,310,310,340:Z 210,470,470,470 A$((1000I),3)":"' A$;:P1,A$;2 Q07M A(IQ)13A$"_":980h A(IQ)10A$"<":980 A(IQ)127A(IQ)32A$".":980 A$(A(IQ)) A$;:P1,A$; Q " ";:P1," "; Q07 AA(IQ) A1A15:A0: fX$(Y)" ## ## ## ":* pX$(Y)" ## ## ## ":G zX$(Y)" #### #### ":d X$(Y)" ## ########": X$(Y)" ###### ##": X$(Y)" ###### ## ": X$(Y)" ###": X$(Y)"#### ##": X$(Y)" #### Z 390,1010,1000,1020,400:xZ 710,1040,1050,1060,360:<Z 520,500,490,520,520:ZZ 520,290,420,340,520:xZ 520,340,420,290,520:Z 880,620,280,620,880:Z 250,250,280,250,250:Z 520,370,380,520,520:Z 250(X ********************************Mb *DISK UTILITY PROGRAM TO PRINTql *CONTENTS OF A DISK SECTOR INv *HEX AND ASCII. USEFUL IN CHECKING *IF DATA IS STORED CORRECTLY. ********************************A(264):53281,1  #### ": bX$(Y)" #### ":8 lX$(Y)" #### ":U vX$(Y)" #### ":r X$(Y)"## ##########": X$(Y)" ## ###### ": X$(Y)" ###### ## ": X$(Y)" ## ##": X$(Y)"## ########": X$(Y)"V32:1240V((A$(Y),X1,1))Q(V8)31240,1250,1260,1270,1280,1290,1300,1310:"ILLEGAL VALUE":V311340,1350,1360,1370,1380,1390,1400,1410:1320V391420,1430,1440,1450,1460,1470,1480,1490:1320V471500,1510,1520,1530,1540,490:Z 260,340,340,970,660:Z 210,250,250,250,210:8Z 520,340,210,340,520:VZ 530,340,240,490,490:tZ 210,250,440,420,340:Z 210,550,550,550,550:Z 210,600,620,600,210:Z 210,600,620,630,210:Z ##":X$(Y)" #### ##":/X$(Y)"## ## ##":LX$(Y)" ## ## ##":iX$(Y)" ########### ":X$(Y)" # #### # ":X$(Y)" #### # #":X$(Y)"# # #### ":X$(Y)"## ###":X$(Y)"#,250,250,250,250:Z 520,520,550,550,520:,Z 360,630,620,600,930:JZ 270,410,340,410,270:hZ 800,810,210,550,550:Z 810,730,740,850,860:Z 410,310,310,870,890:Z 560,250,250,210,250:Z 900,310,310,310,9% 53280,11: 53281,0: 53272,20;""^ 11):" LETTER WRITING 64 "n "" " "" ANδ" PROGRAM! " d POSTER"n JEFF JESSEE;x 812 COLDWATER DR.Y CASSELBERRY, FL. 32707_ NOTE THAT THIS PROGRAM IS VERY INNEFFICIENT SPACEWISE, BUT WAS CODED THIS WAY TO SAVE RUN TIME. YOU CAM CHANGE THE CHARACTERS IN LINES 130-7 DyD"y ::::: SUBROUTINE LIST :::::D,yD6y 100 SETUP/MAIN MENUD@y 1000 PRINT MENUDJy 2000 INSTRUCTIONSETy 4000 LABEL BORDER?E^y 5000 LINE LIMITER & INPUT LINES\Ery 7000 HOW MANY LABELS?wE|y 8000 STANDARD PRINTEy 9000  HT KEY FOR A "SPACING OF TWO LINES.N "RESS A DOUBLE ASTERISK TO END THE PRO-x "GRAM.  RESS ANY KEY TO CONTINUE.  A$: A$"" 260 " ΠҠ " ""  1,4,7 5);: A$  A$"**" 1,4,7: "1, X$(Y)" ## ## ":.X$(Y)" ## ## ":KX$(Y)" ### ### ":hX$(Y)" # ":X$(Y)" ## ##":X$(Y)" ## ##### ":X$(Y)" ##":X$(Y)" ## ":X$(Y)" ###### ## AHE$""AIF$""A IAI ::::: LABEL #7 :::::A IA$"UNASSIGNED LINE 18720"A*IB$""A4IC$""A>IE$"" BHIF$""BRI+B\I ::::: LABEL #8 :::::JBfIA$"UNASSIGNED LINE 18790"TBpIB$""^BzIC$""hBIE$""rBIF$""xBIBI ::::: LABE "4  N13000: NJ "": 53272,22w ("HIS LITTLE PROGRAM WILL ALLOW YOU TO 2"USE THE 64 KEYBOARD FOR TYPING LETTERS <"AND PRINTING THEM ON THE 1525 PRINTER. F" ӠՠԠ  737 BUT DARKER CHARACTERS MAY BE HARD ON THE PRINT HEAD.cA$(5),X$(5):S$" ":X16:S$S$S$:Xl1,4v1070X$(Y)"##############":X$(Y)"############# ":X$(Y)"## ########## ":X$(Y)" #############":X$(Y)" DOUBLE WIDEEy 10000 SETUP EMPHASIZEDEy 11000 LABEL FOR SCREENEy 12000 80 CPL SETUPEy 13000 132 CPL SETUPFy 14000 40 CPL SETUP.Fy 15000 66 CPL SETUPFFy 16000 TRIPLE WIDE]Fy 17000 YOUR LABELvFy 18000 10 MOST USEDFy 25000(16)"05";:1,A$ 6 B$: B$"" 310/ @ B$(13) 285G E B$"" 1,: 285c J B$"" 1,:1,: 285 h: TO CHANGE THE LEFT HAND MARGINE, CHANGE THE TAB( ) IN LINE 285 AND THE r: NUMBER IN QUOTES IN LINE 290.#|: TO SET THE RIGHT MARGI": X$(Y)" ":3 X$(Y)" ## ##":P X$(Y)" ############":m &X$(Y)"## ": 0X$(Y)" ########": :X$(Y)" ###### ": DX$(Y)"######## ": NX$(Y)" ####": XX$(Y)" L #9 :::::BIA$"UNASSIGNED LINE 18860"BIB$""BIC$""BIE$""BIF$""BIBI ::::: LABEL #0 :::::CIA$"UNASSIGNED LINE 18860"&CIB$""0CJC$"":CJE$""DCJF$""JC$JPCagCa ::::: END :::::mCazCa (147)Ca (147): "4 P" 1. YPE NO MORE THAN TWO SCREEN LINES_ Z"(ONE PRINTER LINE) BEFORE PRINTING. d"RINT BY PRESSING THE KEY. n" 2. OU CAN'T USE COMMAS, COLONS OR x"SEMICOLONS IN YOUR COPY. F YOU DO, "THE COMPUTER WILL D## ":$X$(Y)" ############ ":AX$(Y)" ########## ":^X$(Y)" ######## ":{"X$(Y)" ###### ":,X$(Y)" ##### ##### ":6X$(Y)"## ## ##":@X$(Y)" ## ## ## ":JX$(Y)" ## # # ## ": TX$(Y)""?G?G ::::: LABEL #2 :::::?GA$"UNASSIGNED LINE 18370"?GB$""?GC$""?GE$""?GF$""@G@G ::::: LABEL #3 :::::=@HA$"UNASSIGNED LINE 18440"G@HB$""Q@HC$""[@&HE$""e@0HF$""k@:H@DH ::::: LABEL #4 :::::@NHA$$ ENDFy 31000 SUBROUTINE LIST::::D,yD6y 100 SETUP/MAIN MENUD@y 1000 PRINT MENUDJy 2000 INSTRUCTIONSETy 4000 LABEL BORDER?E^y 5000 LINE LIMITER & INPUT LINES\Ery 7000 HOW MANY LABELS?wE|y 8000 STANDARD PRINTEy 9000 N, SPACE EACH NEW LINE THE NUMBER OF SPACES YOUo: WANT TO LEAVE BLANK. THE COMPUTER WILL NOT INDENT THE LINE BUT WILL: LEAVE THAT NUMBER OF SPACES BLANK ON THE RIGHT MARGIN.""  1,4,7 5);: A$  A$"**" 1,4,7: "1, I1 4: (17): ICa " ********************"Ca 10)"* *" Da " * GOOD BYE *"-Da 10)"* *"TDa " ********************"iDb I1 1000: I~D b I1 25:: IDbROP EVERYTHING AFTER: "THE PUNCTUATION AND GIVE YOU AN O " ERROR. " 3. FTER EACH PRINTING YOU MUST PRESS" "RETURN THE SECOND TIME TO CONTINUE, "THE CURSOR DOWN KEY FOR A LINE SPACING "OF ONE OR THE CURSOR RIG"## ##":)^X$(Y)"### ###":FhX$(Y)"### ":crX$(Y)"# ":|X$(Y)" ## ":X$(Y)"### # ":X$(Y)" # ###":X$(Y)" ## ## ":X$(Y)" ## ## ":"UNASSIGNED LINE 18510"@XHB$""@bHC$""@lHE$""@vHF$""@H@H ::::: LABEL #5 :::::AHA$"UNASSIGNED LINE 18510"AHB$""#AHC$""-AHE$""7AHF$""=AHYAH ::::: LABEL #6 :::::xAHA$"UNASSIGNED LINE 18650"AHB$""AHC$"" ON/&/ 8020: PRINT LABELS0// (Q): Q MAY TURN COMPRESSED PRINT ON OR OFF 00/4:401/ PRINTER OFFK05/ (147): L1 4705: L1 12090W08/ 110300:/:: " MORE OF THE SAME LABEL ";: X$0>/ (X$,1)"Y" (147): 120470 LABEL ";: X$6@ (X$,1)"Y" 160207@ (18) (27)"@": 6300: 240: GOTO MAIN MENU7t@ (147):::?7~@ " DO YOU WANT THE LABELS:"::f7@ " C - CENTER JUSTIFIED":7@ " L - LEFT JUSTIFIED":7@ " M - R 1020=G A3$"3" 18440: (147): 1020=G A3$"4" 18510: (147): 1020>"G A3$"5" 18580: (147): 1020:>,G A3$"6" 18650: (147): 1020b>6G A3$"7" 18720: (147): 1020>@G A3$"8" 18790: (147): 1020>JG A # H) E$ (10),# (14);,# H) F$ (10),# (10),# I-#4:4 -#-'.-' ::::SET UP EMPHASIZE::::4-'H-$' E0 10050\-.' E1 10090b-8'~-B'4,4,1:4: PRINTER ON-G' (27)"E"-L'4:4-Q' CHR$(27)"E" TURNS ON E $(20) TURNS ON COMPRESSED PRINT3:4:43: 14030: GOTO PRINT SETUP3>4> :::::TRIPLE WIDE LABEL :::::!4>>4> 11020: DISPLAY LABELp4>:: 5)"SPECIFY NUMBER OF ROWS OF 3 LABELS"4> 7020: HOW MANY LABEL ROWS?4> 165004> (17): I: 3):_F "  10 MOST USED LABELS "::dF" SELECT FROM:":nF:(;xF " [ 1 ] - - - COMPUTE PUBLICATIONS"S;F " [ 2 ] - - - LABEL AT LINE18370"~;F " [ 3 ] - - - LABEL AT LINE18440";F " [ 4 ] - - - LA @/ PERFORM DISPLAY LABELS ON SCREEN--CHR$(147) IS CURSOR CLEAR/HOME1D/ (X$,1)"N" 121201N/ 12085G1X/Q18:L0: 6300: 240: GOTO MAIN MENUM12n12 ::::: 132 CPL SETUP :::::t12124,4,1:412 (20)124:412 CHR$(20) TURETURN TO MAIN MENU"7@ A7$: A7$"" 165507@ A7$"C" 160507@ A7$"L" 167008@ A7$"C" A7$"L" 240"8TG A3$"0" 18930: (147): 1020?^G A3$"R" 240: GOTO MAIN MENU?rG ::::: LABEL #1 :::::B?|GA$"COMPUTE PUBLICATIONS, INC."Z?GB$"P. O. BOX 5406"y?GC$"GREENSBORO, NC 27403"?GE$"U.S.A."?GF$MPHASIZED PRINT-`'E1:-j'4,4,1:4: (27)"F":4:4.k' CHR$(27)"F" TURNS OFF EMPHASIZED PRINT#.'E0:).*N.* :SCREEN PRINT OF LABEL VALUES:T.+. + (147)(17)(17): CHR$(147) IS CLR/HOME.+ 6)A$. + 6)B$.*+ 6)C$.4+ 6)E4> ::: CENTER JUSTIFIED :::4>4>4,4:44>R174> I1 X4>U15>UU1: U2 Y$A$ 5> U3 Y$B$25> U4 Y$C$D5> U5 Y$E$V5> U6 Y$F$b5>Q(Y$)s5?P((RQ)2)5? P=SPACES VARIABLE5 ?PAP15?PTPQPBEL AT LINE18510";F " [ 5 ] - - - LABEL AT LINE18580";F " [ 6 ] - - - LABEL AT LINE18650"*+ 6)F$.H+.... ::::: 80 CPL SETUP :::::.. /. 2000: INSTRUCTIONS$// 6020: GET INPUTM/ / L1 4705: DISPLAY DISK LABEL{// L1 11020: DISPLAY REGULAR LABELS// 7020: HOW MANY?//4,4,1:4/ / PRINTERA5? PTR PAP5?BT3: BT=SPACES BETWEEN TRIPLE COLUMN LABELS6 ? HP) Y$;PABTP);Y$;PABTP);Y$%6%? U6 16100E6*?U1: RESET LINE COUNT FLAGK6/?Q64?[6?4:46? (147): 11020: DISPLAY LABEL6?:: " MORE OF THE SAME- LABEL AT LINE18930""=F:: " [ ] ..... YOUR CHOICE"=F A3$: A3$"" 18165D=F A3$"1" 18300: (147): 1020r=F PERFORM LABEL PICKUP - GOTO PRINT MENU=G A3$"2" 18370: (147):(10)+ I++(#+-# :::::DOUBLE WIDE:::::+2#7,7# CHR$(14) REQUIRED ON EACH LINE TO TURN ON DOUBLE WIDE PRINTE,<# I1 XR,F# (14);e,P# H) A$ (10)r,Z# (14);,d# H) B$ (10),n# (14);,x# H) C$ (10),# (14);,F THE SAME LABEL ";: X$27 (X$,1)"Y" (147): 11020: 1405037 DISPLAY LABEL ON SCREEN374,4,1:4(37 (18)23(74:4U3x7 6300: 240: GOTO MAIN MENU[3:{3: ::::: 66 CPL SETUP :::::3:3:4,4,1:43: (20);:3: CHRT FLAG9A9A9A 163609hB9mB ::::: YOUR LABEL :::::9rB9|BA$"Y O U R N A M E":BB$"A D D R E S S "1:BC$"CITY STATE ZIP";:BE$""Y:BF$"ASSIGN AT LINE 17020"_:Be:PF:UF ::::: 10 MOST USED ::::::XF:ZF I1 2: "]"( (19): I1 8: (17): I($ 5): "";E$). (19): I1 4: (17): I/)8 " INPUT LINE #5 "\)B (19): I1 4: (17):I: S11)"]"~)G (19): I1 9: (17): I)L 5): "";F$)V)) :::RESET LINE PRINT VALU R COLONS."4: " A RETURN WITH NO ENTRY WILL GIVE"-> " A BLANK LINE."5H:tJ " --PRESS " (18) "SHIFT" (146) " KEY TO CONTINUE.--"L 653,1N ::TRIPLE COL. INSTRUCTIONS:: (147):: " TRIPLE COLU YOUR VOLUME NUMBER (###)" "(MUST BE 3 CHARACTERS LONG) [ ]";: 4140)" 40606, "";V1$M1 (V1$)3 40606 (147)::: " ENTER REPLACEMENT FOR WORD 'VOL.'"7 " IF DESIRED. ( 4 CHARACTERS MAXIMUM)"8 8) "DEFAULT IS ' 4770& A4$"0" Z$BR$BR$BR$BR$BR$BR$BR$BR$BR$BR$'& HD);: BR1 B: BR$;: BRU& Z$;: BR1 B: BR$;: BR: (10) (10)u&L1: RESET LINE COUNT FLAG{&&p&u :::::INPUT LINES:::::&z& (147)& I1 4: FF PRINTERBR$"*": SET DEFAULT VALUE FOR LABEL BORDERJV1$"001": SETS INITIAL DISPLAY VALUE FOR VOLUME}V2$" VOL. ": SET DEFAULT VALUE FOR TOP LINEA4$"6":V$"Y":A$"":B$"":C$""Z$" COM 64 ": SETS INITIAL DISPLAY VALUE F A4$"4" Z$ " CBM 8096 "# A4$"5" Z$ " VIC 20 "'# A4$"6" Z$ " COM 64 "H# A4$"0" Z$ "**********"S# 4330z#L1: 4705: DISPLAY CURRENT LABEL# (147): 12030: GOTO 80 CPL SETUP#\#] :::::DISK LABEL FORMAT:: ES::))A$"")B$"")C$"")E$"")F$"")*X*] :::::HOW MANY?:::::%*bK*l:: " HOW MANY LABELS ";S* X{* X0 240: RETURN TO MAIN MENU**@*E :::::STANDARD PRINT:::::*J*T L1 MN LABEL INSTRUCTIONS"%:: " THE LENGTH OF TRIPLE COLUMN LABELS"S " MUST BE LESS THAN THE NORMAL WIDTH "d " LABEL." " THE TRIPLE COLUMN LABELS ARE SET TO" " PRINT A 17 CHARACTER LABEL WITH TWO" " SPACES BETWEEN LAB VOL.': [ ]" ;:: "";V2$: V2$"" V2$"VOL."* = (V2$) 4 V2$ " " V2$ " "W ? (V2$) 3 V2$ " " " " V2$ " "x @ "4160": (V2$) 3 4060 ^::: _ (147) ` " WHAT WOULD YOU LIKE IMPRINTED" b " AT TH (17): I& " INPUT LINE #1 "' (19): I1 4: (17):I: S11)"]"$': 5): "";A$F' (19): I1 4: (17): I^' " INPUT LINE #2 "' (19): I1 4: (17):I: S11)"]"' (19): I1 6: (17): I' 5): "";B$ OTO LABEL PRINT ROUTINE"{H3:S115: (147): 11005: 14050A| GOTO LABEL PRINT ROUTINEN} (147)f~H0: 11005: (17) " " (18) " EMPHASIZE ON " (146) " " 1025 240: RETURN TO MAIN MENU OR BOTTOM BORDER  4705: DISPLAY CURRENT LABEL;:: " WHAT CHARACTER DO YOU WANT TO USE"j " FOR THE BORDER? [ ] DEFAULT = *"w "";BR$ (BR$)2 4010 (147)::" WOULD YOU LIKE A VOLUME NUMBER IN" " :::#^#a (147)$fH4: SET VALUE FOR HORIZONTAL TAB DURING SCREEN DISPLAY`$p V$"N" V1$BR$BR$BR$: FILL TOP BORDER WITH REQUIRED CHAR.m$s J$" "$u V$"N" J$BR$$z V$"N" V2$BR$BR$BR$BR$BR$BR$$ HD): BR1 B: ELS." " THESE VARIABLES MAY BE CHANGED AT "6 " PROGRAM LINES 16000 TO 17000."_: " IF YOU ENTERED A LABEL WITH " " MORE THAN 17 CHARACTERS, YOU MAY " " RETURN TO RE-ENTER THE LABEL."` :j " DO YOU WANT TO RETUR E BOTTOM OF THE BORDER?"!h:: " [ 1 ] - - PET 2001":7!r " [ 2 ] - - CBM 8032 ":^!| " [ 3 ] - - CBM 4032 ":! " [ 4 ] - - CBM 8096 ":! " [ 5 ] - - VIC 20":! " [ 6 ] - - COM 64": ' (19): I1 4: (17): I' " INPUT LINE #3 "&( (19): I1 4: (17):I: S11)"]"H( (19): I1 7: (17): IZ( 5): "";C$|( (19): I1 4: (17): I( " INPUT LINE #4 "( (19): I1 4: (17):I: S11)  :::::INSTRUCTIONS:::::  (147)C:: " " (18) " INSTRUCTIONS " (146)s:: " PRINT WIDTH IS SET BY LINE LIMITER" " FOR 3 1/2 INCH LABELS.": " 5 LINES NORMAL OR 3 LINES BORDERED.": " DO NOT USE COMMAS O  THE TOP LINE OF THE BORDER ?":: " [ Y ] - - - YES":A " [ N ] - - - NO":l " [ ] ..... YOUR CHOICE" V$: V$"" 4091 (147) V$"N" 4191 V$"Y" (147):: " ENTER  BR$;: BR% V2$;: V1$;: J$;: BR1 B: BR$;: BR % (10)$%LL1: L2 L$A$6% L3 L$B$H% L4 L$C$X% HD)BR$;n%HT((C(L$))2)z%HAHT1%THT(L$)HA% TC HAHT% HT)L$HA)BR$ (10)% L4 N TO THE"o " MAIN MENU? (CR='NO')" A6$: A6$"" 25201 A6$"Y" 240E A6$(13) i A6$"Y" A6$ (13) 2520o ::::LABEL BORDER::::4,4,1:4: (18): TURN OFF COMPRESSED PRINT4:4: TURN O ! " [ 0 ] - - SOLID BORDER "::&" " [ ] ..... YOUR CHOICE";:@" A4$: A4$"" 4262a" A4$ "0" A4$ "8" 4260" A4$"1" Z$ " PET 2001 "" A4$"2" Z$ " CBM 8032 "" A4$"3" Z$ " CBM 4032 "" : - (147):: CHR$(147) IS CLEAR/HOMEJ I1 40: "*";: I:;\ "*"38)"*"; "* *** LABEL MAKER *** *"; "*" 38) "*"; I1 40: "*";: I (17) 6) (17) "ORIGINAL PROGRAM WRITTEN BY:" ( - STANDARD 80 CPL"* " [ 2 ] - - - COMPRESSED 132 CPL"Z$ " [ 3 ] - - - TRIPLE COLUMN LABELS-STD") " [ 4 ] - - - DOUBLE WIDE/COMPR 66 CPL". " [ 5 ] - - - DOUBLE WIDE 40 CPL"3 " [ 6 ] - - - EMPHASIZED"8 " [ 9 ] - - -^PPER II","VICTORY" "BASEBALL"N "MR DO!","OMEGA RACE","TIME PILOT","BUCK ROGERS"" Z" ";B$(N);:A18((B$(N))):A)" " d"ʯ N :::::::::X 400- A1$"1" (147):S130: 6020: 11005: 1025s GET LABEL LINES-DISPLAY LABEL ON SCREEN-GOTO PRINT MENU ROUTINE A1$"2" (147): 17010: (147): 1020 GET LABEL-GOTO PRINT MENU ROUTINE A1$"3" (147): 18010 LABEL ON SCREEN-GOTO TRIPLE WIDE LABEL PRINT;t (147):4,4,1:4: (27)"F":4:4Xu4,4,1:4: (20);:4:4vH4: 11005: 14050: CHR$(27)"F" TURNS OFF EMPHASIZED PRINTx CHR$(20) TURNS ON COMPRESSED PRINTy DISPLAY LABEL ON SCREEN - G 4:3:(14) 0 X1C? 2""l 3" { 4Z$"2"60 7" COMMODORE 64 HIGH SCORES ":65 <" COLECOVISION HIGH SCORES  A" 17)13)"S. P. TULK"= (17)(17)7) "MODIFIED BY MICHAEL MOORE"s (17)(17)4)"ADAPTED FOR C-64 BY PHIL DEGELIA" : " PRINTER CODES DESIGNED FOR " 13) "GEMINI 10X/15 " : " --PRESS " (18) "SHIFT" (146) " KEY TO C RETURN TO MAIN MENU"&= 10020: DISPLAY EMPHASIZE FLAGKB: " [ ] ..... YOUR CHOICE"QDE ---- EMPHASIZED PRINT MODE DOES NOT COMBINE WITH COMPRESSED MODE---FGL (19): I1 11: (17): I: 2): Y Q Y 1110,1120 $"":53281,0:53280,0:""k10)"1525 HI-SCORE PRINTOUT": WRITTEN BY STEPHEN CHENG NO. 11714"THIS PROGRAM PRINTS A TABLE OF HIGH""SCORES FROM EITHER THE COMMODORE 64 OR"" COLECO VISION. THERE ARE 3 SPACES FOR"  ***LABEL MAKER***a ///ORIGINAL PROGRAM WRITTEN BY S.P.TULK NBAGV-MADISON, OHIO-03/81 ///REVISED BY S.P. TULK NBAGU IN JUNE 1981 ///(2 :::REVISED BY MICHAEL MOORE IN OCT. 1982::: < :::CONTRIBUTED BY MICHAEL MOORE TO APPLE  GOTO MOST USED MENU ROUTINEB A1$"4" S123:L1:A27:B7:C22:D3: 4008a GOTO LABEL PRINT ROUTINE A1$"5" S129:L1:A33:B10:C28:D0: 4008 GOTO LABEL PRINT ROUTINE A1$"Q" 25020 GOTO END ROUTINE  4 F"ʯA KN1 GAo P"" Z" ";B$(N);:A18((B$(N))):A)" " d"ʯ N :::::::::X ONTINUE.--" 653,1 6300:E1Q E IS EMPHASIZE ON/OFF FLAG=1 INDICATES OFFm (147)(17)(17)(17) 13) (18) " MAIN MENU " (146)  (17) 15) "SELECTION" J:: " [ 1 ] - - - NEW LABEL" T: " [ 2 ] - - - YOUR ,1130,1140,1147,1149,1155,1155,1155V (147)(X4,4,1:44Z (18)>\4:4[]H5:Q18: 11005: 12050^ DISPLAY LABEL ON SCREEN-GOTO LABEL PRINT ROUTINE_ H=HORIZONTAL SPACING VARIABLE` (147):Q20a4,4,1:4b (27)"F" 4 " YOU TO ENTER YOUR HIGH SCORES."v " PRESS '1' FOR COMMODORE 64":" PRESS '2' FOR COLECOVISION" Z$:Z$""7 "" Z$"2"11 7)"COMMODORE 64 HIGH SCORES":12 7)"COLECOVISION HIGH SCORES" CORPS OF DALLAS::: Fb P ---ADAPTED FOR COMMODORE 64 BY PHIL DEGELIA, DECATUR, TEXAS, 09/83--- x (147): I1 5: (17): I: 7) } (18) " PRINTER MUST BE TURNED ON " (146) I1 1500: I :::::::LABEL INPUT MENU::::::: ::::PRINT CHOICE:::: 0 11005: DISPLAY LABEL ON SCREENN CPL=CHARACTERS PER LINEw:: 14) (18)" PRINT MENU "(146) CHR$(18) IS REVERSE ON -- CHR$(146) IS REVERSE OFF -- 15)"SELECTION" " [ 1 ] - -  3,4:* GAME23:B$(GA):N1GA:B$(N)::40r  "DONKEY KONG","DONKEY KONG JR.","COSMIC AVENGER","GORF","VENTURE" "LADYBUG","SMURF","TURBO","SLITHER","SPACE FURY","CARNIVAL","ZAXXON" "MOUSE TRAP","LOOPING","SPACE PANIC","SUBROC","PE  LABEL", ^: " [ 3 ] - - - 10 MOST USED LABELS"\ h: " [ 4 ] - - - SHORTENED DISK LABEL" r: " [ 5 ] - - - FULL SIZE DISK LABEL" |: " [ Q ] - - - < END >" ::  " [ ] .......YOUR CHOICE"  A1$: A1$"" c (20)e4:41f Q=VARIABLE TO TURN ON OR OFF COMPRESSED PRINTIgH9: 11005: 12050vh CHR$(27)"F" TURNS OFF EMPHASIZED PRINTi CHR$(20) TURNS ON COMPRESSED PRINT - DISPLAY LABEL ON SCREENjH5: 2200: 11005: 16010k DISPLAY  "HOW MANY COPIES?":CU Z$"2"" DO YOU WISH TO USE THE RECORDED DATA": A$j (A$,1)"Y"400 "HOW MANY GAMES?";GA  B$(GA) #N1GA:"GAME ";N:B$(N):N ("GET READY PUSH RETURN WHEN READY" -A$:A$""45 /3, ELITE ITALICS 4,4,4=4,(27);"@";: CLR PRTRW#4,(27);"M";: ELITEs(4,(27);"4";: ITALICSz24<1,4,7F1,"HIS IS TALICS LITE!!!"P1 REMSEQFILE! BLEELITE ENLARGEDZAN$"Y":1 0 ***WRITTEN BY BRIAN DOBBS***R ******TIMMINS, ONTARIO******"c 4,4nY05A:A$A$(A):("HOW MANY ENTRIES ARE THERE";Z:""2D(Z)<I1ZF"ENTRY NO.";I;"=";PD(I)ZI _4,(15)20((A$ PICA ITAL DBL EMPH%4,4,4B4,(27);"@";: CLR PRTR^(4,(27);"4";: ITALICSv-4,(27);"G";: DBL.4,(27);"E";: EMPHA24<1,4,7F1,"HIS IS ICA TALICS DOUBLED AND EMPHASIZED"P1  FOR EPSON PRINTERS> ARRAY(12):4,4,24:4,(27)"M"[4,(27)"E0"CHR(6);(9);t X1 12: ARRAY(X)(4,(9);ARRAY(X);2 X:4< 35,36,64,91,92,93,94,96,123,124,125,126F Y010:4,(27)""(Y); P C$:4,C$;(9);" ";(14 REMSEQFILE! BLEELITE ENLARGED ENLARGED PICA! 4,4,4@4,(27);"@";: CLEAR PRTRb4,(27);"W";(1);: ENLARGED|#4,(15);: CONDENSED(42 1,4,7<1,"HIS IS CONDENSED-ENLARGED ICA."F1 ELITE ITALICS DOUBLE'4,4,4D4,(27);"@";: CLR PRTR^#4,(27);"M";: ELITEz(4,(27);"4";: ITALICS-4,(27);"G";: DOUBLE24<1,4,7F1,"HIS IS OUBLE AND LITE!!!"P1 REMSEQFILE! BLEELITE ENLARGED% PICA DOUBLE STRIKE UNDERLINED04,4,4M4,(27);"@";: CLR PRTRl(4,(27);"G";: DBL STRIKE.4,(27);"-";(1);24<1,4,7F1,"HIS IS PICA DOUBLE TRIKE NDERLINED!"P1);" Z X1 12:4,(ARRAY(X))" ";1 d X:4: Yd n "U.S.A","FRANCE","GERMANY",ENGLAND",DENMARK" x "SWEDEN","ITALY","SPAIN","JAPAN","NORWAY","DENMARK(E)"L LABELS@ EZ PRINTERI.CHAR.IN ROMAN  ""."WHAT IS NAME OF GRAPH";Q$:""Z"WHAT'S THE MAXIMUM PRICE SCALE";G:""c 4,4nY05A:A$A$(A):("HOW MANY ENTRIES ARE THERE";Z:""2D(Z)<I1ZF"ENTRY NO.";I;"=";PD(I)ZI _4,(15)20((A$ EMPHASIZED DOUBLE$4,4,4A4,(27);"@";: CLR PRTRY#4,(27);"G";: DBLt(4,(27);"E";: EMPHZD{24<1,4,7F1,"HIS IS OUBLE"P1 DOUBLE STRIKE ELITE&4,4,4C4,(27);"@";: CLR PRTR]#4,(27);"M";: ELITE|(4,(27);"G";: DBL STRIKE24<1,4,7F1,"HIS IS OUBLE TRIKE !!!!!!"P1 REMSEQFILE! BLEELITE ENLARGED  4,4,44,(27);"@";04,(27);"M";724[< 4,4,7 : SEC ADDS CAN BE 4OR7F4,"HIS SHOULD BE LITE WITH UPPER AND LOWER CASE"Z4d2A 4,4:4,(27)"M"(27)"W1"34,(27)"M"(4)E X128 143U(4,(X)" ";`2 X:4r< X144 159F4,(X)" ";P X:4Z4,(27)"@"CC2A )2))Q$:4,(10) dI1Z9 nC$(255)(59)(15)(32)X xE$(27)(16)(0)(255)q B$((D(I))(G255))| BD(I) D$"WEEK"(0I) 4,(15)D$A$B$C$E$B"DOLLARS" 4 8,27,16,0,53,26 "WANT TO DO ANOTHER ONE";AN$  NORMAL PICA 4,4,404,(27);"@";724[< 4,4,7 : SEC ADDS CAN BE 4OR7F4, "HIS IS NORMAL ICA SIZE."Z4dORKCC2A ENLARGED ELITE" 4,4,4A4,(27);"@";: CLEAR PRTR[4,(27);"M";: ELITE}4,(27);"W";(1);: ENLARGED(42 1,4,7<1,"HIS IS ENLARGED LITE"F1 REMSEQFILE! BLEELITE ENLARGED ENLARGED PICA! 4,4,434,(27);"@";J4,(27);"W";(1);Q(4]2 1,4,7}<1,"HIS IS ENLARGED ICA."F1WORKCC2A 2,192,190,129,191,255,224,224,224,255,191,128PR#130,129,158,162,193,161,158,135,158,184,224,184,158,135,128T#129,190,192,190,194,162,156,143,255,240,156,156,240,255,143V#194,161,146,156,166,193,160,128,227,247,156,156,247,227,128X#130,161, ::4,"E":4,"" 4,(27)"W"(0);= L139:4,"E ";::4,"":4,""R 4,(27)"B"(3);u L167:4,"E ";::4,"":4,"" 4,(27)"S"(1); &L167:4,"E ";::4,"":4,"" 04,""20)"EYE CHART BY JOHN CROOKSHANK. WRITTEN FOR GEMINI ";!: CONDENSED 4,4,7.4,(27);"@";<(4,(20);C24g< 4,4,7 : SEC ADDS CAN BE 4OR7F4,"HIS SHOULD BE ONDENSED WITH UPPER AND LOWER CASE."Z4d 227,227,255,255,227,227,128D:#160,208,192,192,160,158,129,176,240,224,224,255,191,128,128<#201,190,136,148,162,193,128,255,255,140,156,182,227,193,128>#192,190,193,193,194,192,160,255,255,224,224,224,224,128,128@#201,190,129,190,129,190,12 ;4,4,4:4,(27)"@":900:4,(27)"A"(6)(27)"U"(1);Q @P15:20:L18:P1:20: JP10:20:L18:P1:20::P15:20:4,"":4,"" TT15:P8:30:T32:20 ^L14:T15:P1:30:T39:20: hT15:P5:30:T35:20 rL14:T15:P1:30:T39: REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  ALTERNATIVE  CHARACTER SET FOR THE 1525 x206,208,208,206,177,128,135,143,248,248,143,135,128TZ#128,225,209,201,197,195,128,128,227,243,255,239,231,227,12870,170,170,145,128,174,207,219,217,217,251,178,128N#154,166,154,198,194,198,161,128,131,131,255,255,131,131,128P#130,129,190,194,"SG-10 AND XETEC SUPER GRAPHIX INTERFACE."6D4,(12):4:4:l4,"W"(1)"E EYE CHARTW"(0)"F"L110:4,"":L116:4,P$;P$;P$;" ";::4,"":4,"":4,"" 4,(27)"2";(27)"E"(27)"W"(1); L119:4,"E "; PICA ITAL DBL 4,4,7=4,(27);"@";: CLR PRTRY(4,(27);"4";: ITALICSq-4,(27);"G";: DBLx24<1,4,7F1,"HIS IS ICA TALICS DOUBLED!"P1 8,255,255,130,252,252,130,255,255HB#201,190,130,188,192,191,128,255,255,134,140,152,176,255,255D#156,162,221,193,193,162,156,128,190,247,227,227,247,190,128F#201,190,137,137,137,134,128,255,255,155,155,155,142,142,128 H#194,197,227,241,210, 20:$ |T15:P8:30:T32:20:4,"":4,""I T0:P5:30:T10:30:30:30:20w P1:L12:T0:30:T14:30:30:30:20: T0:P3:30:T12:30:30:30:20 P1:L12:T0:30:T14:30:30:30:20: T0:P5:30:T10:30:30:30:20:4,"":4 REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  ALTERNATIVE  CHARACTER SET FOR THE 1525    10024,""T)P$;:X1P:4,P$;::4,"":T4,""T)P$;:X1P:4,P$;::pd53281,0:53280,0:C646n" EYE CHART PRINTER ";x" BY JOHN CROOKSHANK " " GET PRINTER READY AND PRESS": REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  ALTERNATIVE  CHARACTER SET FOR THE 1525  ENLARGED EMPHASIZED' 4,4,4?4,(27);"@";: CLRa4,(27);"W";(1);: ENLARGED#4,(27);"E";: EMPHASIZED(42 1,4,7<1,"HIS IS ENLARGED EMPHASIZED"F1 172,128,128,190,247,227,243,183,254,224LJ#201,190,137,137,145,230,128,255,255,155,155,155,255,238,128L#196,170,170,170,170,145,128,174,207,219,217,217,251,178,128N#154,166,154,198,194,198,161,128,131,131,255,255,131,131,128P#130,129,190,19 ,""! L116:4,P$;P$;P$;" ";::4,""C L116:4,P$;" ";::4,""g L116:4,P$;P$;" ";::4,"" L116:4,P$;" ";::4,"" L116:4,P$;P$;P$;" ";::4,"":4,"":4,"" 4,(27)"2";(27)"E"(27)"W"(1); L119:4,"E "; REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  ALTERNATIVE  CHARACTER SET FOR THE 1525  198,0 A$:A$""200) A$(13)300< A$"""":E 140W P0P1:220d P1P0 C,P:""30)" RETURN " X150::140 ,P$(239):XO$(27)"W"(1):XF$(27)"W"(0):T30:E0 6" PRINTING..."3 REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  ALTERNATIVE  CHARACTER SET FOR THE 1525  B$(I)DB$(I)(BO)(BO) PJ$ ZId _"F2 - PRINTS OUT DOCUMENT ON THE SCREEN"j ` a"F7 - PRINTS DOCUMENT ON THE PRINTER, BUT DOES NOT" b" CLEAR IT FROM MEMORY.": c"F8 - CLEARS THE DOCUMENT FROM 1,(15)X$(X);::1,(13):1:210?1,(8)BO$((X$(X)));::1,(13):1:210gX1M:(X$(X))64(X$(X))915301,(14)X$(X);: X:1,(13):1:2101,(8)DB$((X$(X)));: X:1,(13):1:210X1M:(X$(X))64(X$(X))91560 &1,  0 91 0 0 127 0 65 0 65 0 0 0 92 100 0 84 32 30 33 68 0 68 0 93 0 0 65 0 65 0 127 0 0 0 94 4 0 2 0 127 0 2 0 4 0 95 4 60 0 120 68 40 0 16 0 40 68 0 0 0 121 65 2 68 40 16 8 4 2 1 1 122 68 32 68 16 68 8 68 0 0 0 123 0 0 0 8 54 65 0 65 0 RETURN TO EDIT ":J " F5 - PRINT OUT "::_ ZZ$:ZZ$""280{ "ZZ$""BB1:B3B1 'ZZ$""330 ,ZZ$""DD1:D2D1 1ZZ$""360 6ZZ$""380 ;ZZ$""210 @280JB1" 40 0 68 0 0 0 108 0 65 0 127 0 64 0 0 0 0 109 120 4 0 4 120 4 0 4 120 0 110 124 0 4 0 4 0 4 120 0 0 111 56 68 0 68 0 68 MEMORY."< d:"PRESS ANY CHARACTER TO BEGIN"D nM1W xI$:I$""120m "BEGIN:":HD0 F 1 40:" ";: F:""20)"B"30)"G" ::204,0:207,0:53280,0:53281,0:B1:D1 X$(M):X$(M)""X$(M)""X$(M)""X$(M) (15)X$(X);:X:1,(13):1:210;01,(8)GT$((X$(X)));:X:1,(13):1:210c:X1M:(X$(X))64(X$(X))91590D1,(14)X$(X);: X:1,(13):1:210N1,(8)DG$((X$(X)));: X:1,(13):1:210(#194,185,149,146,148,184,192,224,252,158,155, 64 0 64 0 64 0 64 0 64 0 96 0 0 0 0 0 0 0 0 0 0 97 32 80 4 80 4 80 4 56 64 0 98 127 0 68 0 68 0 68 56 0 0 99 56 68 0 0 124 0 0 0 0 119 0 0 0 0 0 125 0 65 0 65 54 8 0 0 0 0 126 0 124 0 8 0 124 0 0 116 0 4 0 119 60 64 32 16 8 16 32 6 STANDARD SET":280(TB2" BOLD SET ":280J^B3" GOTHIC SET ":280lhD1" SINGLE WIDTH":280rD2" DOUBLE WIDTH":280| *** PRINT ROUTINE ***1,4(B1) (D1) 460(B3) (D2) 570(B1) (  0 68 56 0 112 127 0 17 0 17 0 17 14 0 1 113 14 17 0 17 0 17 0 127 0 1 114 124 0 8 4 0 4 0 4 0 0 115 8 84 0 84 0 84 0 ""X$(M)""150< (X$(M))31(X$(M))128X$(M);:MM1:150n (X$(M))159(X$(M))192X$(M);:MM1:150 (X$(M))13X$(M);:MM1:150 HD0 (197)0" ";:HD1:MM1:M1M1:130 HD1150 X$(M)""240 "":F 155,158,252,224<*#221,170,201,201,201,182,128,255,255,235,235,235,255,182,128},#156,162,221,193,197,162,128,156,190,227,227,227,227,162,128.#255,162,193,193,162,156,128,255,255,227,227,227,227,190,1560#221,170,201,193,193,164,128,255,255,23  68 0 68 0 68 0 0 100 56 68 0 68 0 68 0 127 0 0 101 56 68 16 68 16 68 16 68 24 0 102 8 0 8 118 9 0 9 0 0 0 103 14 17 64 + PROGRAM PRINT FONTS BY BRENT MILLERG" PLEASE WAIT..."y X$(1000), DG$(90), DB$(90), GT$(90), BO$(90)I65 90J 1 7(GT:GT$(I)GT$(I)(GT):DG$(I)DG$(I)(GT)(GT)2J<J18 F BO:BO$(I)BO$(I)(BO):D D2) 470(B2) (D1) 480+(B2) (D2) 510C(B3) (D1) 540f(B3) (D2) " 570": 570X1M:1,(15)X$(X);:X:1,(13):1:210X1M:1,(14)X$(X);:X:1,(13):1:210 X 1M:(X$(X))64(X$(X))91500  84 32 0 116 4 0 63 64 4 64 4 64 0 0 117 60 64 0 64 0 64 0 60 64 0 118 4 8 16 32 64 32 16 8 4 0 119 60 64 32 16 8 16 32 6 140:" ";: F:""20)"B"30)"G":1 X1M:X$(X);:XI X$(M)""M1:130R 150 "WHAT PRINT SETTING DO YOU WANT? ":: " F1 - SELECT CHARACTER SET ": " F3 - SELECT WIDTH ": " F4 - 5,235,235,235,227,128@2#201,190,137,137,129,130,128,255,255,155,155,155,131,131,1284#156,178,169,169,169,250,128,156,190,227,193,235,187,250,1286#254,137,137,201,178,128,128,255,255,140,140,140,255,255,1288#196,162,162,190,162,145,128,128,  17 64 17 64 63 0 1 104 127 0 4 0 4 0 4 120 0 0 105 0 68 0 125 0 64 0 0 0 0 106 0 64 0 64 4 64 61 0 0 1 107 0 127 0 16 7 0 9 0 9 0 9 0 103 127 0 65 0 81 0 115 0 112 0 104 127 0 120 0 8 0 8 0 127 0 105 0 0 99 0 127 0 99 0 0 0 106 112 0 64  32 0 0 0 0 0 0 0 0 0 0 33 0 0 0 0 79 0 0 0 0 0 34 0 0 7 0 0 0 7 0 0 0 35 20 20 127 20 20 20 127 20 20 0 36 4 42  0 20 0 62 0 0 65 0 34 0 20 0 8 0 63 2 1 0 1 80 1 8 1 6 0 64 62 0 65 8 85 0 85 0 94 0 65 120 4 18 1 16 1 18 4 120 0  0 64 32 16 8 7 0 119 127 0 67 0 112 0 64 0 127 0 120 96 3 96 20 8 20 96 3 96 0 121 3 4 0 120 0 120 0 4 3 0 122 65 32 65 1 0 66 0 127 0 64 0 0 0 50 66 1 96 1 80 1 72 1 70 0 51 33 0 65 0 69 0 75 0 49 0 52 16 8 20 2 17 0 127 0 16 0 53 39 64  8 16 32 0 127 0 79 62 65 0 65 0 65 0 65 62 0 80 127 0 9 0 9 0 9 0 6 0 81 62 65 0 65 0 81 32 65 62 0 82 127 0 9 0 9 0  0 64 0 127 0 127 0 107 127 0 8 0 8 0 120 7 112 0 108 120 0 127 0 64 0 64 0 64 0 109 127 0 1 0 127 0 7 0 127 0 110 127 0 2  0 42 85 42 0 42 16 0 37 3 64 35 16 8 4 98 1 96 0 38 50 5 72 5 82 0 32 16 72 0 39 0 0 5 0 3 0 0 0 0 0 40 0 0 0 0 28  66 65 62 65 8 65 8 65 8 54 0 67 62 65 0 65 0 65 0 65 34 0 68 65 62 65 0 65 0 65 34 28 0 69 127 0 73 0 73 0 73 0 65 0 706 65 8 97 4 99 0 123 0 0 0 8 119 0 65 0 65 0 124 0 0 0 119 0 119 0 0 0 0 125 65 0 65 0 119 8 0 0 0 0 126 8 0 124 0 2 5 64 5 64 5 64 57 0 54 48 72 4 74 1 72 0 72 48 0 55 1 0 65 32 17 8 5 2 1 0 56 54 73 0 73 0 73 0 73 54 0 57 6 9 0 9 6 25 32 70 0 83 38 73 0 73 0 73 0 73 50 0 84 1 0 1 0 127 0 1 0 1 0 85 63 64 0 64 0 64 0 64 63 0 86 7 8 16 32 64 32 16 96 4 96 8 0 127 0 111 127 0 65 0 65 0 65 0 127 0 112 127 0 121 0 9 0 9 0 15 0 113 127 0 65 0 65 0 127 0 96 0 114 127 0 9 0 34 65 0 0 0 41 0 0 65 34 28 0 0 0 0 0 42 0 34 20 8 119 8 20 34 0 0 43 8 0 8 0 62 0 8 0 8 0 44 0 0 88 0 56 0 0 0  127 0 9 0 9 0 9 0 1 0 71 62 65 0 65 8 65 8 65 56 0 72 127 0 8 0 8 0 8 0 127 0 73 0 0 65 0 127 0 65 0 0 0 74 48 64  0 127 0 97 0 0 119 127 0 67 0 112 0 64 0 127 0 120 96 3 96 20 8 20 96 3 96 0 121 3 4 0 120 0 120 0 4 3 0 122 65 32 65 14 41 16 9 6 0 58 0 0 108 0 108 0 0 0 0 0 59 0 0 0 91 32 27 0 0 0 1 60 8 0 20 0 34 0 65 0 0 0 61 20 0 20 0 20 0 20 8 7 0 87 63 64 32 16 8 16 32 64 63 0 88 0 65 34 20 8 20 34 65 0 0 89 1 2 4 8 112 8 4 2 1 0 90 0 65 32 81 8 69 2 65 0  9 0 127 0 120 0 115 111 0 105 0 73 0 73 0 123 0 116 1 0 1 126 1 126 1 0 1 0 117 127 0 64 0 64 0 127 0 127 0 118 127 0 127  0 1 45 8 0 8 0 8 0 8 0 8 1 46 0 0 96 0 96 0 0 0 0 0 47 0 64 32 16 8 4 2 1 0 0 48 28 34 0 65 0 65 0 34 28 0 49 0  0 65 0 65 62 1 0 0 75 127 0 8 0 20 0 34 0 65 0 76 127 0 64 0 64 0 64 0 64 0 77 127 0 2 4 8 4 2 0 127 0 78 127 0 2 4  0 0 0 74 112 0 64 0 64 0 127 0 127 0 75 127 0 8 0 8 0 120 7 112 0 76 120 0 127 0 64 0 64 0 64 0 77 127 0 1 0 127 0 3 0  32 0 0 0 0 0 0 0 0 0 0 33 0 0 0 79 0 79 0 0 0 0 34 0 0 7 0 0 0 7 0 0 0 35 20 20 127 20 20 20 127 20 20 0 36 46 0 4 0 54 0 54 0 54 0 62 0 0 99 0 54 0 28 0 8 0 63 2 1 0 1 80 1 8 1 6 0 64 62 0 65 8 85 0 85 0 94 0 65 120 0 127 0 9  90 65 32 65 16 65 8 97 4 99 0 91 0 0 127 0 65 0 65 0 0 0 92 116 0 84 32 31 0 101 0 68 0 93 0 0 65 0 65 0 127 0 0 0 94  WHEN YOU QUIT ('Q'), YOU CAN SAVE ALL"'" THE DATA TO DISK. THIS FILE CAN"U" BE LOADED BY THIS PROGRAM INTO THE"" PRINTER ANY TIME YOU WANT THE NEW"" CHARACTER SET."" PRESS SPACE" 0 49 0 0 115 0 127 0 112 0 112 0 50 121 0 73 0 73 0 73 0 79 0 51 73 0 73 0 73 0 127 0 120 0 52 31 0 31 0 16 0 120 0 120  127 0 78 127 0 2 96 4 96 8 0 127 0 79 127 0 65 0 65 0 65 0 127 0 80 127 0 121 0 9 0 9 0 15 0 81 127 0 65 0 65 0 127 0 9 42 85 42 85 42 0 58 0 37 3 64 35 16 8 4 98 1 96 0 38 127 0 73 0 127 0 32 80 8 0 39 0 0 5 0 3 0 0 0 0 0 40 0 0 0 0 2 0 9 0 127 0 66 127 0 127 0 73 0 79 0 120 0 67 127 0 65 0 65 0 71 0 103 0 68 127 0 127 0 65 0 65 0 62 0 69 127 0 121 0 73 4 0 2 125 2 125 2 0 4 0 95 64 0 64 0 64 0 64 0 64 0 96 0 0 0 0 0 0 0 0 0 0 97 120 0 127 0 9 0 9 0 127 0 98 127 0 127SP$:SP$""2010SP$" "2010(" YOU MAY NEED TO ALTER PRINTER AND"R" INTERFACE DIP SWITCHES."e" PRINTER:" " 2-1 ON 2-2 OFF 2-3 OFF 2-4 ON"" +G INTERFACE:" " ALL ON"*"OTHER INTE0 53 79 0 73 0 73 0 73 0 121 0 54 127 0 81 0 83 0 80 0 112 0 55 3 0 1 0 1 112 9 0 7 0 56 112 8 71 8 65 8 71 8 112 0 57 6 0 82 127 0 9 0 9 0 127 0 120 0 83 111 0 105 0 73 0 73 0 123 0 84 1 0 1 126 1 126 1 0 1 0 85 127 0 64 0 64 0 127 0 127 8 34 65 0 0 0 41 0 0 65 34 28 0 0 0 0 0 42 73 34 0 28 99 28 0 34 73 0 43 12 0 12 51 12 51 12 0 12 0 44 0 0 88 0 56 0 0 73 0 73 0 70 15 0 127 0 9 0 9 0 9 0 71 127 0 65 0 73 0 121 3 120 0 72 127 0 120 0 8 0 8 0 127 0 73 0 0 99 0 127 0 99  0 73 0 79 0 120 0 99 127 0 65 0 65 0 71 0 103 0 100 127 0 127 0 65 0 65 0 62 0 101 127 0 121 0 73 0 73 0 73 0 102 15 0 12yRFACES, TRY TRANSPARENT MODE." 4" PRESS SPACE"+ >SP$:SP$""2110? HSP$" "2110E RINTO THE"" PRINTER ANY TIME YOU WANT THE NEW"" CHARACTER SET."" PRESS SPACE" 15 0 9 0 9 0 121 0 127 0 58 0 0 108 0 108 0 0 0 0 0 59 0 0 0 91 32 27 0 0 0 1 60 8 0 28 0 54 0 99 0 0 0 61 54 0 5 0 86 127 0 127 0 64 32 16 8 7 0 87 127 0 71 0 112 0 64 0 127 0 88 96 3 96 20 8 20 96 3 96 0 89 3 0 4 120 0 120 4 0 3 0 HARACTERS. ALL THE"b" DATA IS AUTOMATICALLY STORED IN THE"El" MEMORY. IF YOU DON'T WANT THE DATAvv"STORED, OR YOU WANT A NEW GRID, PRESS'N'"" PRESS SPACE"SP$:SP$""1930SP$" "1930"  0 0 0 1 45 24 0 24 0 24 0 24 0 24 0 46 0 0 96 0 96 0 0 0 0 0 47 0 64 32 16 8 4 2 1 0 0 48 62 65 0 65 0 65 0 65 62 BER IS BEING CHANGED*4,4:4,(27)(42)(1)(K(CH,0))(K(CH,10));@b *SEND NEW CHARACTER DATA*h$.D19:4,(K(CH,D));:D8B *SELECT DOWNLOADED SET*L * FOR TESTING *V`4,(27)(36)(1" PRESS SPACE"SP$:SP$""1700(SP$" "1700Z" THE PRINTER WILL NOT PRINT DOTS WHICH"" ARE ADJACENT TO EACH OTHER ON A"" HORIZONTAL LINE. LEAVE A SPACE BETWEEN"" THEM. ALL VERTICAL DOTS W *** COPYRIGHT 1984 ***6 d *** OKAY TO GIVE BUT***T n *** NOT TO SELL ***Z xi K(126,10) 4,4,25:4:" ":4,:4 53281,0:53280,12:""(142)(8):253,0 " DO YOU WANT INSTRUCTIONS? (Y/N)" I$:I$""170  CC(A$"")(A$"") RR(A$"")(A$"")?C0C8C0(C8)8(C0)^R0R6R0(R6)6(R0)"":T110R:"";::T117C:"";:LS(1481R40C)530 ".";:CC1:710: ERASE ROUTINE" ";:CC1:710: DOT R 15,E,E$,E1,E2"";E;E$:DL02000:DLE01330-CH32126: D010M1,K(CH,D);CR$TD\CHl1,(13):115:"REMEMBER THAT YOUR INTERFACE HAS BEEN DISABLED.": * DIRECTORY SUBROUTINE *"":DT2 -NEW GRID (WILL NOT STORE DATA)"+ "E -ERASE DOT"> "SPACE-DOT ON^ "CURSOR CONTROLS TO MOVE" " ";:T19:"";:: T17:" ";:R19:".";::"": " ";:T19:"";::R0:C0:LS );jt~ *PRINT NEW CHARACTER*?P110:4,(K(CH,0));(32);:PF*l*PRINT CHARACTER WITH UNDERLINE*4,(27)(45)(1)P110:4,(K(CH,0));(32);:P:4,(13)4,(27)(45)(0):4 *DOWNLOAD SET FR ILL PRINT." " PRESS SPACE"!SP$:SP$""1770S" IF A CHARACTER REQUIRES A DESCENDER,"" (A PORTION BELOW THE LINE), PRESS F1."" TWO MARKS WILL INDICATE WHICH DOTS ARE"" ABOVE AND BELOW THE LII$"Y"1630 "";+ "FONT NAME OR"G "DIRECTORY D";F$c F$"D""":1530:200 *READ FILE AND STORE* * DATA IN ARRAYS * 1: 1,8,2,"0:"F$",S,R" 15,8,15:15,E,E$ E0"";E$:1:15:2OUTINE * *READ SCREEN DISPLAY AND*:4 * AND STORE IN ARRAY *@>[HK(CH,0)CH:K(CH,10)DEeRSC40z\D19:CM1480DfK(CH,D)0:P06p(CM)160(CM)32K(CH,D)K(CH,D)2PzCMCMSC:PD *READ ARRAY :A$"0":A0:B02,8,0,"$"A$"":#2,A$:#2,A$"ADTA0:/20A);V"C14:#2,A$::ST02:(13):t,#2,A$:A$""AA1:15506A$(34)BB:1580@BA$;J1580T * INSTRUCTION ROUTINE *^" THIS UTILITY46:TT1"";:9302204,0:A$:A$""530J204,1:A$"S"810[&A$"S"840z0A$"" 55911,1:55923,1:A$""DE1:1640,122:1639,111:1650,76:1651,111DA$""DE0:1640,103:1650,101:NA$""55911,0:559OM DISK**4:4,4:" SENDING DATA TO PRINTER FOR 19 SECONDS":CH32126:e4,(27)(42)(1)(CH)(K(CH,10));D19:4,(K(CH,D));:D:CH 4,(27)(36)(1)4:  *WRITE DATA TO SEQUENTIAL FILE*(2" WANE."" PRESS SPACE"&SP$:SP$""1830-0SP$" "1830^:" TO TEST THE DESIGN ON THE PRINTER,"D" PRESS 'P'. THE CHARACTER IS DISPLAYED"N" WITH AND WITHOUT UNDERLINE. PRESS"X" 'T' TO PRINT ALL C00& CH32126:D010:1,K(CH,D) :D:CH1 1:15; "1250{ ,"":CH31CH127" THE LAST ASCII NUMBER WAS";CH 6 " ENTER THE ASCII NUMBER TO DESIGN" @" (32 TO 126)"; JCH TCH32CH126300 ^ h AND SHOW CHARACTER* SC40%D19:CM1480D:P06>K(CH,D)2PCM,160QCMCMSC:P:DxK(CH,10)1DE1:55911,1:55923,1K(CH,10)11640,122:1639,111:1650,76:1651,111 *TELL PRINTER WHICH ASCII* * NUM IS USED TO DESIGN"h" YOUR OWN CHARACTERS FOR THE GEMINI,"Nr" TEST THEM AND THEN STORE THE DATA ON"z|" A DISK FILE. A 'NORMAL FONT'"" IS PROVIDED AS A STARTER FILE TO BE"" LOADED BY THE PROGRAM INTO THE PRINTER"  ***CHARACTER CREATOR***? *** FOR GEMINI 10X ***^ *** WITH CARD/? ***}( *** INTERFACE ***2 *** ***< *** ADAPTED BY ***F *** KEN COX ***P *** TPUG TORONTO *** Z23,0XA$"E"780bA$"N"300.lA$"Q"840:1330>vA$" "790[A$"P"840:1020:1170A$"T"840:1020:TE32126:4,(TE);:TEA$"T"4,(13):4 (206)46TT1" ";TT0LS46".";:710" ";NT TO SAVE FILE TO DISK?(Y/N)<Q$:Q$""1340ZFQ$"N""REMEMBER THAT YOUR INTERFACE HAS BEEN DISABLED.":mPQ$"Y"1340Z" NAME OF FILE: TEST FONT";N$dCR$(13)n1: 1,8,2,"@0:"N$",S,W"x15: 15,8,15 ***SET UP SCREEN DISPLAY*** rK |DE0:"S -STORE DATA IN MEMORY ASCII NO.";_ CH;"";:(CH)~ "P -PRINT THIS CHARACTER" "T -PRINT ALL CHARACTERS" "F1-DESCENDER ON" "F3-DESCENDER OFF" "Q -QUIT/WRITE FONT TO DISK" "N REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  SPECIAL CHAR  SET FOR 1525 AND GEMINI-10X! #1,B$:B$(34)P$P$B$:220: #1,B$:B$(32)230G P$(X)P$_ #1,B$:B$"" 250t ST0XX1:180{ 1  DISPLAY MENU "N10 ," MIDWEST PUBLIC DOMAIN "; 6" ";P$(0);"": @N10N10 JN100N100 TREM USR FILE! UTILITY " P1 2A " " SEQ  ". " SEQ  " . " SEQ BLOCKS FREE. KEY"","RUN A$="":FORI=1TO80:A$=A$+" "+CHR$(20):NEXT KEY"",A$ " DUAL DRIVE FUNCTIONS ACTIV REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  SPECIAL CHAR  SET FOR 1525 AND GEMINI-10X ") CC(A$"")(A$"")8 R0R5R0(R5)5(R0)W C0C6C0(C6)6(C0) "":T110C:"";::T117R:"";: LS(1481C40R) 11 ".";:RR1:20 " ";:RR1:20 T$"":1000:T16:T$T$(D(T))::4,4 REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1 SCREENDUMP.64 SEQREAD :(8):53281,0:53280,6I" VIC 1525 CHARACTER EDITOR"\"D-DATA LIST{"E-ERASE":"T-TEST CHAR.""SPACE-PRINT"CURSOR CONTROLS TO MOVE" ";:T16:"";:: T17:" ";:R1J(N9)N:J;"- ";P$(J):JG ^:"PRESS NEXT SCREEN ";d h" LAST SCREEN" r" EXIT TO BASIC "; |" S LOAD ONLY" " R LOAD AND RUN" Z$"":Z$:Z$""400 Z$"N"NN10:300 REM USR FILE! UTILITY " P1 2A " " SEQ  ". " SEQ  " . " SEQ BLOCKS FREE. KEY"","RUN A$="":FORI=1TO80:A$=A$+" "+CHR$(20):NEXT KEY"",A$ " DUAL DRIVE FUNCTIONS ACTIV REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  SPECIAL CHAR  SET FOR 1525 AND GEMINI-10X 4,(8)T$:4:118 T16:D(T)0::B1481:1481C40R,LSt T05:R601:(BT(6R)40)160D(T)D(T)2(6R) :D(T)D(T)128: : "1000 DATA";:T05 ((D(T)),3)",";::" "";:20 " "; RR(A$"")(A$" REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  SPECIAL CHAR  SET FOR 1525 AND GEMINI-10X6:".";::"":F " ";:T16:"";::R0:C0:LS46\ "";u 204,0:A$:A$""11 204,1:A$"D"1000:1005 A$"E"200 A$" "400 A$"T"500 LS46".";:20 " "; RR(A$"")(A$"Z$"L"NN10:3001 Z$"E""MENU STILL PRESENT":G Z$"S"U13:470^ Z$"R"U131:470g 400  SELECT AND PRINT LOAD "PROGRAM #"; S S1SX480 (P$(S))12P$(S)(P$(S),12)"*" "LOAD"(34)P$(SREM USR FILE! 1984 REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  SPECIAL CHAR  SET FOR 1525 AND GEMINI-10Xd VIC/64 DISK MENU3x"":53280,0:53281,0_"READING DISK DIRECTORY "|" (PLEASE BE PATIENT)"P$(100) DIRECTORY PEEPER1,8,0,"$" LOAD ARRAY P$#1,B$:ST0270B$(34)190P$""REM USR FILE! UTILITY " P1 2A " " SEQ  ". " SEQ  " . " SEQ BLOCKS FREE. KEY"","RUN A$="":FORI=1TO80:A$=A$+" "+CHR$(20):NEXT KEY"",A$ " DUAL DRIVE FUNCTIONS ACTIV REMSEQFILE! 1984  INFO FILE-DISKP1 P1.DOC.1  SPECIAL CHAR  SET FOR 1525 AND GEMINI-10X,)(34)",8"; 631,19:632,U:198,2 NEXT SCREEN ";d h" LAST SCREEN" r" EXIT TO BASIC "; |" S LOAD ONLY" " R LOAD AND RUN" Z$"":Z$:Z$""400 Z$"N"NN10:300 AH <UTILITIES #3CK2AMENU (M.P.D.) PRINTER  UTILITY DISK   ALTERNATIVE EZ PRINTERBANNER PRINTSECTOR PRINT 2DRIVE DIR PRINT DIR PRINTER DIRECTORY SORT(AUTO DIR PRINTCALENDAR PRINT  CHARACTER SET FOR THE 1525  AND GEMINI-10 PRINTERS 1525 CHAR EDITORGEMINI CHAR-ED COMPUTR.FONT.GEMBANNERBIO PRINTER10X DISK COVER 1520 LISTER SCREEN MAP 10X SCREEN MAP MX80MORTGAGE PRINTER  SNOOPY CALENDAR NORML.FONT.GEMNI 1525 GOTHIC/BOLD GEMINI EYE CHART  GOODIES FOR AN  - EPSON -  RX/MX--PRINTER  CHRISTMAS CARD GRAPH BUILDER(TEST GRAPH TEST II THE ETERNAL  SCREEN DUMPING UTILITIES  PICA CONDENSED PICA ITAL DBL PICA ENLG EMPH PICA ENLG PICA COND ENLG PICA EMPH DBL PICA PICA ITAL DBL EM HI-RES DUMP LOW-RES-DUMPHI RES DUMPER 1525 SCREENDUMP 1526 SCREENDUMP PICA DBL UNDER ELITE ELITE ITAL ELITE ITAL DBL ELITE DOUBLE ELITE ENLARGED EPSON CHAR SET EPSON GRAPHICS  GENERAL USAGE  PRINTING   UTILITIES   GRAPHPRINT.UTIL HI SCORE MAIL LABELS@,":F11:1010AA128:A0Q01000.A127A$"":1000?T1:A$K$(A)MA15Q2W2010kA$(34)Q1Q C=-1 FOR ALPHANUMERICC((A$,1)):C(C48C57)(C65C90)TT1T1T1T:CC1P$P$" ":2500C((A$,V20& 4,(14)" C-64 COLOR MEMORY MAP"? 4,(12):4,(27)"@"H 4:5296:EM56295l ZMSMEM40v [4,M; ]T141 ^4,(156)" "; _T `4," " aM1984M56256130 bZ24," "; d4," "(150); iT240 n 2 2 2 2 2 ";( )4,"2 3 3 3 3 3 3 3 3 3 3"t ,4," 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 "; -4,"9 0 1 2 3 4 5 6 7 8 9"; 7PRINT#4,CHR$(18); 84,(27)"A"(6); 94,(27)"U"(1) <4," "; >Z24," "; AV20& 4,(14)" C-64 COLOR MEMORY MAP"? 4,(12):4,(27)"@"H 4:5296:EM56295l ZMSMEM40v [4,M; ]T141 ^4,(245)" "; _T `4," " aM1984M56256130 bZ24," "; d4," "(244); iT240 n 2 2 2 2 2 ";( )4,"2 3 3 3 3 3 3 3 3 3 3"t ,4," 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 "; -4,"9 0 1 2 3 4 5 6 7 8 9"; 7PRINT#4,CHR$(18); 84,(27)"A"(6); 94,(27)"U"(1) <4," "; >Z24," "; A BLACK";Z$ Z$"BLACK"4140((Z$)803,0:=(Z$)203,2:R(Z$)103,3:n""INVALID ENTRY":4040|,2:2,6,26Z$"BLUE"2,1@Z$"GREEN"2,2JZ$"RED"2,3T(P$)0F21:250,M$;P$ F20 1)):C1((C48C57)(C65C90))A37$$P$P$A$:2500-.810E8 SKIP TO NEXT LINE[B#1,A$:A$""710eL1090 CLOSE OFF CURSOR EXPRESSIONF102040B0P$P$((B1),2):2500B0:F10:B1$"":P$P$P2$:2500:F$P1$ ,P:F$P1$J80:P3690""":J(213)1@L9J:250,"PROGRAM: ";G$O NEW LINE~2010:Q0:T11:C11:#1,A$,B$:ST03000B$""3000#1,A$,B$L(A$(0))(B$(0))256LL11080LL23000F21:250,M$;P$:P4,(134); FT240& K4,(157)(152);- PTA U4,(157)(149)\ XZ2SM55296:EM56295l ZMSMEM40v [4,M; ]T141 ^4,(156)" "; _T `4," " aM1984M56256130 bZ24," "; d4," "(150); iT240 nC CONVERTED FROM VIC TO C64 BY JOHN CROOKSHANK"GET PRINTER READY AND PRESS ANY KEY...":198,0:198,1SM1024:EM2023 4,4,44,(15);(27)"A"(9);(27)"U"(1)Z240) 4," 4,(240); FT240& K4,(241)(243);- PTA U4,(241)(242)\ XZ2SM55296:EM56295l ZMSMEM40v [4,M; ]T141 ^4,(245)" "; _T `4," " aM1984M56256130 bZ24," "; d4," "(244); iT240 nC CONVERTED FROM VIC TO C64 BY JOHN CROOKSHANK"GET PRINTER READY AND PRESS ANY KEY...":198,0:198,1SM1024:EM2023 4,4,44,(15);(27)"A"(9);(27)"U"(1)Z240) 4,"  (P$)L92600 JL9L9.61& (P$,J,1)":"2580@ J:JL91L9.611Q P((P$,J))` P912580 P59P44P93JJ1:2580 J:JL91 250,M$;(P$,J1) P$" "(P$,J)(  (P$)0F21:250,M$;P$ F20$(L)" "  START TEXT HERE&*#1,A$:A$""710G4T0:A(A$):A32F$","840d>Q0(A127)31T70900HJ040:AA(J)B$A$(J):860RJ:1000\B$B1$BB1:810fB0A$((B1),2)F$B$:890pA$F$B$zB0:B1$B$:F$"4,(157)(159); sT" x4,(157)(151)) }M: Z24," ";Q 4," "(153);] T240r 4,(157)(158);y T 4,(157)(154) 4,(13)(13) Z2180 4,(14)" C-64 SCREEN MEMORY MAP" 4,(12) Z2  1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 ";H 4,"2 3 3 3 3 3 3 3 3 3 3" "4," 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 "; #4,"9 0 1 2 3 4 5 6 7 8 9"; &55 (4," 1 1 1 1 1 1 1 1 1 1 2 2 2 24,(241)(250); sT" x4,(241)(249)) }M: Z24," ";Q 4," "(246);] T240r 4,(241)(248);y T 4,(241)(247) 4,(13)(13) Z2180 4,(14)" C-64 SCREEN MEMORY MAP" 4,(12) Z2  1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 ";H 4,"2 3 3 3 3 3 3 3 3 3 3" "4," 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 "; #4,"9 0 1 2 3 4 5 6 7 8 9"; &55 (4," 1 1 1 1 1 1 1 1 1 1 2 2 2 2"** NO LINES FOUND **" 1:2000:250 , PLOTTER SET-UP@7:7,6,7:7:7e"UPPER OR LOWER CASE U";Z$(Z$)766:6,6,6:6,1:6"CHARACTERS PER LINE 40";Z$(Z$)403:3,6,3:41003"PRINT COLOR  PN%N%12+ Z"ENTER MONTHLY PAYMENT $";PTW d"ENTER # COMPOUNDING PERIOD A YEAR";i C$:C%(C$)} C$ "A" C%1 FNA ROUNDS TO 2 PLACES A(X) ((X.005)100)100 I 0 420 CALCULATION OF DECIMAL MONTHLY RATE,4,1.1,10,18.1,1.5,0,8,1.1,5,3.1,2.5,4,1.1,10,1.1,0k 8,1.1,4,1.1,3,1.1,5,1.1,9,1.1,0,8,1.1,4,1.1,4,1.1,4,1.1,8,1.1,0 9,1.1,3,1.1,4,1.1,4,1.1,8,1.1,20,2.1,0,9,1.1,4,1.1,3 1.1,4,1.1,8,1.1 17,3.1,2,2.1,0  10,1.1,4,3.1,6,1.1,8,1.1 i198,0:198,1= x"PLEASE BE PATIENT...":4,4:4:YY1:A15C J AU F17` C$(F)g F "X","*",")","(","/","=","-" K K0330 K0350 N(K) H((10K10N).5) H0290 L1N " "; L A HARDCOPY"1 "CALENDAR OF ANY YEAR YOU DESIRE."s "DO YOU HAVE A PRINTER? (Y/N)";RE$:RE$"Y""SORRY!": N(10,13),X$(12):"":A$(141) "WHAT YEAR CALENDAR";Y #Y158250 (Y999965 -"NOT PREPARED TO DO CALENDARS AFTE 0:D10 K9K100AA1K100AA2,IN10BB1GIN100IN1000BB1dIN1000IN10000BB2yIN10000BB3IT10CC1IT100IT1000CC1IT1000IT10000CC2IT10000CC3OP10DD1 :11,"MONTHLY PAYMENT= $";PT:1H1,"NUMBER OF YEARS TO PAY DEBT ";N%12:11,"ANNUAL INTEREST RATE %";A(((1R)(12C%)1)100C%)"DO YOU WANT AN AMORTIZATION TABLE"; D$D$"N"7001:11,A);"PAYMENT";(16);"2 "R(1I100C%)(C%12)1$ , P0 3604 6 N%0 390Q ; FNA ROUNDS TO 2 PLACESs @ A(X) ((X.005)100)100 E CALCULATION OF MONTHLY PAYMENT JPTA(PR(11(1R)N%)) OIN100IE1000BB1 T"MONTHLY PAYMENT = $";PT ^ 4 )"MORTGAGE PROGRAM"P"BY G.L. PAWLEY SR."s"ALBANY GEORGIA"X12000:X## MORTGAGE PROGRAM ## BY G.L. PAWLEY SR. ALBANY, GA.1,4,0:2,4,0 "MORTGAGE PRINTER"; "T 190 "L1N ,C$(H); 6L& @190/ J" "8 T190> ^n h" CURSE YOU, RED BARON!!!"z rL110 | L  22,4.1,0,21,1.1,4,2.1,0  20,1.1,2,3.2,2,1.1,16,5.1,0  19,1.1,2,5.2,2,1.1,12,3.1,5,2.1,0R 9999":303 2"NOT PREPARED TO DO CALENDARS BEFORE"` 7"MDLXXXII (1582); THE CURRENT CALENDAR" <"DID NOT EXIST BEFORE THAT YEAR.":30 A"THIS PROGRAM SHOULD WORK WITH ANY" F"PRINTER. HOWEVER, AS COMMODORE OUTPUT" K"ROM DOES NOT TOP100OP1000DD1  OP1000OP10000DD25OP10000DD3; PRINCIPALk:DPA(PTIN):OPA(OPDP)t?715N2,A)K;(16);"10";B);IN;(16);"30";C);IT;O2,(16);"50";D);OPS KX1:2:3:lDY.A3:B10:C10PAYMENT";(16);"40ACCUMLATE";- 1,(16);"60OUTSTANDING"h1,A);"PERIOD";(16);"20INTEREST";(16);"40INTEREST";1,(16);"60PRINCIPAL"1 OP=OUTSTANDING PRINCIPALOP P% K = LINE OF AMORTIZATION TABLE& K 1 N% + 80 c CALCULATION OF PRINCIPAL7 hPA(PT(11(1R)N%)R)P r"PRINCIPAL = $";PZ | 480  CALCULATION OF YEARS OF AMORTIZATION NA((PT(PTPR))(1R)12) "NUMBER OF YEARS OF AMORTIZATION";N N%N12  480  CALCULHIS PROGRAM COMPUTES MORTGAGE RESULTS FROM ANY 4 VARIABLES." "INPUT ANY 3 KNOWN VARIABLES AND A 0 BY THE UNKNOWN VARIABLE." ("AMOUNT MORTGAGE PRINCIPAL";P 2"ENTER ANNUAL INTEREST RATE %"; <I F"NUMBER YEARS TO AMORTIZE";N% 16,4.1,1,7.2,1,3.1,6,4.1,10,2.1\,14,2.1,3,1.1,1,6.2,2,9.1,16,2.1,1,3.1,0,12,2.1,6,1.1,1,4.2,2,1.1 27,1.1,2.2,1,1.1,0,11,1.1,8,2.1,4,2.1,5,1.1,22,1.1,3.2,1.1,0 10,1.1,9,2.5,4.1,7,1.1,22,4.1,0,9,1.1,9,2.5,2,1.1,29,2.1,0% 8,1.1,9,2.5SUPPORT TABBING ON A"< P"PRINTER, THIS PROGRAM MAY NOT WORK ON"g U"CERTAIN NON-COMMODORE PRINTERS. IT" Z"WORKS WITHOUT PROBLEM ON ALL EPSON" _"MODELS; PLEASE TRY YOURS TO BE SURE." d"THANKS,":"ADAM B. ROSEN":"HIT A KEY TO BEGIN..." SNOOPY: SNOOPY CALENDAR? REV. BY E. SCHAEFER, 3/75^ ADAPTED FOR COMMODORE 64{ BY ADAM B. ROSEN, 4/84 "";7);"*** SNOOPY CALENDAR ***":" NOTE:" "YOU MUST HAVE A PRINTER TO RUN THIS" "PROGRAM, AS IT GENERATES IN = INTEREST PAID THAT MONTH+0IN A(OPR):ITA(ITIN)M9 DP = DECREMENT OF PRINCIPALk:DPA(PTIN):OPA(OPDP)t?715N2,A)K;(16);"10";B);IN;(16);"30";C);IT;O2,(16);"50";D);OPS KX1:2:3:lDY.A3:B10:C1ATION OF RATE BY ITERATION R.14 R2PT(11(1R)N%)PQ  (R2R).00000001 470` R(RR2)2j  430 "ANNUAL INTEREST RATE ="; A(((1R)(12C%)1)100C%);"%" 1,"TOTAL INTEREST = $";A(PTN%P):1 1,"PRINCIPAL= $";P,2.1,0-l 29,1.2,1.7,1,1.2,2.1,4,1.1,13,1.1,0,28,1.2,2,1.2,1.1Lv 1.2,1,1.1,4,1.1,13,1.1,0~ 28,1.2,2,1.2,1.1,1,1.2,1,1.1,4,1.1,13,1.1,0 27,1.2,2,1.2,1,1.1,2.2,2,1.1,3,4.1,10,1.1,0 27,1.2,2,1.2,1,1.1,2.2,2,2.1,5,1.1,10,1.1,0 260̺":4; 4,(16)"16MONEY'S TIGHT-";:4,(16)"55MONEY'S TIGHT-"x 4,(16)"16TIMES ARE HARD.";:4,(16)"55TIMES ARE HARD." 4,(16)"14HERE'S YOUR LOUSY"; 4,(16)"53HERE'S YOUR LOUSY" 4,(16)"15CHRISTMAS CARD!";:4,(16)"54CHRISTMAS CAAS";:4,(16)"53MERRY CHRISTMAS"Y 4,(16)"14HAPPY NEW YEAR";:4,(16)"53HAPPY NEW YEAR"` 4 4,(16)"20**";:4,(16)"60**" 4,(16)"20";:4,(16)"60" (4,(16)"19";:4,(16)"59" 24,(16)"19";:4,(16)"59" <4, vP515P53,33,"PRINT#4:CLOSE4"'3,"RUN1990"23,""R631,13:632,13:198,2:3:"WOULD YOU LIKE ANOTHER CALENDAR? (Y/N)"RE$:RE$""2000RE$"Y"2020:26"*** SNOOPY CALENDAR ** BB1d1420nAI11xT1A(A)T101350$B01440,B728I: CALENDAR_I112:X$(I):IlP4112 JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERZ  "*** ***"; "***";'" ***";-?" ****";EW" *****";]o$" ******";u.8L131120BI1(10(L3))L" ";`"****";jt 1,1,2,2,2,2,2,2,2,2,2,1,1~ 5,6,7, 6,1.2,2,2.2,1,1.1,2.2,1,1.1,5,2.1,10,1.1,0E 26,1.2,2,2.2,2,1.1,1.2,2,3.1,3,1.1,9,1.1,0l 25,1.2,2,2.2,4,2.1,3,4.1,7,3.1,0 24,1.2,2,1.2,1,1.2,6,4.1,6,1.1,5,1.1,0 23,1.2,3,1.2,1,1.2,10,1.1,5,1.1,5,1.1,0 9,7.6,7.2,3,1.2,1,1.2,11,1 ,15,1.1,2,1.1,1,1.1,2,1.1,0N 10,1.1,13,1.1,9,1.1,14,2.1,1,1.1,2,4.1,0,11,1.1,13,1.1,9,8.1l 1.4,5,2.1,3,2.1,2,1.1,0& 12,2.1,12,2.1,14,1.1,5,1.1,4,1.1,2,1.1,0,14,2.1,12,4.1,3,6.10 1.5,5,1.1,5,4.1,0: 16,3.1,13,2.1,3.2,9,1.1,5,1.1,0,(16)"18";:4,(16)"58"J F4,(16)"18";:4,(16)"58"y P4,(16)"17";:4,(16)"57" Z4,(16)"17";:4,(16)"57" d4,(16)"16";:4,(16)"56" n4,(16)"16";:4v*""BY E. SCHAEFER, COMMACK SOUTH 3/75"'"ADAPTED FOR COMMODORE 64 BY"B"ADAM B. ROSEN, 4/84"H Q7YjQ6Z1660rB1Q1Z1870""13);&P2QZ0P2;" ";:BB1DP2NXblP431,28,31,30,31,30,31,31,30,31,30,31 $"""26);X$(P4)*,06M@X$(P4)"FEBRUARY"1630mJ((Y1)4)((Y1)4)1630wTZZ1^""13);"SUN MON TUE WED THU FRI SAT"hrQ2B|""13);P2QQ65,5,5,5,5,5,5,5,1,1 1,1,4,4,4,4,1,1,3,3,3,1,15 1,1,4,4,4,1,1,4,4,4,4,1,1U 2,2,2,2,2,1,1,4,4,4,4,4,4u 1,1,3,3,3,1,1,4,4,4,4,1,1 1,1,3,3,3,1,1,2,2,2,2,1,1 1,1,8,8,8,8,8,8,8,8,8,8,8 1,1,2,2,2,1,1,2,2,2,2,1,1 1,1,.1,5,1.1,6,8.1,1.4,01 16,1.2,9,1.2,1,1.2,6,1.5,5.1,6,8.1,1.4,6,1.3,0d 11,5.6,10.2,2,1.2,5,1.1,21,1.3,2,1.4,2,1.3,0 13,4.6,1.2,9,1.2,5,1.1,15,1.4,2,1.4,3,1.3,5.1,0,-7 Y2Y: YEAR NUMBER Z314*Y1(Z3)(Y2(1019,13.1,1,1.2,3,1.2,7,1.1,5,1.1,0SD 32,1.2,3.7,1.2,1,1.1,5,1.1,5,1.1,0,31,1.2,1.7,1.2,1,1.2,3,3.1gN 1,1.1,5,1.1,0X 31,1.2,1.7,1,1.2,7,3.1,3,1.1,0,30,1.2,1.7,1,1.2,1.1,10,3.1,0b 30,1.2,1.7,1,1.2,1.1,10,3.1,0,29,1.2,1.7,1,1.2,1.1,4,1.1,12,(16)"56"E x4,(16)"15";:4,(16)"55"| }4,(16)"15";:4,(16)"55" 4,(16)"14* Ϸ*";:4,(16)"54* Ϸ*" 4,(16)"20";:4,(16)"60":4,(16)"20̺"; 4,(16)"6 CHRISTMAS CARD BY PETE LOWAS, HOT SPRINGS, ARKc USE ANY WORD YOU WANT IN LINES 180/190 OPERATES ONLY WITH PRINTER LINE ENTRIES ARE REPEATED TO PRINTOUT TWO COPIES AT A TIME4,4:4 4:4:4:4 4,(16)"14MERRY CHRISTMP211710P21017301750" ";1760)P2;" ";31760AP2;" ";IP2SQQ7YjQ6Z1660rB1Q1Z1870""13);&P2QZ0P2;" ";:BB1DP2NXblP42,2,2,1,1,4,4,4,4,4,4A(A)(A(A4)4))B(A)(A(A7)7)1@I1((Y1500)100)TAI15(I13)4aI2B(A)z Y3(Y(Y100)100)AY34Y3I2BB(A)(Y3013902T1A(Y)<T101420FB01370PB6Z(4Z3))) 4Y2Y2Y1(Z3)(10(4Z3))>Z35HI110:J113:N(I,J):J,IARL113L\T14dfA$;((T1)17)1);mp930tzTzL1240N((Y1(T)1),L)940,960,980,1000,1020,1040,1060,1080"**************";. COMMODE 64 COMPUTER- $. STORAGE UNITE &. (DISK TAPE)] (. COL TV MIRs *. ER (OPTIAL)y ,. .. INITIS OF VARIABLES: 0. 2. AI NUMBER OF ERS 4. BA LOOP BUILDING BARS 6. CO COLS GRAPH LOR SEGMENTS." WHEN YOU HAVE SEEN ENOUGH OF THEK" GRAPH, TYPE ";(34);"Q";(34);" TO ABORT ANDy" CLEAR THE SCREEN. BEFORE THAT GRAPH" IS CLEARED FROM MEMORY, YOU WILL BE" GIVEN THE OPTION OF SAVING THE" GRAPY VALUES YOU CHOOSE. (I.E.,)8" BY TENS, HUNDREDS, THOUSANDTHS,;=" ETC..)hBME$"HIT <> TO CONTINUE":500GRE$:RE$(32)1095L" YOU WILL BE ASKED TO SUPPLY THEQ" GRAPH'S TITLE, THE NUMBER OFV" VARIA B. ROSEN":500%>ME$"A ROSKI SOFTWARE PRESENTATION":5009CME$"1984":500XH:"";(9):808,237:| ** CONSTRUCT NEW BAR GRAPH **"":53280,4:53281,14ME$"** CONSTRUCT NEW BAR GRAPH **":"";:500" THIS PART OF THE LD BAR GRAPH")3);"(3)...............SAVE BAR GRAPH"U3);"(4).........DISPLAY CURRENT DATA"3);"(5)...........PRINT CURRENT DATA"3);"(6)......REDISPLAY CURRENT GRAPH"3);"(7)................RESET PROGRAM"3);"(8)....... SOFTWARE PRESENTS..."= "      "p "         " "      " "  ߒ      "" ߒ      8. DA FOR GRAPH (ARRAY)= :. LO EGER REPEAT LOOP^ <. NI NUMBER OF INCENTS >. NV NUMBER OF VARIABLES @. OD IO DEVICE NUMBER B. OF OFFSET COL MEMY D. OP OPTI SELECTI F. RP EGER REPERD!" 4:4"E x4,(16)"15";:4,(16)"55"| }4,(16)"15";:4,(16)"55" 4,(16)"14* Ϸ*";:4,(16)"54* Ϸ*" 4,(16)"20";:4,(16)"60":4,(16)"20̺"; 4,(16)"BLES, THE VARIABLE NAMES, THE+[" NUMBER OF INCREMENTS, THE VALUE OFR`" EACH INCREMENT, THE NUMBER OFe" INTERVALS, THEIR NAMES, AND ALL THEj" DATA. AFTER EACH SET OF QUESTIONSo" YOU WILL BE ASKED IF THERE ARE ANYt"  PROGRAM CONSTRUCTS&" A BAR GRAPH BASED ON THE DATA YOUQ" SUPPLY. FOR THE SAKE OF CLARITY,~" YOU ARE LIMITED TO HAVING ONLY FIVE " VARIABLES ON THE GRAPH AT ANY TIME," EACH OF WHICH CAN BE REPRESENTED AT" FIVE..........QUIT PROGRAM",ME$"CHOOSE BY NUMBER":"";:500? RE$:OP(RE$)mOP1000,1600,1700,1900,2000,1350,300,800OP1OP8265205, ** RESET PROGRAM **1"":OP12000:OP:: ** CENTER MESSAGE **19((ME$)    "D"           "}"         ""       ߒ""BY ADAM B. ROSEN"ME$" HIT <> AT LOOP H. SL SCREEN LOCATI< J. VI UE PER INCENT] L. VA MISCELLANEOUS UES{ N. F$ FIAME SRAGE P. IN$ ER NAMES R. ME$ VARIOUS MESSAGES T. NA$ VARIABLE NAMES V. RE$ USER'S RESPSE(S) X.  100 ./ . GRAPH BUILDER 5.X. A ROSKI SOFTWARE PRESENTATIo. 1984u.. WRITTEN BY:. ADAM B. ROSEN. 8 EMPRESS PINES DRIVE. LAKE RKKOMA, NY 11779. . TEM CFIGURATI: " MISTAKES. IF THERE AREN'T, JUST HITBy" RETURN; OTHERWISE, JUST HIT ";(34);"Y";(34);" ANDm~" RETURN. ONCE ALL THE INFORMATION" IS ENTERED INTO THE COMPUTER,"  GRAPH BUILDER WILL BUILD THE" GRAPH IN VIVID MULTICO DIFFERENT INTERVALS. (I.E.,)" THE STOCKS OF FIVE DIFFERENTT" COMPANIES SHOWN AT FIVE DIFFERENT$" DATES.) EACH GRAPH CAN ALSO HAVE)" UP TO FIFTEEN INCREMENTS, NUMBERED." FROM THE BOTTOM UP. THESE CAN HAVE3" AN2).5);ME$:X ** CHECK FOR MISTAKES **9]"ANY MISTAKES N";RE$?bX  ** QUIT PROGRAM **d%""*ME$"THANK YOU FOR YOUR INTEREST":500/ME$"HAVE A NICE DAY!":5004"":ME$" GRAPH BUILDER ":5009:ME$"BY ADAM TO BEGIN" "";:500&RE$:RE$(32)195: ** OPTIONS **X"":53280,13:53281,15ME$" GRAPH BUILDER ":"";:500ME$"** OPTIONS **":"";:5003);"(1)......CONSTRUCT NEW BAR GRAPH"3);"(2)....RECONSTRUCT O TG$ TITLE OF GRAPH Z., d ** TITLE SCREEN **^ i"";(142);(8);:53280,0:53281,0:808,225k nRP111 s3);"";:AI110:"з";:AI:"" x3);" ";:AI111:" ";:AI: }RP 3);:PR133:"";:PR "ROSKI"1600RE$"N"1227'"":"TITLE OF GRAPH";TG$:600:RE$"Y"1229T"NUMBER OF VARIABLES";RE$:NV(RE$)NV1NV5"CHOOSE A NUMBER FROM ONE TO FIVE":1230600:RE$"Y"1230"LIMIT 10 LETTERS ON VARIABLE NAMES"HIT ";(34);"Q";(34);" TO ABORT"+RE$:RE$"Q"1965+, ** PRINT CURRENT DATA **4,"":53280,5:53281,3\,ME$"** PRINT CURRENT DATA **":500,TG$"""NO CURRENT DATA.":1960,"TURN ON PRINTER; HIT ";(34);"P";(341,F$(2,TG$;(13);"BAR GRAPH";(13);(2,NV;(13);)RP1NV:2,NA$(RP);(13);:RP4)2,NI;(13);VI;(13);E)2,AI;(13);h)RP1AI:2,IN$(RP);(13);:RPu)RP1AI)LO1NV)2,DA(RP,LO);(13);:LO,RP)2,(13):2:OD8220 RAPH'S TITLE";TG$%T"FROM TAPE OR DISK";"&YRE$:RE$"D""DISK":ZX2:16405&^RE$"T"1625^&c"TAPE":OD1:F$TG$:ZX0:1645z&hOD8:F$"0:"TG$",S,R"&m2,OD,ZX,F$:&rA0:2,RE$:1660&w2:2200:1615&|2,RE$:RE "SL,160:SLOF,CO#SLSL40:BA:VA15.1SL,30:SLOF,CO:1485*#VA(DA(RP,LO)VI)VAN#VA0VA.20SL,100:SLOF,COt#VA.20VA.40SL,111:SLOF,CO#VA.40VA.60SL,121:SLOF,CO#VA.60VA.80SL,247:SLOF,CO#VA Y":1320<RP A"DATA COMPLETE. BUILDING GRAPH...") FOF54272:OP6""R HTG$"""NO CURRENT DATA.":1960c KT11500:T P"";:53280,1:53281,1 R" GRAPH BUILDER ";24);"HIT ";(34);"Q";(34);" TO ABORT" UME$" :RP1NV:"VARIABLE";RP;"NAME";:NA$(RP)1(NA$(RP))10NA$(RP)(NA$(RP),10)LRP:600:RE$"Y"1245z"NUMBER OF INCREMENTS";RE$:NI(RE$)NI1NI15"FROM ONE TO FIFTEEN INCREMENTS ONLY":1255600:RE$"Y"1255 H'S DATA AND TITLE TO DISK OR" TAPE, FOR FUTURE REFERENCE.QME$"HIT <> TO CONTINUE":"";:500kRE$:RE$(32)1215"IF YOU'VE NEVER RUN THIS PRO-" GRAM BEFORE, IT IS SUGGESTED THAT" YOU VIEW ONE OF T0:AVA1750:VA))l ** DISPLAY CURRENT DATA ***q"";:53280,1:53281,1C*v" GRAPH BUILDER ";23);"BY ADAM B. ROSEN"l*xTG$"""NO CURRENT DATA.":1960*{" ";TG$;" "*"";NI;"INCREMENTS, VALUED AT";VI;"EACH"$"BAR GRAPH"1670'"NOT  GRAPH BUILDER FILE":2:1615%'2,NV:RP1NV:2,NA$(RP):RPM'2,NI,VI,AI:RP1AI:2,IN$(RP):RPw'RP1AI:LO1NV:2,DA(RP,LO):LO,RP'2:1350' ** SAVE BAR GRAPH **'"":53280,5:53281,3'.80SL,227:SLOF,CO$SL1710((RP1)5)2(LO1):RP1SLSL(RP1)$LO0$SL1710((RP)5)2B$RP2SLSL1T$RP3SLSL2f$RP4SLSL3v$:RP:1555$ 14,13,9,7,10$"";$7);IN$(1);$AI3 "TG$" ":500!ZRP1108170840:RP,100:RPOF,0:RP1,103:RPOF1,0:RPE!_RP17501781:RP,119:RPOF,0:RPb!d"";!iRP0NI:RPVI;"";(13);"";:RP!n"KEY:"!s" = ";NA$(1);!x"VALUE OF EACH INCREMENT";VI600:RE$"Y"1270;"NUMBER OF INTERVALS";RE$:AI(RE$)xAI1AI5"CHOOSE A NUMBER FROM ONE TO FIVE":1280 600:RE$"Y"1280 "LIMIT 6 LETTERS ON INTERVAL NAMES":RP1AI:"IHE TWO TEST GRAPHS" INCLUDED ON THE PROGRAM DISK OR TAPE.S" ONE IS ENTITLED ";(34);"TEST GRAPH";(34);" AND" THE OTHER IS ";(34);"TEST II";(34);"." DO YOU WISH TO VIEW A TEST GRAPH?":" PRESS Y OR N."RE$:RE$"Y*RP1AI2:4RP6);IN$(RP);:RP: +RP2AI2:4RP6);IN$(RP);:RP:"";+10);"";:RP14:"";:RP:""H+RP1NVd+"";NA$(RP);10);"";w+4);:LO1AI+4LO6);DA(LO,RP);:LO::VA138:"";:VA::RP+"ME$"** SAVE BAR GRAPH **"::500 (TG$"""NO CURRENT DATA.":1960/("SAVE TO TAPE OR DISK";U(RE$:RE$"D""DISK":1735h(RE$"T"1715("TAPE":OD1:F$TG$",S,W"(1740(OD8:F$"0:"TG$",S,W"(2,OD,19);IN$(3);$AI531);IN$(5);% :AI213);IN$(2);%AI425);IN$(4)&%1425>%RE$:RE$"Q"1555D%j%@ ** RECONSTRUCT OLD BAR GRAPH **%E"":53280,5:53281,3%JME$"** RECONSTRUCT OLD BAR GRAPH **"::500%O"GNV219);" = ";NA$(2)"}NV3" = ";NA$(3);9"NV419);" = ";NA$(4)\"NV5" = ";NA$(5);n"SL1711:1525{"RP1AI"LO1NV:CO"VA(DA(RP,LO)VI):VA15VA15.1"BA1VA:VA01460NTERVAL";RP;"NAME";:IN$(RP)(IN$(RP))6IN$(RP)(IN$(RP),6)0RP:600:RE$"Y"1295W"BEGIN ENTERING DATA HERE..."dRP1AI#"*** ";IN$(RP);" ***"(LO1NV-"";NA$(LO);:DA(RP,LO)2LO7600:RE$".%RP17:4,(10);:RP.*4,(7);:4:/ ** CHECK FOR DISK ERRORS **4/15,8,15:15,A,A$,A1,A2:15:"";A;A$;A1;A2:,(10);5);TG$;(10)-4," ";NI;"INCREMENTS, VALUED AT";VI;"EACH";(10);(10)-4,8);:RP1AI:A(IN$(RP)):A(9A ` 234,173,4,192,208,43/ j 169,1,141,4,192,165J t 197,201,3,240,35,201c ~ 6,208,16,169,3,141~  7,192,141,45,192,169  0,141,5,192,76,143  * DATA ABOVE(^)CHECKS *  192,201,5,208,8,169  0,141,7,192,76,143  192,76,49"HIGH-RES DUMPER:":L"A HI-RES PRINTER DUMP FOR GEMINI STAR"q"WITH CARDCO PRINTER INTERFACE":"F7 - WILL TOGGLE HI-RES AND TEXT MODE""F3 - WILL PRINT PICTURE IN NORMAL SIZE""F5 - WILL PRINT IN THE BIG SIZE MODE") 159,136,16,248,162,4,32,201,255,168j 176,32,169,0,160,0,162,7,30,74,159,106,202,224,255,208,247,32,210,255 165,144,208,9,200,192,8,208,233,160,0,240,1,168,32,204,255,169,0,76 6,159,0,0,0,0,0,0,0,0R OUTPUTTING TO PRINTER"T4: REMSEQFILE! RINT  REMSEQFILE! RINT TEST GRAPH BAR GRAPH 5 ONE TWO THREE FOUR FIVE 15 10 5 A B C D E 1 4 9 16 25 36 49 64 81 100 121 144 150 144 121 100 81 64 49 36 25 16 9 4 1 BUILDER( );" WHEN READY",RE$:RE$"P"2020-4,4:4,(7);:VA13:4,(10);:VA4-4,"GRAPH BUILDER";23);"BY ADAM B. ROSEN"O-4,(10);5);TG$;(10)-4," ";NI;"INCREMENTS, VALUED AT";VI;"EACH";(10);(10)-4,8);:RP1AI:A(IN$(RP)):A(9A:"HOLD DOWN RUN/STOP TO STOP PRINTING":/ :5 :> CS0i  I49152 49639: A:I,A:CSCSA: Io (: 2 CS58931 "**** ERROR IN DATA STATEMENTS ****": < 49152 =:"PROGRAM IS IN PLACE NOW" F P:  76,46,192,0,0,0 'P*****WRITTEN BY BRIAN DOBBS*****MZ********TIMMINS, ONTARIO********pdSI$(15):BS$(8):D1024:4,4~nADD39x4,SI$;B(A)B1B32E$(B64)B31B64E$(B)B63B96E$(B32)B95B128E$(B64) 55,0:56,143: (4,4,44-(40704)7690:2F<I081\FBY:40704I,BY:bP|Z785,0:786,159:1000dnL;4,(27);"L";(N1)(N2);,6TCP@(T)0J"ERROR OUTPUTTING TO PRINTER"T4: REMSEQFILE! RINT TEST II BAR GRAPH 5 A LITTLE BIT OF PATIENCE 15 10 5 FIRST SECOND THIRD FOURTH FIFTH 150 144 121 100 81 64 49 36 25 16 9 4 1 4 9 16 25 36 49 64 81 100 121 144 150 )((A2(A2)))-4,A);IN$(RP);:RP:4.4,10);"-";:RP14:4,"-------+";:RP:4,"-------"&. RP1NVL.4,NA$(RP);10(NA$(RP)));": ";Y.LO1AI.4,((LO1))(7((DA(LO,RP)))));DA(LO,RP);:LO:4. VA150:4,"-";:VA:4:RP 0,0,7,100,128,64#  32,16,8,4,2,1;  27,76,192,3,27,75P  64,1,64,0,64,0f  64,64,0,64,0,64| $ 64,0,64,64,0,64 . 64,64,0,0,120,169 8 59,141,20,3,169,192 B 141,21,3,88,96,165 L 197,201,64,208,8,169 V 0,141,4,192,76,49C4,E$;  4,BS$. DD40:D19842307 110=  1525 CHAR EDITORGEMINI CHAR.CCOMPUTER FONT.DNORMAL FONT.D 4,(27)"A"(8);$ N408:CP81924 N2(N256)D N1NN2256^ "PRINTING 25 LINES:"o $L125:100 8G140:300:CPCP8:G L4:L V4,(27)"0":4: 76,9,159,108,3,0,108,5,0,32,3,159,132,251,133,252 160,7,177,251,153,74, REMSEQFILE! RINT  REMSEQFILE! RINT05,8,141,98,3,173,995>3,105,0,141,99,3,24,165,250,105,8,133,250,165oC251,105,0,133,251,165,250,201,64,144,177,165,251,240H173,169,13,32,210,255,230,252,165,252,201,25,208,142M169,96,141,99,3,169,0,141,98,3,96R173,17,208,41,239,141,162,0,189,18x 192,172,7,192,208,36 189,22,192,32,210,255R 232,224,4,208,237,169l 40,141,43,192,169,0 162,7,157,34,192,157 26,192,202,16,247,162 0,160,0,177,251,141 44,192,230,251,208,2 230,252,173,44,192, 210 255,32,210,255,232,224) 8,208,231,76,167,193C 76,6,193,206,43,192_ 208,248,169,13,32,210| 255,165,197,201,63,240 27,208,3,76,218,192 173,7,192,240,12,173 5,192,73,1,41,1 141,5,192,208,236,206 42 )4 _"": a b**MENU**& cZ dKP0:" SCREEN DUMP 64 - COPYRIGHT 1984 BY"s n13)"ERIC GIGUERE" x"F1 DUMP PICTURE" "F2 CHANGE PICTURE SPACING" "F3 TOGGLE REVERSE ON/OFF" "F4 DISK DIRECTORY" " O CONTINUE" T197,64,64:A$:100! [B \** LOAD KOALAPAD PICTURE **H ]a ^"ENTER FILENAME:" h"PIC ";:1000:N$"QUIT"100 rKP1:F$(KP$"PIC "N$" ",15):F$,8,1  ** LOAD OTHER PIC **  "ENTER FILEN Z#4,A$,A$ ]A$""665b#4,A$,B$9l(A$NU$)(B$NU$)256;Dv#4,A$VA$"":602_A$;sA$:A$" "665197,64630197,64,64:A$:4:15:100** ML DATA ** 128,64,32,16,8,4,2,1,169,0,133 17,208W162,127,160,64,32,156,192,1625\4,160,0,32,161,192,162,131Xa160,39,32,114,192,162,131,160yf40,32,156,192,162,216,160,0k32,161,192,162,135,160,15,32p114,192,173,16,135,141,33,208u173,17,208,9,34,141,17,208z173,22 ,234,173,17  208,73,32,141,17,2088  173,24,208,73,8,141S  24,208,76,49,234,169m  0,141,3,192,173,141  2,41,4,240,5,169  255,141,3,192,173,9  192,32,195,255,173,9  192,162,4,160,4,32  186,255,169,0,32,189  2557 10,192,240,9,185,34) 192,29,10,192,153,34E 192,200,192,8,208,234a 232,224,8,208,216,173z 7,192,240,68,169,7 141,45,192,174,5,192 189,7,192,141,6,192 160,7,185,34,192,174" 6,192,61,10,192,240, 16,18v,192,208,231,169,27 32,210,255,169,64,325 210,255,173,9,192,32Q 195,255,32,204,255,76^ 49,234,192,16^ 213,160,7,185,26,192h 153,34,192,136,16,247r 162,0,189,34,192,77| 3,192,32,210,255,172 7,192,240,6,32,F5 LOAD KOALAPAD PICTURE": "F7 LOAD OTHER PICTURE"[ "F8 RESET DUMP ADDRESS"v "HIT 'Q' TO QUIT" "PLEASE ENTER YOUR SELECTION" 197,64,64:A$:A$"Q""": A$(133)A$(140)210 "":(A$)132250,300,AME:" 1000:N$"QUIT"100" N$,8,1( B ** CHANGE SPACING **H l "PRESENT SPACING IS";(847) "ENTER THE NEW VALUE (0-255): ";:1000 N0N255"":500 847,N:100 # $** RESET DUMP ADDRESS ** %!&,252,169,01%133,250,133,251,162,0,202,48,7,169,128,32,210,255e*208,246,160,0,162,0,138,133,253,189,0,96,57,60/3,24,240,1,56,102,253,232,224,8,208,239,165,253473,255,9,128,32,210,255,200,192,8,208,220,32,2259255,240,53,24,173,98,3,15,32,192,255,174,9#  192,32,201,255,169,0@ ( 133,251,169,32,133,252\ 2 169,27,32,210,255,169w < 51,32,210,255,169,16 F 32,210,255,169,25,141 P 42,192,173,5,192,240 Z 13,56,165,251,233,64 d 133,251,165,252,233,1n 133,252,5,26,192,174,456 192,29,10,192,202,296@ 10,192,153,26,192,136QJ 16,226,206,6,192,206lT 45,192,206,45,192,16^ 213,160,7,185,26,192h 153,34,192,136,16,247r 162,0,189,34,192,77| 3,192,32,210,255,172 7,192,240,6,32, SCREEN DUMP 64, BY ERIC GIGUEREP(53280, 14:53281, 1:KP$(129)p-(828)128(49154)173802:I828964:J:I,J:<I4915449317:J:I,J:PKP0100U49154:653,1:653,1,1 Z53265,(53265)223:53272,((53272)240350,400,500,600,210,550 - **PICTURE DUMP**3 F 4,4:4:(8);O 836^ 4:4:100d )} ***TOGGLE REV MODE** + ,R(885):M0:R0M255 6"REVERSE MODE IS NOW ";:M"ON.":330 @"OFF." J885,M:"HIT ANY KEY T"PRESENT LOAD ADDRESS IS";(867)256(866)V0"ENTER NEW ADDRESS: ";:1000:N0N65535100~:N%N256:NNN%256:867,N%:955,N%D866,N:960,N:100UV** DISK DIRECTORY **WX15,8,15,"I0":4,8,0,"$0":NU$(0)Y#4,A$,A$192,208,8,165,251,205,0,192#208,1,96,230,251,208,2,230G252,230,253,208,227,230,254,76k122,192,134,252,132,251,96,134254,132,253,96** INPUT ROUTINE **1,0:1,N$:1:N(N$)::7,208,9,34,141,17,208z173,22((I8)(J320)K) +B(MEM)2 -D07:E(BK%(D))E /EBAAC%(D)L 1Dc @A$A$(A):A0:E0j AKw D6,(10) E5,A$:4,(254)(141); FPRINT#4,CHR$(1)CHR$(1); GJ0T1J:4,(29); HJ0T IA$"":D(X) KJ Z4,(13) 3"HIRES DUMP FOR THE 1526 PRINTER BY:"_"PETE H. HARDING"53280,0:53281,0:"IF YOU HAVE LOADED THE FILE TYPE Y""HAVE YOU LOADED THE PICTURE? (Y OR N)"B$:B$""6 B$"N""WHAT d dI 4:5:53265,0 $4@ .127,191,223,239,247,251,253,254Z 81,2,4,8,16,32,64,128272,(53272)8:53265,(53265)32 M10242023:M,3:M Z07:R:K%(Z)R:Z Z07:R:C%(Z)R:Z I3901:J024 K07 (MEMBASE,208,41,223,9,16,14122,208,173,24,208,9,8,141=24,208,162,96,160,0,32,156^192,162,32,160,0,32,161,192162,127,160,63,32,114,192,17317,208,9,16,141,17,208,96142,1,192,140,0,192,160,0177,251,145,253,165,252,205,1FILE ";C$:"":K%(7),C%(7)/ B$"N" C$,8,1F 4,4:5,4,5:6,4,6Y BASE8192:"" 53272,(53272)8:53265,(53265)32 M10242023:M,3:M Z07:R:K%(Z)R:Z Z07:R:C%(Z)R:Z I3901:J024 K07 (MEMBASE