L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`@$7j57  1 )-??7--5??7--5;? ---;???----5????7----5????7----5????7)---??? ;  );   )  )  ) @@ 0:ȡHe@ hhл`Ie@҈,666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-= 6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$- 666?- 66$<$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,"*:<>""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""">>>> >00000>"(~ < (&20 *, **>> """ " >> ">> """>""""""< >> "   ` `(0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``ɀ`  `(0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``ɀ>''@>_,?'6'669666998__@A>?''',> ' Յ''> @'@'',$''6''6.6996.69>__@___->-''#>#7#'#98,''Յ''. A''A'',$'''.''.A'_,a___,,'#'#6#'?'#9>,'A>@'','#1'' INPW))8(MV2))0) 1:1X,Yp IN(BT):PW8MV5z BT,INPW(INPW)D MV03530^ NL2MV0ĺ"";:MV0s NL2RA0:3550 NLNL1:BTBT1:IN(BT) MV3 (IN8(MV1))0MVMV1:3510 ROMVMV1 RARO PW8(MV1) RO(MV1((INPW(: ABORT/DON'T SAVE SHAPE":"Q : QUIT/SAVE SHAPE"; 30:E RORAW RA(P0DI0)l RAROĢ1:"": IN(BT)(4PDI)8MV IN2563400* NLNL1:MV0:BTBT1:BT,04 ROMVMV1> 3350H MVMV1R BT,IN:BT1,0\ f MVMV:3::"COMMANDS:"::/ "P : PLOT ON/OFF"f "I : UP":"J : LEFT":"K : RIGHT":"M : DOWN" "<- : DELETE THE LAST MOVE" "W : WIPE OUT THE ENTIRE SHAPE" "S : CHANGE SCALE" "R : CHANGE ROTATION"1 "C : CHANGE COLOR":"A A$"M"DI2:3320*: A$"J"DI3:3320=D A$(8)İ3430]N A$"S"ė:21:"SCALE? ";SC|X A$"C"ė:21:"COLOR? ";Cb A$"R"ė:21:"ROT? ";Rl A$"W"3000v A$"A"İ40: A$"Q"İ40:NF:LNL:MND:400: 0:1X,Y 3020 :";::20:"PLOT "P$(P)2 "BYTES USED : "NL" "\ "SCALE : "SC" ";:20:"ROT : "R" " "COLOR : "C;:20:"H : HELP"; BTNDNL2:R:SC:C:1X,Y 30 A$"H"İ3230: A$"P"PP A$"I"DI0:3320& A$"K"DI1:33200"D 1040(E(222):E0E15202022030a:768:" ERROR IN LINE "(218)(219)256{16384,128:A$:1040166,222,189,96,210,72,32,92,219,232,104,16,245,96 :::X140:Y80:R0:SC1:C3 RA0:RO0:P1 21:1::"MAKE SHAPE:"D"::2:"Q":SB:"CURRENT SOURCE : ";::S$::" OBJECT : ";::O$:iL30:A$"P"P3P{VA$"D"D3D`A$"O"SSjA$"L"İ600tA$"S"İ700~A$"E"İ100A$"M"300A$"C"İ900A$"Q"ĺ:D$"RUNMOD.MENU,D3:1:"COMMANDS:"::" EDIT SHAPE TABLE":" LOAD "S$(S)" TABLE : D"D::" SAVE "S$(S)" TABLE : D"D::" OBJECT/SOURCE TOGGLE"$:" DOS COMMANDS : D"D::" QUIT".:5:2:"E"::2:"L";:22:"D"8:2:"S";:22:"D"::2:"O"::6:"C";:17(0)"OFF":P$(1)"ON ":S$(0)"OBJECT":S$(1)"SOURCE":S$"NONE":O$"UNNAMED":WRD(Z)(Z)(Z1)256OA24576:SA28672:NA22528:NDNA4:232,0:233,88:NA,1:NA1,0:NA2,4:NA3,0Z114:A:767Z,A::22816,234:22817,234:200040(:MV3,HYMV1:860:RAZ:ININX:MV1850HMYMV2:860:ROZ:3000aRRO0:(BT1)8RO1kW3000\PW8Y:XINPW(INPW(INPW)):ZXPW::"COMMAND? ";A$:A$""ıD$A$",D"D:910c16384:SO(255,1),OB(255,1):D$(4):D1:P$A$""ı$%F(A$):FOS1F1800F*NL2:ND,0:ND1,0:MV0:3000/::"EDIT SHAPE";::" OBJECT : "OS" SHAPES"::"EDIT OBJECT SHAPE #";A$:F(A$):A$""ı4F(A$):FOSF18009NF:50>BTNDNL2:IN(BT):MV1:IN7MV2CIN6316):OEOAOL:H:S$(S)" TABLE NAME TO SAVE? SHP.";:"";F$:F$""ıTS730|D$"BSAVESHP."F$",A"SA",L"SESA1:D$"BSAVESHP."F$",A"OA",L"OEOA1: ::"INSERT SHAPE";::" OBJECT : "OS" SHAPES"::"INSERT SOURCE SHAPE #";A$:F(A$):Z1SS:YSAZ2:SO(Z,0)WRD(Y2)WRD(Y):SO(Z,1)SAWRD(Y):`SLWRD(43616):SESASL:O$F$:OA24576:D$"BLOADSHP."F$",A"OA",D"DOSWRD(OA):ODOAOS22Z1OS:YOAZ2:OB(Z,0)WRD(Y2)WRD(Y):OB(Z,1)OAWRD(Y):OLWRD(436B(N,0):Z1OS:X(ZN):YOB(Z,1)OB(Z,1)OB(Z,0):Y2LX,(Y)::OB(ZX,1)OB(Z,1)2LX:OB(ZX,0)OB(Z,0)::OSOS1:60::X:S$(S)" TABLE NAME? SHP.";:"";F$:F$""ıbS660lS$F$:D$"BLOADSHP."F$",A"SA",D"DvSSWRD(SA):SDSASS22BN,1)OB(N1,1)OB(N1,0):Z0L1:OB(N,1)Z,(MZ)::60:q ::"DELETE SHAPES";::" OBJECT : "OS" SHAPES" :"DELETE FROM SHAPE #";A$:A$""ı F(A$):"DELETE TO SHAPE #";A$:A$""ı T(A$):(FT)FOSF1T1500}NF:WFT:LOOS/ ^"INSERT AT OBJECT SHAPE #";A$:A$""ıI hN(A$):NOSN1300t rWTF1:LSO(W,0):MSO(W,1):400:: ZOS11:X(ZN):YOB(Z,1)OB(Z,0)OB(Z,1)1:Y2LX,(Y)::OB(ZX,1)OB(Z,1)2LX:OB(ZX,0)OB(Z,0)::OSOS1; OB(N,0)L:OB(300 A$"E"İ815 100n ,::"MOVE SHAPES";::" OBJECT : "OS" SHAPES":14:"SOURCE : "SS" SHAPES" 6:"MOVE FROM SOURCE SHAPE #";A$:A$""ı @F(A$):" TO SOURCE SHAPE #";A$:A$""ı JT(A$):(FT)FOSF1T1300 TTOST" EDIT OLD SHAPE IN OBJECT"+ x:" QUIT"f :5:2:"M"::2:"D"::2:"I"::2:"E"::2:"Q": :"CURRENT SOURCE : ";::S$::" OBJECT : ";::O$: 30:A$"C"İ800 A$"Q"A$"": A$"D"İ500 A$"I"İ800 A$"M"Z1OS:XOB(Z,1)OA:YOAZ2:Y,X(X256)256:Y1,(X256)::OA,OS:OA1,0:OEOB(OS,0)OB(OS,1): d:3:1:"EDIT SHAPE TABLE COMMANDS:"::" MOVE SHAPES FROM SOURCE TO OBJECT" n:" DELETE SHAPES IN OBJECT"::" INSERT NEW SHAPE INTO OBJECT"::SHAPE EDITOR 1.0 " 1000816384,128:A$:(::1:1::"SHAPE EDITOR............................":24:"......BY PAUL PRITCHARD AND JOE HUMPHRE";::2039,25:34,2:35,23:2NLOB(N,0):NENDNL:Z0OB(N,0)1:NDZ,(OB(N,1)Z)::f <          66,222,189,96,210,72,32,92,219,232,104,16,245,96FH. R. P. L. ZPAUL PRITCHARDo2353 S. 8TH ST.OMAHA, NE 68108:768:" ERROR IN LINE "(218)(219)256 16384,128:A$:1030 166,222,189,96,210,72,32,92,219,232,104,16,20 BA$"V"Lİ600:100+ LA$"C"İ900< VA$"L"İ600N [A$"D"D3Dp `A$"Q"ĺ:D$"RUNMOD.MENU,D"Dz j1020 E(222):E2551020 E0E152030 2040 :768:" ERROR IN LINE "(218)(219)256 16384,128:A$:10300 123: :4:1:"COMMANDS:"::" VIEW CURRENT SHAPE TABLE"Z :" LOAD SHAPE TABLE : D"D :" DOS COMMANDS : D"D::" QUIT" $:6:2:"V"::2:"L";:21:"D"::6:"C";:17:"D"::2:"Q": .:" CURRENT TABLE : ";::F$: 820:A$"V"Lİ10$:A$""ė: D$A$",D"D:910I D1:D$(4):F$"NONE":232,0:233,64 X114:A:767X,A::22816,234:22817,234:2000 ::1::"SHAPE DISPLAY...........................":24:".......................BY PAUL PRITCHAR";::2039,4:34,2:35,21:"ROT : ";A$:R(A$)B A$"S"ė:21:"SCALE : ";A$:SC(A$) A$"N"ė:21:"SHAPE NUMBER : ";B$:C(B$):CSC1210 105 X:"SHAPE TABLE NAME? SHP.";F$:F$""ı bD$"BLOADSHP."F$",A$4000,D"D:S(16384):L1:  "COMMAND? ";ADS : <- -> I J K M R S N Q";V xR:SC:3:CX,Y:20:0:CX,Y:A$"Q"A$"":q A$(8)CC1S(C1) A$(21)CC1S(CS) A$"I"YY1(Y1) A$"M"YY1(Y179) A$"J"XX1(X1) A$"K"XX1(X279) A$"R"ė: SHAPE DISPLAY VERSION 1.1* 1000@16384,128:A$:`d::C1:X140:Y90:R0:SC1i:21:1::(F$,25);::27:"SHAPES : "S# n"CURRENT SHAPE : "C" ";:27:"SCALE : "SC" ":"COORDINATES : "X","Y" ";:27:"ROT : "R" ":"COMMANHARD2353 S. 8TH ST./OMAHA, NE 68108DE "(218)(219)256a16384,128:A$:1030 166,222,189,96,210,72,32,92,219,232,104,16,245,96USES DAVE HOLLE'SPACKING ROUTINESOFTALK MAY '83H. R. P. L. PAUL PRITCE0E1520202030G:768:" ERROR IN LINE "(218)(219)256a16384,128:A$:1030 166,222,189,96,210,72,32,92,219,232,104,16,245,96USES DAVE HOLLE'SPACKING ROUTINESOFTALK MAY '83H. R. P. L. PAUL PRITC100I11:30:"N",L:60:A$"P"P3P=VA$"C"İ900N`A$"V"İ800_jA$"L"İ600ptA$"S"İ700~A$"R"İ500A$"N"N1NA$"T"100A$"D"D3DA$"H"İ200A$"Q"ĺ:D$"RUNMOD.MENU,D"D1030E(222):OPY"::" DOS COMMANDS : D"D::" QUIT"8:5:2:"L";:25:"P";:33:"D"::2:"S";:25:"P";:33:"D"::2:"T";:13:"P"::2:"R";:38:"D"B:2:"V";:17:"P"::8:"H"::6:"C";:17:"D"::2:"Q"GNĢ5:17:"N"::17:"N":11:20:"N":1A:3:"COMMANDS:"::" LOAD PICTURE : "N$(N)" PAGE "P" D"Dp:" SAVE PICTURE : "N$(N)" PAGE "P" D"D:" TRANSFER : PAGE "P" TO PAGE "3P::" REPLACE PICTURE : "N$(N)" TO "N$(1N)" D"D$:" VIEW PICTURE : PAGE "P'.:" PRINT HARDCN$(0)"PACKED":N$(1)"NORMAL":O$(0)"OFF":O$(1)"ON":D$"BLOAD PACK/UNPACK"X114:A:767X,A::22816,234:22817,234:20001::"PICTURE UTILITY.........................":24:".......................BY PAUL PRITCHAR";::2039,4:34,2:35,230 D$"BSAVEPIC."A$",A"8192P",L$2000,D"D:800= FF0: *16304,0:16297,0:16302,0:16301P,0:60:16300,0:16298,0:16303,0:  "COMMAND? ";A$:A$""ė: D$A$",D"D:910K::D1:S1:D$(4):PA24700:UN24576:LO24837:P1:",D"D:D$"DELETEPIC."A$",D"D:F1:7106 X:20:N620t bD$"BLOADPAC."A$",A"LO",D"D:230,32P:0,5:1,97:UN:800 lD$"BLOADPIC."A$",A"8192P",D"D:800 :20:N720 230,P32:0,5:1,97:PA:D$"BSAVEPAC."A$",A"LO",L"(0)(1)256LO",D"D:800:350 T200* ^A$" G"A$:TA$A$"D"; hEA$A$"E"L rIA$A$"I"] |RA$A$"R"~ :"PR#"S:A$:"PR#0":200 :20:B$A$:N520 610:A$B$::D$"UNLOCKPAC."A$",D"D:D$"DELETEPAC."A$",D"D:F1:720% 620:A$B$::D$"UNLOCKPIC."A$"P":13:"B"::2:"D"::2:"E"::2:"I"::2:"R"::2:"S"::2:"Q":a 60:A$"D"T1Tr A$"E"EE A$"I"II A$"R"RR "A$"S"SS17(S7) ,A$"P"P3P 6A$"Q"A$"": @A$"B"A$"C":350 JA$"H"A$(P)):511X,((A$,X,1))128::72,0:i :3:"PRINT HARDCOPY:"::" HARDCOPY : PAGE "P:13:"BOTH PAGES" :" DOUBLE SIZE : "O$(T)::" EMPHASIZE : "O$(E)::" INVERSE : "O$(I) :" ROTATED : "O$(R)::" SLOT : "S::" QUIT"K :5:2:"H";:13:0 PICTURE UTILITY 2.0$ 1000G:NĄ"FILENAME? PIC.";A$:40a"FILENAME? PAC.";A$n(A$""ġt2<16384,128:A$:dP110,120:144:1030nA$"4000<2000.3FFFM":130xA$"2000<4000.5FFFM":130# A$A$" N D823G":X1(A$      2353 S. 8TH ST.( OMAHA, NE 68108F0IE(222):E0E152020S2030:768:" ERROR IN LINE "(218)(219)25616384,128:A$:1020166,222,189,96,210,72,32,92,219,232,104,16,245,96 H. R. P. L.  PAUL PRITCHARD0#~A$"Q"ĺ:D$"RUNMOD.MENU,D"D-1030IE(222):E0E152020S2030:768:" ERROR IN LINE "(218)(219)25616384,128:A$:1020166,222,189,96,210,72,32,92,219,232,104,16,245,96 H. R. P. L.  PAUL PRITCHARD8:2:"P"::7:"A";:22:"D"::6:"C";:17:"D"::2:"Q":::" CURRENT FILE : ";::F$::" RECORDS : "RB20:A$"V"İ100GA$"D"D3DLA$"L"İ300VA$"S"İ400`A$"E"İ600jA$"A"İ800tA$"P"İ700yA$"C"İ90#:" LOAD A PICTURE FILE : D"D^:" SAVE A PICTURE FILE : D"D::" EDIT CURRENT FILE"$:" PRINT CURRENT FILE"::" VIEW ALL PICTURES : D"D::" DOS COMMANDS : D"D::" QUIT".:5:2:"V"::2:"L";:24:"D"::2:"S";:24:"D"::2:"E"tAD CATREAD,A783"IX114:A:767X,A::22816,234:22817,234:2000:1::"PICTURE DISPLAYER.......................":24:".......................BY PAUL PRITCHAR";::2039,4:34,2:35,23:3:1:"COMMANDS:"::" VIEW CURRENT PICTURE FILE":D$"BLOAD"B$(Z)",A$6105,D"D:0,5:1,97:230,64:UN:,Y,2015(Y9):20:810T:q"COMMAND? ";A$:A$""ıD$A$",D"D:91037888:::A$(50,5),B$(106):F$"UNNAMED":D$(4):D1:UN24576:D$"BRUNAMP.TRANSITIONS":D$"BLOAD PACK/UNPACK":D$"BLON2(N2)İ20:':N2(N2)İ20-X 46584,D:801B$(1):Z0:Y0::16302,0*ZZ1:L$(B$(Z),4):B$(Z)""10204L$"PIC."L$"PAC."810>YY19(Y9):L$"PAC."850H:D$"BLOAD"B$(Z)",A$4000,D"D:,Y,2015(Y9):20:810LRRE NUMBER? (1-"R") ";:"";A$:A$""600@vN(A$):NRN1625N500:625t:"PICTURE NAME? ";A$:A$""600N1R:A$(N,0)A$İ500:645::A$" NOT IN FILE":50:645NR1:500:FRN1:600RR1:660Rı:N1R:30:X:4:"COMMANDS:"::" EDIT BY PICTURE NUMBER"::" EDIT BY NAME"::" ADD RECORDS"::" QUIT"Z6::10:"P"::10:"N"::2:"A"::2:"Q":]20:A$"Q"A$(27)A$"":bA$"A"660gA$"P"R625lA$"N"R645o600'q:"PICTU:Z1Z9Ģ(37):540P &9:20:"";A$(N,3):Z(A$(N,3)):Z1Z255Ģ(37):550 010:20:"";A$(N,4):A$(N,4)(A$(N,4),1):A$(N,4)"P"A$(N,4)"U"Ģ(37):560 :11:20:"";A$(N,5):A$(N,5)(A$(N,5),1):A$(N,5)"1"A$(N,5)"2"Ģ(37):570 Da,3)( A$(Z,4):A$(Z,5)::D$"CLOSE":2 :F0U 30:6:20:"";A$:A$""F1: A$(N,0)A$:(A$(N,0))26A$(N,0)(A$(N,0),26) 7:20:"";A$(N,1):A$(N,1)(A$(N,1),1):A$(N,1)"K"A$(N,1)"P"Ģ(37):530 8:20:"";A$(N,2):Z(A$(N,2))JA$(Z,0),A$(Z,1),A$(Z,2),A$(Z,3),A$(Z,4),A$(Z,5):E TD$"CLOSE":O Rı ::"PICTURE FILE NAME TO SAVE? ";A$:A$""ı F$A$:A$"PICFILE."A$:D$"OPEN"A$",D"D:D$"DELETE"A$:D$"OPEN"A$:D$"WRITE"A$:R:Z1R:A$(Z,0):A$(Z,1):A$(Z,2):A$(Z1:60:NN1& A$(N,1)"P"İ210:160. 20@ :16303,0:V 16384,128:A$:k (16287)127ı (16286)127ı 210 ,::"PICTURE FILE TO LOAD? ";A$:A$""ı 6F$A$:A$"PICFILE."A$ @D$"OPEN"A$",D"D:D$"READ"A$:R:Z1R4 2) : "A$(N,5):! 2X11000::5 <A$(N,4)"P"80e F:D$"BLOADPIC."A$(N,0)",A$4000,D"A$(N,5): P:D$"BLOADPAC."A$(N,0)",A$6105,D"A$(N,5):0,5:1,97:230,64:UN: dRı nN1R:N1İ60 xTR(A$(N,2)):SP(A$(N,3)):,TR,SP NRNN) PICTURE DISPLAYER VER 1.1* 1000@16384,128:A$::"PICTURE "N::"NAME : "A$(N,0):"DELAY (P/K) : "A$(N,1):"TRANSITION (1-9) : "A$(N,2) ("SPEED (1-255) : "A$(N,3):"PACKED (U/P) : "A$(N,4):"DRIVE (1/     SPLAYER,U,PICTURE UTILITYP 166,222,189,96,210,72,32,92,219,232,104,16,245,96f H. R. P. L. z PAUL PRITCHARD 2353 S. 8TH ST. OMAHA, NE 68108ME DISPLAYER,E,FONT EDITOR,W,FONT WRITER,P,PICTURE DISPLAYER,U,PICTURE UTILITY- 166,$A$(X,0)ĺ:D$"RUNMOD."A$(X,1)",D"D* `4 j1030P E(222):E0E152020Z 2030 :768:" ERROR IN LINE "(218)(219)256 16384,128:A$:1030 L,LINE DRAWER,S,SHAPE DISPLAYER,E,SHAPE EDITOR,F,FONT EDITOR,W,FONT WRITER,P,PICTURE DICTURE UTILITY"::" DOS COMMANDS : D"D::" QUIT"j .:5:2:"L"::2:"S"::8:"E"::2:"F"::7:"W" 8:2:"P"::10:"U"::6:"C";:17:"D"::2:"Q": B30:A$"C"İ900 GA$"D"D3D LA$"Q"Ĺ22816,14:22817,48:::$ VX0M:A SYSTEM.................":24:".......................BY PAUL PRITCHAR";::2039,4:34,2:35,23 :3:1:"COMMANDS:"::" LINE DRAW" :" SHAPE DISPLAY"::" SHAPE EDITOR" :" FONT EDITOR"::" FONT WRITER"1 $:" PICTURE DISPLAYER"::" PI MODULAR GRAPHICS MENU 1.1* 1000@16384,128:A$:Fe"COMMAND? ";A$:A$""ė:yD$A$",D"D:910M6:::D$(4):D1:X0M:A$(X,0),A$(X,1):X114:A:767X,A::22816,234:22817,234:2000` 1::"MODULAR GRAPHICSINESOFTALK MAY '830USES EAGLE BERN'SDFILLIN ROUTINEZSOFTALK FEB '83pH. R. P. L. PAUL PRITCHARD2353 S. 8TH ST.OMAHA, NE 68108D ST.OMAHA, NE 68108'83USES EAGLE BERN'SFILLIN ROUTINE030  L17920:A$:X1(A$)2A Y((A$,X,1))48:Y9YY7d Z((A$,X1,1))48:Z9ZZ7| L,Y16Z:LL1:: 166,222,189,96,210,72,32,92,219,232,104,16,245,96 "01000400123F20642D15361E0700"USES DAVE HOLLE'SPACKING ROUTBA$"C"İ900 LA$"L"İ7001VA$"S"İ800B[A$"I"İ600R]A$"E"100d^A$"D"D3D`A$"Q"ĉ:::D$"RUNMOD.MENU,D"Dj1030E(222):E0E1520202030:768:" ERROR IN LINE "(218)(219)25616384,128:A$:1NSTRUCTIONS FOR DRAWING MODE"x:" ENTER DRAWING MODE"::" NORMAL/PACKED TOGGLE"::" DOS COMMANDS : D"D::" QUIT"$:5:2:"L";:25:"D"::2:"S";:25:"D"::2:"I".:2:"E"::2:"N"::6:"C";:17:"D"::2:"Q":830:A$"N"NN22817,234:200025001:1::"LINE DRAWER.............................":24:".......................BY PAUL PRITCHAR";::2039,4:34,2:35,23:3:1:"OPTIONS:"::" LOAD PICTURE : "N$(N)" D"D:" SAVE PICTURE : "N$(N)" D"D::" IMMAND? ";A$:A$""ė:*D$A$",D"D:910::D$(4):PA24700:UN24576:LO24837:D1:N$(0)"PACKED":N$(1)"NORMAL":Z$(1)"JOYSTICK ZEROED":D$"BLOAD FILLIN":D$"BLOAD PACK/UNPACK":D$"BLOADSHP.LINE DRAWER,A$4700"X114:A:767X,A::22816,234::20:N720FD$"BLOADPAC."A$",A"LO",D"D:230,32:0,5:1,97:UN:iD$"BLOADPIC."A$",A$2000,D"D:z :20:N820*230,32:0,5:1,97:PA:D$"BSAVEPAC."A$",A"LO",L"(0)(1)256LO",D"D:4D$"BSAVEPIC."A$",A$2000,L$2000,D"D:"COODE":"A - AUTO FILL MODE":"1-5 - SELECT A BRUSH #"::"C - COLOR (0-7)":"B - BACKGROUND/FILL COLOR (0-22)"b"X - CLEAR SCREEN TO BACKGROUND COLOR"::"Z - ZERO IN JOYSTICK"::"Q - QUIT TO MAIN MENU":"ESC - FULL/MIXED SCREEN TOGGLE":30:A$"": 1208 :22:"COLOR (0-7) ";A$:A(A$):A0A7500I A:CDA:110 :22:"COLOR (0-107) ";A$:A(A$):A0A107520 CBA:110 N233,70:S1:PMĕ1X1,Y1:PM0 S110mX:"DRAWING MODE OPTIONS:":::"L - LINE MODE":"F - MANUAL FILL MB0:PM1:M$"BRUSH UP":110B A$(27)Ĺ16302FM,0:FMFM:110s A$"X"đ:0,80:1,0:2,80:3,CB:16384:110 A$"A"AM1:M$"AUTO FILL":590 A$"F"LM1:M$"MANUAL FILL":AM0:590 A$"L"LM0:M$"LINE":AM0:590 A$"Q"ĉ:1020 BRUSH DOWN":110J ;AMĹ0,X256(X256):1,X256:2,Y:3,CB:16384:110h @X1,Y1X,Y:LMX1X:Y1Yq J120 A$:PMĕSX1,Y1 PMBĕSX,Y A$"C"500 A$"B"520 A$"Z"ZXX:ZYY:ZCZC:110 A$"0"A$"6"S(A$):233,71:Y0Y0 X279X279* Y191Y1915 SX,YG PMĕSX1,Y1X PMBĔSX,Yo (16384)127400 PMBĕSX,Y PMĕSX1,Y1 (16286)128300 PMB0:M$"BRUSH UP":110 "X1X:Y1Y ,(16287)128120 6PMB1:M$":21:1:"L F A C B Z 1-5 ESC Q":"COLOR : "CD" BACKGROUND COLOR : "CB:"MODE : ";::M$::Z$(ZC); xX(0):Y(1):ZC140 XZX(X12810)10:YZY(Y12810)10:170 X245XS30 X10XS5 XXXS:Y(Y256202)5 X0X0 LINE DRAWER 1.2  1000B:"FILENAME? ";:Nĺ"PIC.";SNĺ"PAC.";`"";A$:v16384,128:A$:d:230,32:232,0:233,70:7:0:1:10,0:16304,0:16297,0:16301,0:16300,0:S1:FM0:PM0:B0:CB0:CD7:LM0:XS0:M$"LINE"e n            PAUL PRITCHARD$2353 S. 8TH ST.:OMAHA, NE 68108DE":16384,128:16368,0:90:110pH. R. P. L.PAUL PRITCHARD2353 S. 8TH ST.OMAHA, NE 68108D:16368,0:90:110H. R. P. L.PAUL PRITCHARD2353 S. 8TH ST.< - RESTORE PICTURE FROM PAGE 2":" C - CLEAR SCREEN TO COLOR 1-7" "ESC - FULL/MIXED SCREEN TOGGLE":"1-3 - SWITCH TO FONT 1-3":" H - DISPLAY THIS SCREEN":" Q - QUIT" ::"PRESS ANY KEY TO CONTINUE":16384,128:A$:110H. R. P. L. (17)::"COMMANDS:"::" I - CURSOR UP":" M - CURSOR DOWN":" J - CURSOR RIGHT":" K - CURSOR LEFT" " T - ENTER TEXT":" N - NORMAL PRINT":" R - REVERSE (INVERSE) PRINT":" X - EXCLUSIVE-OR PRINT"C " > - MOVE PICTURE TO PAGE 2":" ~A$"F"İ600"A$"L"İ7003A$"S"İ800CA$"W"100M1050iE(222):E0E152020s2030:768:" ERROR IN LINE "(218)(219)25616368,0:16384,128:A$:1040166,222,189,96,210,72,32,92,219,232,104,16,245,96l"::2:"S";:25:"D"OB:19:"T"::2:"N"::6:"C";:17:"D"::2:"Q";:L18:"FONTS : ";:X13:26:X" ";::(F$(X),11)::V16384,128:A$:A$"T"TT`A$"C"İ900eA$"D"D3DjA$"Q"ĺ:D$"RUNMOD.MENU,D"DtA$"N"NNNTS"::" LOAD FONT : "T$(T)" D"Dh$:" LOAD PICTURE : "N$(N)" D"D::" SAVE PICTURE : "N$(N)" D"D.:" 96/128 CHARACTER TOGGLE"::" NORMAL/PACKED TOGGLE"::" DOS COMMANDS : D"D::" QUIT"8:5:2:"W"::7:"F";:29:"D"::2:"L";:25:"D"BLOAD FNT.STANDARD,A$6300":X114:A:767X,A::22816,234:22817,234:2000Q$:::1::"FONT WRITER.............................":24:".......................BY PAUL PRITCHAR";::2039,4:34,2:35,23":3:1:"COMMANDS:"::" WRITE WITH FO15:Q$(17):FO25088:D$"BLOAD FONTGEN"TPA24700:UN24576:D$"BLOAD PACK/UNPACK"T$(0)" 96 CHARACTER":T$(1)"128 CHARACTER":F$(1)"STANDARD":F$(2)"NONE":F$(3)"NONE":N$(0)"PACKED":N$(1)"NORMAL":D1:A$"6300:00 6301<6300.7000MD823G":520PD$";:807%"PAC.";('"";A$:A$""ı}*NĹ230,32:0,0:1,64:PA:D$"BSAVEPAC."A$",A$4000,L"(0)(1)25616384",D"D:4D$"BSAVEPIC."A$",A"8192P",L$2000,D"D::"COMMAND? ";A$:A$""ıD$A$",D"D:910'D$(4):INV25317:FT253/lD$"BLOADSET."F$",A"256001024(A1)",D"D:Z:"PICTURE NAME? ";:Nĺ"PIC.";:707g"PAC.";{"";A$:A$""ıNĺD$"BLOADPAC."A$",A$4000,D"D:230,32:0,0:1,64:UN:D$"BLOADPIC."A$",A$2000,D"D: :"PICTURE NAME? ";:Nĺ"PIC.(A$):511Z,((A$,Z,1))128::72,0:144:(A$)6300110E 1030o X::"FONT NAME? ";:Tĺ"FNT.";:604| Z"SET."; \"";A$:A$""ı ]F$A$:"FONT NUMBER? ";A$:A(A$):A1A3350 bF$(A)F$:TĺD$"BLOADFNT."F$",A"253441024(A1)",D"D:ASE";:25::"TYPE MODE"::"RETURN : POSITION MODE":"FONT : ";::F$(F)::FOg ^10:A$(13)110~ hA$""U$A$:350 V:H:U$A$;:HH1:U$"":H41H1:VV1 350 A$"2000<4000.5FFFMD823G":520 A$"4000<2000.3FFFMD823G"; Z1A$"T"340 A$"C"50; A$(27)EE:16301E,0Q A$"0"A$"4"30b A$"Q"1040k "140 ,VV(V1)23(V1):140 6VV(V24)23(V24):140 @HH(H1)39(H1):140 JHH(H40)39(H40):140Q TQ$::21:"CTRL-R : UPPER CLEAR";:22:"H : HELP":"T : TYPE MODE";:22:"Q : QUIT";:FO[ 10:A$"I"300k A$"M"310{ A$"J"320 A$"K"330 A$"N"R0:110 A$"R"R255:110 A$"X"R1:110 A$">"510 A$"<"500 A$"H"3000 54:1109 d:16297,0:16304,0:16301,0::V1:H1:F1 nE0:Q$::21:"I J K M : MOVE";:22::"POSITION MODE"::"N R X : PRINT MODE"; x22:"1 2 3 : SELECT FNT";:12(R255)4(R1)::(784(R255)10(R1));:20F2:F:G "C : C;FONT WRITER 2.0 1000M INV,1:W01:V:H:(127):Z1100::m(16384)128ľA$:INV,R:u10A(A$):F$(A)"NONE"FA:FT,994(A1)(1102Q$::21:"COLOR? (0-7) ";A$:A$""110<A(A$):A850 F:A:0,0:624           10,72,32,92,219,232,104,16,245,962 H. R. P. L.F PAUL PRITCHARD[ 2353 S. 8TH ST.q OMAHA, NE 68108Q LINE "(218)(219)25616384,128:A$:1020166,222,189,96,210,72,32,92,219,232,104,16,245,96 H. R. P. L. PAUL PRITCHD`A$"E"200#jA$"L"İ6004tA$"S"İ700W~A$"Q"ĺ:D$"RUN MOD.MENU,D"Da1030{128,64,32,16,8,4,2,1E(222):E0E1520202030:768:" ERROR IN LINE "(218)(219)25616384,128:A$:1020!166,222,189,96,2HARACTER TOGGLE"::" DOS COMMANDS : D"D::" QUIT"X$:6:2:"E"::2:"L";:29:"D".:2:"S";:29:"D"::19:"T"::6:"C";:17:"D"::2:"Q":8:" CURRENT FONT : ";::F$:B16384,128:A$:A$"T"TTLA$"C"İ900VA$"D"D30Q$:::1::"FONT EDITOR.............................":24:".......................BY PAUL PRITCHAR";::2039,4:34,2:35,23:4:1:"COMMANDS:"::" EDIT FONT"::" LOAD FONT : "T$(T)" D"D:" SAVE FONT : "T$(T)" D"D3:" 96/128 C""ıD$A$",D"D:910A(8,8):Q$(17):D1:S25344:INV25317:SC8878:Z07:B(Z)::"BLOAD FONTGEN":"BLOAD FNT.STANDARD,A$6300"T$(0)" 96 CHARACTER":T$(1)"128 CHARACTER":F$"NONE":D$(4):X114:A:767X,A::22816,234:22817,234:200:TĺD$"BLOADFNT."F$",A$6300,D"D:ED$"BLOADSET."F$",A$6400,D"D:o::"FONT NAME? ";:Tĺ"FNT.";:720|"SET.";"";A$:A$""ıTĺD$"BSAVEFNT."A$",A$6300,L$3FF":D$"BSAVESET."A$",A$6400,L$2FF"::"COMMAND? ";A$:A$B):Y(SCA1024):YYB(7B)(2A(A,B)1):SCA1024,YP A$"K"BB18(B7)j A$"J"BB18(B0) A$"I"AA18(A0) A$"M"AA18(A7) 360 X::"FONT NAME? ";:Tĺ"FNT.";:620 b"SET."; l"";A$:A$""ı"vF$A$:L1K M : MOVE":"SPACE : PLOT/NOPLOT":"A : ABORT":"RETURN : SAVE CHARACTER";:10:A0:B0:X1 ^(16384)128ľA$:370 hW12:XX:INV,X255:Q160:60:V1100:::350 r50:A$(13)İ30:240 |A$"A"İ30:2406 A$" "A(A,B)A(A,A$(27)A$"Q"1020& A$(13)340V "A$"K"İ70:BB113(B12)11(B10)(A9) ,A$"J"İ70:BB113(B0)2(A9)(B0) 6A$"I"İ70:AA110(A0)(B10)(A0) @A$"M"İ70:AA110(A9)9(A8)(B10) J260d TZA13B::21:"I J ::3:20,3120,9677,9677,3120,31:19,3019,9778,9778,3019,30:A0:B1 INV,0:16301,0::21:"I J K M : MOVE":"RETURN : SELECT CHARACTER":"Q : MENU":X0 (16384)128ľA$:270 W12:XX:INV,X255:70:V1100:::250 :! (A(Z13):BZ13(Z13):; 2INV,A(A,B)255:Q160Q <A5:B4:(Q):^ FQA13B PA21:B214:Q7Q8Q12Q13Q17Q18Q160 ZQ64Q91ĺ""; d(Q): :: 25088:A09:B012:QA13B:Q128Q129230 80L r FONT EDITOR VERSION 2.0(1000p W07:Y(SZ8W):V07:A(W,7V)(YB(V)):YYB(V)A(W,7V)::W07:5W:4:Y0:V07:YYA(W,V)B(7V):INV,A(W,V)255:" ";::SCW1024,Y::: W07:Y0:V07:YYA(W,7V)B(V)::SZ8W,Y        ,8 H.R.P.L.%PAUL PRITCHARD:2353 S. 8TH ST.POMAHA, NE 68108jWRITE OR SEND A DISKFOR FREE GRAPHICSSOFTWAREines, I'd love to hear about",9,1,"them. My address is in the REMs.",14,1," Have Fun ! !"t50,50,50,1,1,"9 will be displayed momentarily . . .",6,1," If you have some more ideas for",7,1,"transitions or have some interesting"j8,1,"graphics routines, I'd love to hear about",9,1,"them. My address is in the REMs.",14,1," Have Fun ! !"t50,50,50,1,1Experiment",20,1,"until you find the right speed for your"V21,1,"application. All the transitions move",22,1,"whatever is on page 2 to page 1."{`1,8,2,1," The remaining transitions get more and",3,1,"more interesting. Transitions 4 through",4,1ntax:",12,1," & , TR, SP",14,1," TR = Number of the transition (1-9)",15,1," SP = Speed of the transition (1-255)":L17,1," The speed does not behave uniformly",18,1,"for each transition and does not affect",19,1,"transition numbers 2, 7, and 8. the these transitions in your",3,1,"Applesoft programs. First, load and pro-",4,1,"tect the routine using this statement:",6,1,"1000 PRINT CHR$(4) 'BRUN AMP.TRANSITIONS':",7,1," HIMEM:37888"wB9,1,"To call a transition, use the following",10,1,"sy"$15,1," 7. 'Horizontal Scroll' - New picture",16,1," pushes old off from left to right",17,1," 8. 'Horizontal Slide' - Old picture",18,1," slides off right to left",19,1," 9. 'Pseudo-Fade' - New picture fades in"825,16,2,1," You can 'Vertical Wipe' - Bottom to top wipe"10,1," 4. 'Horizontal Wipe' - Left to right wipe",11,1," 5. 'Halves Out' - Wipe from middle to",12,1," top and bottom edges",13,1," 6. 'Halves In' - Wipe from top and",14,1," bottom edges to the middleyou can see, the first transition looks",3,1,"very much like a normal memory move.",4,1,"The transitions behave as follows:",6,1," 1. 'Regular' - Normal memory move"&7,1," 2. 'Clean' - The next picture simply",8,1," appears on page 1.",9,1," 3.ill show you how",15,1,"to use nine transition routines written" 16,1,"in machine language for fast and fancy",17,1,"transitions between two pictures. The",18,1,"ampersand command lets you use these",19,1,"routines from Applesoft." 17,2,1," As e hi-res",7,1,"screen can be done in various ways. The",8,1,"simplest way is to load the picture from"@ 9,1,"disk like this:",11,5,"PRINT CHR$(4) 'BLOAD PIC, A$2000'",13,1," However, this method is very uninteresting",14,1,"to watch. This program wRES TRANSITIONS":230,64:0,5:1,97:24576:,4,50:0,116:1,113:24576:Z5} 50:144:SP:,Z,SP:60:144:ZZ1:Z10140 g 14,1,1,"From the High-Resolution Picture Library . . .",4,10,"HI-RES TRANSITIONS",6,1," Displaying a new picture on th"BLOAD SHP.HI-RES TRANSITIONS,A$7000":D$"BRUN AMP.TRANSITIONS":37888::49234,0:232,0:233,112:1:0:3:D$(4) n30:Q13:230,64:62450:30 x230,32:V24:H5:A$"PRESS A KEY FOR TRANSITION #"(Q):20:40:SP:,Q,SP:J :D$"BLOAD PACS.HI-  100KX7H6:Y8V8:100X,Y:Z1(A$):((A$,Z,1))31:99::iN:W1N:V,H,A$:20::(16384,128:A$:2A$"6200<2000.3FFFM":70<A$"4000<6200.81FFM":70FA$A$" N D823G":X1(A$):511X,((A$,X,1))128::72,0:t d       0  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>    n];w*U*UժբĈ*U*U*U*UU*U*;wn]n];wn];w*U*U*U*U];wnn];w*U*U*U*Uݻ*U*U*U*U*U*U̙D"*U*U*U*Un];w"Dݻ*U*U*U*UĈ"D*U*Uݻ"D"Dn];wn];w"D"D"D"DĈn];wժժժĈժժ*U*Uժժժժn];wժժ"DĈ"D"D];wnD"U*U*D""DD"U*U*ժ"DݻU*U*Ĉ];wnݻn];wn];w];wnݻݻժݻժբĈĈ];wn];wnժժժժժD"ժժժբĈĢĈD"ĈĈĈwn];ݻn];w"DժfL3ժ"DĈժժժݻժբĈݻݻݻĈժժժժݻfL3ժժ];wnժժժժݻժժժժժժĈժժժժD"ĈĈĈժժU*U*Ĉwn];ĈD"fL3];wnn];wU*U*U*U*Ĉ"DU*U*];wnwn];D"U*U*ݻU*U*U*U*ݻ̙U*U*U*U*];wnU*U*U*U*"Dwn];];wn}B AB|B}B` A`zB&BI,|B+}BM|B}B|B0}B AB|B}B(` A`)Dž& ' f& &'f& &' f&` @ 0`n];w];wnݻ];wnĈݻwn];];wnݻݻĈfL3"D];wn"D"Dwn];ݻ"DD"ĈvBB{B`zB}B{B|B& AzB& uB&}B{B|BN|B B`A@@@@AAAAA AAA#BAA$B`A@@A@@AAAAA AAA#BA$B`I-vB uB&-}BB}B'IB) B)mBBBB-B B&`&BI,|B*}BM|B}BN|B@AAA.AA.AA.AmAABmAAJJ_ByBwBxB @ YBtB& J,uBI,uB` 5A& iA&BB YBtB&I,uB AyBȄ YBtB&I,uB A`H)sB$uBhmuB~B8~~B8i~B8itBBuBI   _`' 'ȑ`' ȱ ` eiii  @`'`H)Dž h f &f & fi ` `,P,R,T,W H hS]lLLޔLL) L\ i(ii  `,U W,T`  ` ȥ (`` H̔8  h` H8 h  6[434:438m[1417:"LOOK AGAIN":438:1416:1417:"AND THEN":438:1416:1417:"YOU WILL SLEEP.":438{[434:438[46YOU CAN SEE":438:1416:1417:"THE LIGHTNING BOLTS.":438:1416Z434:1417:"DID YOU SEE?":438:1416:1417:"DID YOU SEE IT?":438:1416[1417:"THERE'S THUNDER THERE":438:1416:1417:"YES":438:1416:1417:"WITH BOLTS OF LIGHTNING.":438:141 ":11:" ":438ZY434:438:438:434Y1417:"LOOK":438:1416:1417:"LOOK":438:1416Y1417:"LOOK OUT THE WINDOW!":438:1416:438:438:434@Z1417:"IF YOU LOOK CLOSE,":438:1416:1417:"370:B14:1370:B14:1370:B14:1370>X~B14:1370:B11:1370UX10:16:"THE END"]X23tX"PRESS RETURN";A$XA$""ĬXX22:11:" ":X22:11:BY438:21:11:" ":11:" Y:" ":Y2Ww@Wx:W3:20WzB14:1370:B14:1370:B14:1370:B14:1370:B14:1370:B14:1370:B14:1370:B14:1370:B14:1370:B14:1370$X|B14:1370:B14:1370:B14:1370:B14:1370:B14:1370:B14:1370:B14:16,1388,1390,1392,1394,1396*Vf"I STRIKE"4Vg1397BVh"I RAPE"LVi1397ZVj"I LOVE"dVk1397rVl"I KILL"|Vm1397Vn"I STRIKE"Vo1397Vp"I LOVE"Vq1397Vr"I TORTURE"Vs1397Vt"I LOVE"Vu18:16:"*********",WvY318:3:2UFF$:F$:XUG2*UY TEXT PROGRAM1UZ4 "BUT WHO IS THERE"MB "AMONG US"MC "WILLING TO RISK" NDF"L "THIS CRAFT OR"0L "SOCIETY'S NEED"DL "FOR SOMEONE"UL "LIKE ME."jL "AT THIS VERY"zL "MOMENT,"L  "YOUR FATHER"L" "LOVES YOU MORE"L$ "THAN HE" : "EVER DREAMED" L& "POSSIBLE."L( "IT IS THE SAME"M* "GIFT,K "BUT ART IS"$K "THE TRUE"6K "MIRROR OF"KK "OUR CULTURE."`K "IT CAN EXIST"vK "ONLY OUT OF A"K "DEEP": "UNDERSTANDING"K  "OF PEOPLE AND"K  "OF NATURE AND"K "OF OURSELVES."K "THE ROVERS KNOW"L "NOTHING O"COMMUNITY." J "I STOP THEM"4J "WHEN I CAN."KJ "I'VE A BETTER"_J "RECORD THAN"sJ "THE F.B.I.!"J "BUT OUR COUNTRY"J "BREEDS THEM"J "LIKE RATS."J "EVERY COMMON"J "SOCIOPATH"J "THINKS HE'S"K "AN ARTIST." STRIKE."I "WE FADE AWAY"3I "UNTIL WE ARE"FI "FORGOTTEN."]I "WE'RE NOT LIKE"pI "THE ROVERS"I "WHO TRAVEL FROM"I "TOWN TO TOWN"I "STEALING OUR"I "CHILDREN,"I "NOT CARING"I "FROM ADAM"I "FOR OUR" J H "FOR 24 YEARS!"(H "I'M ALWAYS" "WESTWOOD SCHOOLS":"ALWAYS HAD THE"B@ "BETTER TEACHERS."BB "AT EASTWOOD,": "I HAVE THEM"BD "JUMPING INTO": "MY VAN"CFN HIS WALLS"$A$ "ARE POSTERS OF"KA& "'WIZARD OF OZ'": "AND 'KISS'."yA* "HE SAYS": "HIS PRAYERS": "KNEELING,"A, "EVEN WHEN HIS": "MOTHER"A. "IS NOT THERE."A0 "HE IS A GOOD BOY"A2 "LIKE YOU."A4 "I ONCE OFFERED": "JOHNNY"B YARD."5@ "THEY STILL": "HAVEN'T GOT": "IT ALL"]@ "AND IT STREAMS": "IN THE WIND."f@ ""@ "FROM JUST ACROSS": "THE STREET"@ "IN THE BUSHES"@ "BY THE": "FIRE HYDRANT,"@ "YOU CAN SEE INTO"@  "JOHNNY'S BEDROOM" A" "O? "WITH A PAIR OF"N? "SCISSORS.": "SHE SAYS UWE IS": "'UP-COMING.'"z? "THEY WILL": "PROBABLY": "MAKE HIM"? "VICE-SOMETHING-": "OR-OTHER."?  "AT HALLOWEEN,": "I STRUNG"?  "TOILET PAPER"? "OVER THE TREES"@ "IN UWE'SVE NO USE": "FOR THE FATHER."4> "PAPER-PUSHER."Y> "HIS SECRETARY'S": "NOT BAD."> "SHE HAS": "LONG FINGERNAILS": "AND THIS"> "BLACK MOLE": "WITH A HAIR"> "ON THE BACK": "OF HER NECK."> "I KEEP WANTING"? "TO CUT IT OFF"OHNNY."+= "I SLIPPED A": "RUBBER BALL"T= "INTO HER BAG": "WHEN WE BUMPED."t= "SHE PROBABLY": "THINKS"= "SHE STOLE IT": "ACCEDENTLY."= "I SOMETIME DREAM"= "SHE GOES BACK"= "AND PAYS FOR IT."= "": "": ""> "I HARRY'": "IS ON": "CHANNEL EIGHT.":< "NICE TOUCH, EH?"Q< "": "": ""x< "ONCE I FOLLOWED": "HIS MOTHER"< "OUT TO THE MALL."< "SHE BOUGHT THREE": "PAIRS OF WHITE"< "COTTON": "UNDERPANTS AND"= "A PAIR OF JEANS": "FOR JET": "JOHNNY WATCH"-; "'TOM AND JERRY'."R; "WHEN HIS FATHER": "IS AWAY,"j; "JOHNNY'S MOTHER"; "HOLDS DINNER": "UNTIL SIX"; "SO HE CAN": "WATCH IT."; "I HAVE ALREADY": "RIGGED": "AN ANTENNA": "DOWN HERE.""< "'TOM AND JEONIGHT.": "IT BRINGS US"5: "CLOSER TOGETHER"N: "DON'T YOU THINK?"e: "": "": "": "JOHNNY'S FATHER": "IS VERY STRICT.": "NOT LIKE": "YOUR FATHER.": "HE MAKES": "THE FAMILY EAT": "AT EXACTLY 5:30";"AND HE WON'T LE TO":"GOLDEN BROWN."%9 "STILL,"T9 "I'LL ORDER": "WHATEVER": "HE ORDERS,"k9 "SO I CAN TASTE"9 "WHAT HE'S": "TASTING."9 "LIKE THE HOTDOG": "WITH THE"9 "PICKLE RELISH": "YOU HAD"9 "JUST AFTER": "THE BALL GAME": "T8 "NEXT TO JOHNNY."08 "I'LL BET HE'S A"X8 "CHICKEN AND": "FRENCH FRY BOY."y8 "I LIKE": "FRENCH FRIES."8 "I LIKE WATCHING": "THE BUBBLES TRY"8 "TO LEAP": "OUT OF THE VAT"8 "AND SEEING THEIR": "SKIN TURN FROM"9 "WHITUND IT".7 "IN THE GARBAGE": "THAT NIGHT."O7 "I THOUGHT": "TO MYSELF,"o7 "I WOULDN'T EAT": "FISH"7 "I FOUND ON MY": "FRONT PORCH."7 "HOWARD JOHNSON'S": "IS MUCH MORE": "SENSIBLE."7 ""8 "I'LL BE SITTING": "AT THE TABLE""6x "HE HAD WRITTEN": "A STORY"I6z "ABOUT WHEN": "HE WENT FISHING"e6| "AT MARBLE HEAD,"6~ "BUT HE DIDN'T": "CATCH ANYTHING"6 "I PUT SOME FISH"6 "WRAPPED IN": "NEWSPAPER"6 "ON HIS": "FRONT PORCH."7 "BUT THEN": "I FOCH": "A SWEET VOICE."=5h "EVEN WITHOUT": "A MICROPHONE,"V5j "I COULD HEAR HIM"{5l "ALL THE WAY": "IN THE BACK."5n ""5p "ONCE, I STOLE": "HIS NOTEBOOK"5r "WHEN HE LEFT IT"5t "TOO NEAR": "THE FENCE OF"5v "THE SCHOOL YARD.""4R "THE KIND WITH": "WHEELS."+4T ""74V "NO?"@4X ""X4Z "I FIRST SAW HIM"o4\ "FOUR YEARS AGO"4^ "IN THE CHRISTMAS": "PAGEANT"4` "HE WAS THE ONE"4b "WHO DID NOT": "HAVE ROOM"4d "IN THE INN": "FOR MARY."5f "HE HAS SU?" 3> ""13@ "SANDY HAIR": "OVER HIS EARS."G3B "LIKES TO WEAR"m3D "A CLEVELAND": "INDIAN'S CAP."v3F ""3H "TINY BOY": "FOR HIS AGE."3J "JUST BIG ENOUGH": "TO FIT INTO A"3K "LARGE SUITCASE."3L ""3N ""4P "YOU KNOW."2* "NICE TOUCH, EH?" 82, "AND HE BATS": "EIGHTH"Z2. "ON HIS": "KICK BALL TEAM"n20 "AT RECESS." 22 "THAT'S JUST": "A COINCIDENCE,"24 "BUT IT": "ADDS FLAVOR."26 "DON'T YOU THINK?"2: "YOU MIGHT": "KNOW HIM."3< "JOHNNY UWE "I'LL BE ABLE"!1 "TO SLEEP"51 "PEACEFULLY.">1 ""S1 "BUT THERE'S"j1 "THUNDER THERE."1 "YOU CAN BE SURE": "OF THAT"1  "THERE'S": "THUNDER THERE."1" ""1$ ""1& "NUMBER EIGHT": "IS IN THE"2( "EIGHTH GRADE."R": "FIVE": "SIX": "SEVEN": "EIGHT"50 "": ""G0 "STRANGE."_0 "NO THUNDER?" 0 "HERE IN" : "THE CELLAR"0  "WE USUALLY": "HEAR IT"0  "CLEARLY."0 "TONIGHT,": "THE STORM" 0 "MUST BE VERY": "FAR AWAY."1U SEE": "THAT LIGHTNING?": "NEXT TIME": "WE'LL COUNT": "TO SEE HOW LONG": "IT TAKES": "THE THUNDER":"TO REACH US."/ "SHHH": "SHHH" : "SHHH": "SHHH": "":"": "": ""'0 "ONE": "TWO": "THREE": "FOU "BE BACK": "UNTIL THE": "TWENTY-FOURTH". "I CAN SEE": "HER EYES": "WHEN SHE": "COMES HOME": "AND FINDS THE": "THANK-YOU NOTE.": "I HAVE MET HER.": "HER EYES ARE": "LIGHTNING WHITES". "AROUND BLUE": "PUPILS.". ""y/ "DID YOWELVE .": "I MUST KEEP": "THE LUCK": "ON MY SIDE.": "I SENT HIM": "A SPECIAL": "BIRTHDAY CARD,"-."A FREE DINNER AT":"HOWARD JOHNSON'S": "THEY THINK": "IT IS FROM":"HIS GRANDMOTHER,": "BUT SHE'S": "ON A CRUISE": "AND WON'T": "YES,": "I KNOW": "WHERE HE IS.": "I LIKE TO": "KEEP AHEAD" , "IF YOU KNOW": "WHAT I MEAN.": "HE'S A NICE BOY.": "ELEVEN.": "THAT'S A LUCKY": "NUMBER TOO,"i- "BUT HIS BIRTHDAY": "IS IN SIX DAYS": "AND HE WILL BE": "TESENTED ONE PAGE AT A TIME IN A MORE TRADITIONAL FORM."B+"";A$S+A$"1"ī487d+A$"2"ī485u+A$"3"ī486+A$"4"ī1400+488+H1:116+H2:116+H3:116+A$"M"ī490+:475+D$(4):D$;"RUN MENU 2"+1420O,q*"":"2...THERE WILL BE A WINDOW, BUT THE TEXTWILL APPEAR ONE LINE AT A TIME AT THE BOTTOM OF THE SCREEN."7+"":"3...THERE WILL BE A WINDOW, BUT THE TEXTWILL APPEAR TWO LINES AT A TIME AT THE BOTTOM OF THE SCREEN.":"":"4...THE TEXT WILL BE PRNT WAYS. CHOOSE THE STRUCTURE YOU FEEL YOU WILL ENJOY AND PRESS THE RETURN. TO GO BACK TO THE MENU TYPE 'M'."*:"1...THERE WILL BE A WINDOW WITH FOUR PANES OF GLASS. IT IS RAINING OUTSIDE. THE TEXT OF THE STORY WILL APPEAR ON THEWINDOWPANES."B<(F$:W1:6:4:F$:438:W2:F$:W1:6:22:F$:438:W2y(F$:W1:14:4:F$:438:W2:F$:W1:14:22:F$:438:W2(X:(:20:B500:465(499r):" 'THERE'S THUNDER THERE' WAS PRO- GRAMMED TO BE PRESENTED IN SERVERAL DIFFERE'G1İ79'G2İ76%'G3İ722'G4İ708'F'20:69:S'X1305'21:11:255:" ":F$:21:11:F$:438'23:12:255:" ":F$:23:12:F$:438'152:X'499' DATA IN WINDOWS(:X1;:21:" "P&3:" ";:21:" "&3:" ";:21:" "&3:" ";:21:" "&&&402:P12000:P:79:& DATA DOUBLED SPACED "B%11:3:" ";:21:" "x%3:" ";:21:" "%3:" ";:21:" "%3:" ";:21:" "&3:" "3:" ";:21:" "f$3:" ";:21:" "$3:" ";:21:" "$3:" ";:21:" "%3:" ";:21:" HER."#H1İ397#"#403y#21:" ":" ":" ":21:#499#390#3:3:" ";:21:" "#3:" ";:21:" "0$ITIOUS,": "BUT": "SO MANY THINGS"v"x "CAN GO WRONG,": "ESPECIALLY WHEN": "ALL THE LUCK": "IS ON":"YOUR SIDE.""z "NUMBER EIGHT": "IS NOT NEAR": "AS LUCKY": "AS YOU ARE."#| "RIGHT NOW": "HE'S AT": "THE MOVIES": "WITH HIS FATRSTAND." !n "": ""M!p "THE RAIN'S BEEN": "THREATENING": "ALL NIGHT"!r "BUT YOU'RE SAFE": "FROM THE STORM.": "IN FACT,": "YOU'RE LUCKY": "NUMBER SEVEN"!t "AND THAT": "MAKES YOU": "VERY SPECIAL."#"v "I TRY NOT TO BE": "SUPERSTz#X±  ЮɠĠˠЮŠҠΠ ԮŠŮҠ ĮŠҠĮŠ٠ ĮŠҠĮŠҠîϠ˯ˠԮɠ Π ԮĠ ɭӠӠ ĮԠҠ ĮԠҠ ĮŠҠ Įՠ Ԡ ԠŠ Ӡ ̠Ǡ! Š! ŧӠҠŠU ЮӠ ԠҠ̱ ȱ ŠҠ ӮϮĠ ӠŠϠδ!Դ ΧӠŠҠ Ġ ĠˠŠ"Ԡ1PL,36,31,"IT MAKES INTERESTING USE OF THE TEXT SCREEN TO INTEGRATE THE DISPLAY ITSELF WITH THE CONTENT OF THE STORY.":5000SPL,36,31,"'THERE'S THUNDER THERE' HAS A POEM-LIKE QUALITY. IT HAS RATHER DISTURBING UNDERCURRENTS. PARENTS ARE ADVISED TO PR MODIFY THE PROGRAM. IF YOU DO--SHARE IT THROUGH DISK.NETWORK!"FSPL,36,31,"RICHARD O'DONNELL IS THE EDITOR OF 'THE ALCHEMIST', A DISK-BASED LITERARY MAGAZINE. 'THERE'S THUNDER THERE' IS A SAMPLE OF A STORY FROM 'THE ALCHEMIST'.":{SAYS NEEDED: IT PRINTS UP INSERTS FOR CASSETTE TAPE CASES. YOU CAN ENTER A TITLE AND SONG NAMES FOR EACH SIDE OF THE TAPE.":}@SPL,36,31,"THIS VERSION IS SET UP FOR AN EPSON PRINTER. IF YOUR PRINTER USES DIFFERENT CONTROL CODES, YOU MAY HAVE TOO REMOVE LINE 30.":(SPL,36,31,"IF YOUR APPLE SEEMS TO GO 'OUT TO LUNCH WHEN YOU RUN THIS PROGRAM, IT'S BECAUSE IT IS LOOKING FOR AN 80-COL CARD IN SLOT 3. PRESS RESET TO RECOVER."w~xSPL,36,31," THIS IS A PROGRAM THAT DOES SOMETHING I'VE ALW AND A GRAPPLER-TYPE INTERFACE."&qSPL,36,31,"HERE IS A HOME BUDGET SYSTEM WITH A LOT OF FLEXIBILITY.":SPL,36,31,"THIS VERSION REQUIRES AN 80 COLUMN CARD. ANYONE OUT THERE LIKE TO TRY YOUR HAND AT CONVERTING IT FOR 40 COLUMNS? STEP 1 IS TANY HI-RES SCREEN ON THE FRONT.":SPL,36,31," A GENERIC FORM IS INCLUDED. IF YOU CREATE A SPECIAL PICTURE FOR USE WITH THIS PROGRAM, SEND IT ALONG TO SHARE WITH THE REST OF THE NETWORK.":5000 SPL,36,31," REQUIRES A GRAPHICS-CAPABLE PRINTERUAGES, OPERATING SYSTEMS, OR FORMATS.",6 "SPL,36,31," HAVE YOU ALWAYS WANTED CUSTOM PRINTED ENVELOPES FOR YOUR DISKS? LOOK NO FURTHER. THIS PROGRAM, CONTRIBUTED BY NETWORKER PAUL PODBIELSKY, WILL PRINT AN ENVELOPE WITH YOUR CHOICE OF YOU HAVE THE OPTION OF PLAYING THE COMPUTER OR ANOTHER PERSON."::SPL,36,31,"THANKS TO GARY BELL FOR THIS PROGRAM."&`5000:SPL,36,31,"GARY CONVERTED THIS PROGRAM TO APPLESOFT FROM OSBORNE CP/M FORMAT. WE WELCOME CONVERSIONS FROM OTHER COMPUTERS, LANGACKGAMMON,DISK ENVELOPE PRINTER,HOME BUDGET,CASSETTE LABELER,THERE'S THUNDER,HI-RES SYSTEM,PRINT SHOP GRAPHICS  EXIT TO BASICLtVSPL,36,31,"LOOKING FOR A FUN GAME? BACKGAMMON IS AN OLD FAVORITE. THIS VERSION IS PLAYED ON THE TEXT SCREEN. 900,4000,4100,4200,4300! :70+ +::C ,(21(A$)2):A$:v 21:3:"M = MENU R = RUN PROGRAM ";:A$:A$ A$"M"A$"R"Č198:400 3:: 1:X140:A$;: *23:X140:A$;::2:X222:1:A$;:40:A$;::  8p B0,2700,2800,2850,2850,29750 PK15PKWĉ:70x 21:"PRESS ";::"M";::" FOR MAIN MENU ";::"R";::" TO RUN "; A$:(A$)96A$((A$)32) A$:A$"M"A$"R"Č198:162 A$"R"ĉ::PK3000,3100,3200,3300,3400,3500,3600,3700,3800,3PK((A$)):PK1PKWČ198:1301 PKWĉ::_ 2::A$" ":300:y 2::A$A$(PK):300: 34,3:35,22:32,1:33,33:5:10::32,5:6 PK1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,260TWORK #17 ":300::23:A$" THE BIG RED APPLE CLUB ":300Y ZXT1T2:5:4X1T1:s dX9ĺ(64X9);:120{ nX; x:10);A$(X): 21:10:"ENTER SELECTION ";:A$:A$ (A$)96A$((A$)32) A$"A"A$"Z"A$((A$)649)! "THE BIG RED APPLE CLUB":300:A$"1105 SOUTH 13TH, #103":300:A$"NORFOLK, NE 68701":300h <8:5000~ F::A$" ":810: H2:2::X15:" ";::35:X15:" ";:: K1::A$": :":300:3:300:= P2::A$" DISK.NE& (175)(176)25655'D$(4)L(21):D$;"PR#0":D$;"NOMONCIO"T:rW:A$(W):X1W:A$(X):T11:T2W:A$"+":800:(8:A$"CONTRIBUTED PROGRAMS":300:14:A$"DISTRIBUTED BY":300:6:A$"DISK.NETWORK #17":300[ 216:A$          1F0F61590#2320:H18560;&H210H1.8H2590r0N2$;" DOUBLES.";:" ACCEPT (Y/N) ?";A$:A$A$" ":(A$,1)"N"770DG92G9:F61NF51N3$N1$:600SN3$N2$XF1N3$N1$b:N3$;:", WANT TO CONTINUE (Y/N) ?";B$lB$AIN !":400 ( D1D2F51:N1$;> D2D1F51:N2$;V " WILL GO FIRST !" ::"READY TO START (Y/N) ?";B$:B$B$" " 2350:(B$,1)"N"790  W1 F51N$N2$:510 N$N1$ Z9F5:810 F81F51İ2400F5X'S) ?";A$:A$A$" "/ h(A$,1)"X"F51:470K m(A$,1)"O"F51:470s n:"PLEASE TYPE 'X' OR 'O'...":350 |:"LET'S SEE WHO GOES FIRST!"  1410:N1$;"'S ROLL IS "D1"." N2$"'S ROLL IS "D2"." D1D2ĺ"IT'S A TIE. LET'S TRY AG2 ":"WANT TO SET UP YOUR OWN BOARD (Y/N) ?";A$S ,A$A$" ":(A$,1)"Y"İ2500 6:"WANT COMPUTER TO TOSS DICE (Y/N) ?";A$ @A$A$" ":(A$,1)"N"F91 J:N1$;" IS THE O'S AND "N2$" IS THE X'S." TF91380 ^:"WHO GOES FIRST (O'S OR 5:B(8)3:B(12)58 B(13)5:B(17)3:B(19)5:B(24)2Z ::"WHAT'S YOUR NAME ?";N1$ :"WANT TO PLAY AGAINST THE COMPUTER (Y/N) ?";A$ A$A$" ":(A$,1)"N"280 N2$"COMPUTER":F1 2600:290 :"WHAT'S YOUR OPPONENT'S NAME ?";N2$* * * * *":F n::"DO YOU WANT INSTRUCTIONS (Y/N) ";:A$:A$A$" "n (A$,1)"Y"ĺ(4);"RUN BKGMINST40"v : "ENTER A RANDOM NUMBER ";X X((X)) F0:F60:F81:F91:G91:O10:O20:Z80:X90:W0 I025:B(I)0:I B(1)2:B(6)Ж&  GIGA BACKGAMMON . :i LAST UPDATE 25 JAN 83 BY DON WOOD, 16 FEB 82 BY CRM COPYRIGHT 1980 JOHN C. SHEPARD & GLENN A. HART. ALL RIGHTS RESERVED.ZB(25),B1(30,3),U(25),V(30),S(25) d"* * * * * * * BACKGAMMON * *           hHiRhi`*D$ѸȱȱeLޱ, 8Hȥh lSPL F { ȪbHPh ĝĝ  88! ڤ \ĝ ;LL! کLH8ưMENU"$D$;"RUNPS.HELLO.MODIFIED"?tD$;"RUN METRICS AREA"\D$;"RUN METRICS LENGTH"y<D$;"RUN METRICS VOLUME"D$;"RUN METRICS TEMPERATURE WEIGHT"D$;"RUN METRICS KITCHEN"21::"PRESS ANY KEY TO CONTINUE ";::A$:A$::6:O $2.50 EACH."k%3+17_ = L T116:T2W] T11:T215:x D$;"RUN BACKGAMMON40" D$;"RUN BROWN'S ENVELOPE MAKER" D$;"RUN BUDGET" D$;"RUN THE TAPER"H D$;"RUN THERE'S THUNDER THERE" D$;"RUN MOD.N, WE HAVE A SELECTION OF PRINT SHOP (TM) GRAPHICS FOR YOUR ENJOYMENT. THIS GROUP WAS CONTRIBUTED BY NETWORKER KEN KRANTZ. THANKS, KEN!": SPL,36,31,"SEVERAL DISKS OF PRINT SHOP GRAPHICS ARE AVAILABLE FROM BRAC (DISK VOLUMES H11, H12, H13, & H14) ATSPL,36,31,"IN FUTURE MONTHS WE HOPE TO ADD FONTS, SHAPE TABLES, AND A VARIETY OF HI-RES PICTURES FOR USE WITH THE MODULAR GRAPHICS SYSTEM.":^SPL,36,31,"WE WOULD LOVE TO SEE YOUR FONTS, SHAPE TABLES, AND PICTURES HERE!"SPL,36,31,"ONCE AGAI IS BY PAUL PRITCHARD. IT PROVIDES FOR MANY MANIPULATIONS OF THE HI-RES SCREEN, FROM CREATING GRAPHICS TO 'SLIDE SHOWS'.":JSPL,36,31,"WHEN THIS PROGRAM IS RUN YOU WILL SEE A MAIN MENU FROM WHICH ANY OF THE SEVERAL MODULES MAY BE CHOSEN.":5000TEVIEW THIS ITEM.":5000SPL,36,31,"IF YOU LIKE WHAT YOU SEE, YOU CAN GET A SAMPLE ISSUE BY SENDING $6.95 TO:"::SPL,36,31,"THE ALCHEMIST":SPL,36,31,"2219 GRAFTON ROAD.":SPL,36,31,"GRAFTON, OH 44044"?|@SPL,36,31,"THE MODULAR GRAPHICS SYSTEMO OR X ?";A$:A$A$" ",f(A$,1)"X"2170Hp(A$,1)"O"AA:2170iu"ENTER 'X' OR 'O'...":2090z" -- ON POINT # ?";BB((B))2110B0A0O1A:220022102280B25A0O2A:222022302280A022)T625L6U(L6)220600V(L2)V(L2)400KL618V(L2)V(L2)400S L6g V(L2)T82100z*T7L2:T8V(L2)4L2:M1B1(T7,1):M2B1(T7,2):900>:"* * * ERROR * * *"H"NUMBER OF MEN ?";ARA((A))A0A152110\" -- 4"U(N1)U(N1)1:U(N2)11940BU(N2)0:U(25)U(25)1:L925TU(N2)U(N2)1aL6124tU(L6)12030T60:F71L6102020L5L61L69:L5L92020U(L5)12010JD3U(L6D(N4))2T6T630L6U(L5)L5 V(L2)V(L20V(L2)V(L2)90010Y,&U(N2)1J21920>0L4N26N21M:L401910gDYL4D(N4):Y241910NN2YU(L4)1(N1L4U(L4)2)1910X(D33(U(N1)1U(N1)3))(D33U(N1)2)1910bV(L2)V(L2)1500:N218V(L2)V(L2)1250l1920vLN224V(L2)V(L2)250)L8L91760:N1L82080SV(L2)V(L2)N2:2080xU(N2)1V(L2)V(L2)160050N2N218V(L2)V(L2)50020N1JD3F711920YN1D(J)D(J1)Y241830U(Y)1Y13V(L2)V(L2)1000U(Y)01620JC1 TZ91İ2400)^860RhT89999:L21C:L90:L825:L3025erB(L3)0L9L3~|L825B(L3)0L8L3U(L3)B(L3):L3N1B1(L2,1):N2B1(L2,2):N3B1(L2,3):V(L2)0D331710N44:1720N31N42:1720N41TC1D(C2):T251500*B(T)1158041540CF201580RT251540pC319C11:B(C3)01580}C3:T25CC1:Z911560B1(C,1)25C1:B1(C,2)25T:1570B1(C,1)C1:B1(C,2)T"B1(C,3)C2,D3416006C2@B(0)PD1((D1))D11D161130.Z" AND ";D2OdD2((D2))D21D261130\nM24ĺexM:D1((1)61):D2((1)61):C0:Z91İ2400F20:K018:B(K)0F21KC1024:B(C1)11600C21D3D(C2)01590ĺ" X = ";N2$;.M15ĺ" O-->CLOCKWISE";MM16ĺ" X-->COUNTERCL";lM21ĺ" TURN # ";(W); M24O11390O21330F911350(14102::N$;"'S ROLL IS ";<D1;" AND ";D2::1390F::N$;:"'S ROLL IS ";D1~Z25:K1(B(Z)):1110:KDZ0:20);:K1(B(Z)):1110:K:UZM:Z;" ";fL1(B(Z))p1110wLZ25M:20(B(Z)));L1(B(Z)):1110:L:(B(Z))0ĺ" ";Z;(B(Z))0ĺ" ";Z;M13ĺ" O = ";N1$;M142)Z9:1090Z91O1O110Z91O2O21:$1090A.Ie89);"ILLEGAL MOVE !";(7):940zBO115O215680LJ:520VB(Z)0ĺ"O";YB(Z)0ĺ" ";\B(Z)0ĺ"X";`jM1324:M191170t:"----------BAR-------> ";:406M10M20M125M225(M1)M1(M2)M21080_I1C:M1B1(I,1)M2B1(I,2)1070D(B1(I,3))0:B(M1)B(M1)Z9:M20M2251040(B(M2))Z910101030(B(M2))1B(25)B(25)1:1020B(0)B(0)1B(M2)0 B(M2)B(M1F51F81)940z1640+F51930@F1ĺ"MY";:920M"YOUR";u" MOVE IS FROM ";M1;" TO ";M2:980"YOUR MOVE IS FROM ";25M1;" TO ";25M2:980"YOUR MOVE IS FROM ";:M1:" TO ";:M2M199M299970O2:1130:O0:9(Z$,1)"N"190.:(13)(4);"RUN HELLO"4 M*1130:F81Z91830\42400:Z91q>D1D2D34:840zCD32HJ1D32:D(J)D1:D(D32J)D2:JRJ1D3:1420\1);:C0880f"ALL LEGAL MOVES NOW BLOCKED":520p(F0F81)(F:O407406"IT'S A BACKGAMMON !":G93G9:770Z"IT'S A GAMMON !":G92G9:770mO17O27770:O13O23ĺ"ALMOST SHUTOUT !":770:"NOT EVEN CLOSE !":N$;" WINS "G9" GAME POINT(S) !": "AGAIN (Y/N) ?";Z$:Z$Z$" "::B$" ":2350:X91770/v(B$,1)"N"6605{>670NF1N$N2$p:"QUITTING, ";N3$;"?!":770WW.5:F5F5:500(Z91O10)(Z91O20)690750O40:Z91710Q06:O4O4B(Q):Q:720Q1925:O4O4B(Q):QTER ANY RANDOM NUMBER '---ENTER ANY NUMBER (+,-,INTEGRAL,FRACTION)." +"4. 'WHAT IS YOUR NAME?'---ENTER NAME (UP TO 10 CHRCTRS) FOR PLAYER #1.","5. 'WANT TO PLAY AGAINST COMPUTER(Y/N)? (A) IF Y, THEN 'DIFFICULTY LEVEL (1 ?'" (" (A) IF A RESPONSE OF Y IS ENTERED, THE PROGRAM BKGMINST IS LOADED AND RUN. THEREAFTER, BACKGAMMON IS RELOADED AND RESTARTED." )" (B) IF A RESPONSE OF N IS ENTERED, EVALUATION CONTINUES."I *"3. 'ENAMMON80."L #::"THE PROGRAM RUNS EASILY IN LESS THAN 9K OF FREE MEMORY."W $:164 %" WHEN BACKGAMMON IS LOADED AND RUN, THE FOLLOWING OUTPUT IS DISPLAYED:" &"1. '* * * * * BACKGAMMON * * * * *" '"2. 'DO YOU WANT INSTRUCTIONS (Y/N)RES TO MAKE A MOVE WHICH WOULD NOT ALLOW HIM TO USE BOTH DICE."I !164 "" BACKGAMMON40 HAS BEEN CONVERTED FROM MICROSOFT BASIC TO APPLESOFT BASIC AND IS SET FOR 40-COLUMN DISPLAY. IF YOU HAVE 80-COLUMN DISPLAY CAPABILITIES, YOUMAY PREFER BACKGGAMMON, A PLAYER DOES NOT HAVE TO USE " "THE HIGHEST NUMBER THROWN IF EITHER NUMBER, BUT ONLY ONE NUMBER, ON THE DICECAN BE PLAYED AND A PLAYER DOES NOT HAVETO MOVE MEN IN A MANNER SO AS TO EMPLOY THE NUMBERS ON BOTH DICE IF THE PLAYER"@ "DESI^ <:" BACKGAMMON INSTRUCTIONS "::z" ";::"BACKGAMMON";::" ALLOWS COMPETITION AGAINST"4' "THE COMPUTER OR ANOTHER PLAYER AND PLAYSIN ACCORDANCE WITH THE OFFICIAL RULES OFBACKGAMMON. HOWEVER, AS IN SOCIAL BACK-       OARD"Z'h ::"FOR MORE DETAILED EXPLANATIONS, SEE INSTRUCTIONS AT BEGINNING OF GAME."'r :::"PRESS TO RETURN TO GAME.";:A$'| A REPLAY."S&6 ::"SETU";::" - ALLOWS SETUP ON NEW OR EXISTING BOARD."&J ::"SWIT";::" - SWITCHES PLAYER POSITIONS"&T ::"TURN";::" - ALLOWS LAST PLAYER TO TAKE ANOTHER TURN."'^ ::"99";::" - REPRINT AN UPDATED B::"LOAD";::" - RELOADS POSITION PREVIOUSLY SAVED INTO MEMORY WITH COMMAND. LOAD MUST BE USED BEFORE ACTIVE GAME IS TERMINATED."% :"PRESS TO CONTINUE...";:A$%" &, ::"SAVE";::" - SAVES BOARD POSITION FOR LATER :::"AUTO";::" - COMPUTER MAKES MOVES FOR PLAYERS"q$ ::"DICE";::" - ALLOWS PLAYER TO MAKE DICE ROLLS"$ ::"DOUB";::" - ASKS COMPUTER TO ACCEPT DOUBLES"$ ::"LEVE";::" - CHANGES LEVEL OF PLAY (1 = EASY, 2 = DIFFICULT)"% 2670&#d "YOU CAN'T DOUBLE NOW!!!":E#n 2320:H27H11.2H22690p#x "COMPUTER GIVES UP !!!":N$N1$:X91:# "I ACCEPT YOUR DOUBLE !":G92G9:F61:# "OK! "# (B$,1)"?"2730# 2740# # # " BACKGAMMON COMMANDS"7$ ,4)"DICE"2560!" F9F9:2700;" (B$,4)"TURN"2580L" F5F5:2700f" (B$,4)"LEVE"2620v" 2600:2700"( "DIFFICULTY LEVEL (1 OR 2) ?";F7"2 F71F72ĺ:2600"7 "< (B$,4)"DOUB"2710"F F1ı"P W02660#Z F61F51:(I)B(I):I:S1O1:S22:27006! (B$,4)"LOAD"2480a! I025:B(I)S(I):I:O1S1:O2S2:2700{! (B$,4)"SETU"2540! 2500:2700! :"CLEAR BOARD (Y/N) ?";A$:A$A$" "! (A$,1)"Y"2530! I025:B(I)0:I:O10:O20! 2120" (B$ 8 O1:1130:: B "PRESS RETURN TO CONTINUE...";:A$:T L (B$,4)"AUTO"2420e V F8F8:2700 ` I012:TB(I):B(I)B(25I):B(25I)T:I j TO1:O1O2:O2T: t (B$,4)"SWIT"2440 y 2400 ~ 2700 (B$,4)"SAVE"2460! I025:S60B0B24211022702B1B252110=B(B)ACu"BOARD SET UP COMPLETE (Y/N) ?";A$:A$A$" "(A$,1)"Y"ı (A$,1)"N"2120 2280 H10:H20:L3025:B(L3)0H1H1(25L3)B(L3)$ L3: . (B$,4)"99 "2380"SETU - REQUESTS COMPUTER TO ALLOW PLAYER TO RESET MEN ON A CLEARED BOARD OR TO REARRANGE MEN ON AN EXIST- ING BOARD. SETU ALLOWS CHEATING!3\:"SWIT - COMMANDS COMPUTER TO FLIP BOARD, I.E. EXCHANGE POSITION OF THE OARD POSITION SAVED USING THE SAVE OPTION. NOTE THAT LOAD MUST BE USED BEFORE AN ACTIVE GAME IS"X" TERMINATED."Y164Z"SAVE - COMMANDS COMPUTER TO SAVE A BOARD POSITION IN MEMORY FOR LATER REPLAY."[: REQUEST A DOUBLE, BUT"ZU" WILL NOT DO SO FOR PLAYER UNDER AUTO OPTION."V:"LEVE - REQUESTS COMPUTER TO CHANGE ITS LEVEL OF PLAY (1 = EASIER, 2 = HARDER)."pW:"LOAD - COMMANDS COMPUTER TO RELOAD A B DOUBLE BEFORE HIS TURN (I.E. IMMEDIATELY AFTER COMPUTER'S"T" TURN. DOUB OPTION IS NOT OPERA- TIVE IF TWO HUMAN PLAYERS ARE COMPETING DIRECTLY OR UNDER AUTO OPTION. NOTE THAT COMPUTER HAS ABILITY TOICE; OR,"pQ" (B) COMMANDS COMPUTER TO TOSS DICE IF PLAYER WAS TOSSING DICE."}R::164HS"DOUB - ASKS COMPUTER IF IT WISHES TO ACCEPT DOUBLING OF GAME VALUE OR RESIGN. PLAYER CAN ONLY B) COMMANDS COMPUTER TO STOP MAKING MOVES IF IT IS DOING SO. 'AUTO' ALLOWS COMPUTER TO PLAY ITSELF."O P"DICE - (A) ALLOWS PLAYER TO INPUT DICE ROLLS (I.E. CHEAT) IF COMPUTER HAD BEEN TOSSING DL BE DIS- PLAYED. A PLAYER MAY ENTER Y, N, OR ONEOF THE FOLLOWING OPTIONS:"ZL::164M"AUTO - (A) COMMANDS COMPUTER TO MAKE MOVE FOR PLAYER(S) AUTOMATI- CALLY IF IT IS NOT ALREADY DOING SO; OR,"N" (, THE NOTATION 'ILLEGAL MOVE!' WILL BE DISPLAYED ON THESUCCEEDING LINE. IF ALL MOVES ARE BLOCKED, THE NOTATION 'ALL LEGAL MOVES"MK"NOW BLOCKED' WILL BE DISPLAYED. AFTER EACH TURN IS COMPLETED, THE REQUEST 'WANT TO CONTINUE (Y/N)?' WILYOUR MOVE IS FROM, TO -' IS DISPLAYED, ORIGINATION POINT AND DESTI- NATION POINT OF MAN TO BE MOVED IS ENTERED. MOVEMENT IS MADE ONE DIE AT A TIME AND ONE MAN AT A TIME. REMEMBER,"J"MEN ON THE BAR MUST BE MOVED FIRST. IF A MOVE IS NOT LEGAL ->OXX"$A"19 XXX OOOOO 6"AB"20 5"hC"21 4 TURN #5"D"22 3"E"23 2"F"24 O XX 1"G:"YOUR MOVE IS FROM 25 TO 21"H::164I" WHEN '::+:"13 00000 XXXXX 12 O=SMITH"W;"14 11 X = COMPUTER"<"15 10 O->CLOCKWISE"="16 9 X->COUNTERCL">"17 XXX OOO 8"?"18 7"@" - - - BAR - -S 1.' 'SMITH WILL GO FIRST!'"6" (B) IF THE RESPONSE TO #7 WAS N THEN'WHO GOES FIRST (O'S OR X'S)?' ---ENTER O OR X."7:"10. 'READY TO START (Y/N)?' OR OPTION--- SEE BELOW.8::1649" * * * SAMPLE BOARD LAY-OUT * * *""7. 'WANT COMPUTER TO TOSS DICE (Y/N)?' ENTER YES (Y) OR NO (N)."4:"8. 'SMITH IS THE O'S AND JONES IS THE X'S.'"5:"9. (A) IF THE RESPONSE TO #7 WAS Y THEN'LET'S SEE WHO GOES FIRST!' 'SMITH'S ROLL IS 6. JONE'S ROLL IBOARD POSTIONS."0" (3) 'BOARD SET UP COMPLETE (Y/N)? Y = EXECUTION CONTINUES N = EXECUTION RETURNS TO 6(A)(2) ABOVE."1" (B) IF N, THEN BEGINNING BOARD IS SET UP."2:164J3: Y=CLEAR STARTING POSITONS N=RETAIN THEM"/" (2) 'NUMBER OF MEN?' (0-15) 'O OR X?' (O,X) 'ON POINT #?' (0-25)' ENTER DESIRED INPUTS TO RESTORE OR 2)---ENTER 1 OR 2"-" (B) IF N, THEN 'WHAT'S YOUR OPPO- NENT'S NAME'--ENTER NAME OF PLAYER #2.":164E."6. 'WANT TO SET UP YOUR OWN BOARD(Y/N)? (A) IF Y, THEN: (1) 'CLEAR BOARD (Y/N)?': ED$"N"ī860R6144,\A$"N"TITLE$""Pf:11:9:"TURN THE PRINTER ON"mp10:"AND PRESS ANY KEY"z" ";ANY$:16300,01:1190X2:Y71:1160A$"Y"ī1210X1:Y71:1160FB$"Y"īPACKED$"Y"ĺ"YES",PACKED$"N"ĺ"NO"BNE$(13)NE$""VNE$"N"NE$""u:"FULL BACKGROUND?..: ";FB$"Y"ĺ"YES" FB$"N"ĺ"NO":: "IS THIS INFORMATION CORRECT Y";:(8);*ANS$4ANS$"N"ī460> HPACK0b::570l::[v"DOES PICTURE HAVE A FULL BACKGROUND (Y/N) ";:FB$kI1750:I:9:"TITLE OF DISK.....: ";A$"N"ĺ"NONE":680TITLE$"NAME OF PICTURE...: ";NAME$"IS THE FILE PACKED: ";(Y/N) ";:A$(A$(13)A$"Y"9A$"N"ī560JA$"Y"ī540S460Y&"ENTER DISK TITLE ";:18:TITLE$0:"IS THE PICTURE PACKED (Y/N) ";:PACKED$DPACKED$(13)PACKED$"Y"NPACKED$"Y"ī620XPACKED$"N"ī62 Y.":" IF YOU'RE NOT SURE IF THE PICTURE IS PACKED OR NOT LOOK AT THE CATALOG IF THE FILE IS A BINARY FILE WITH LESS THEN 34 SECTORS THEN IT IS PACKED "::7:"PRESS ANY KEY TO CONTINUE ";:CT$9 "DO YOU WANT A TITLE IN LINES 920, 980 AND 1020."J "IT RUNS WITH A GEMINI 10X & GRAPPLER+":" IF YOU WANT A TITLE ON YOUR COVER IT WILL BE CENTERD ABOVE THE PICTURE ON YOUR DISK COVER. WHEN YOU ARE ASKED IF THE FILE IS PACKED OR NOT ANSWER (Y/N) THE DEFULT IS" THIS PROGRAM WILL MAKE DISKETTE ENVELOPE COVERS FOR YOUR SOFTDISK DISKETTES WITH THE COVER PAGE PICTURE AND DISK TITLE ON IT. " :" THE PROGRAM IS SET UP TO RUN ON AN APPLE DMP WITH A PKASO/U CARD. THE PRINTER CONTROLS ARE:::::"TO CONTINUE AFTER VIEWING PRESS ANY KEY";:(8);:PRV$T 6PRV$"N"ī360g @PRV$"Y"ī340p J300 T:16300,0 ^ANY$: h:12:5 r"DO YOU WANT INSTRUCTIONS Y/N ";:(8);:ANS$ |ANS$(13)ī460 ANS$"N"ī460  EN RETURN" NAME$ D NAME$"1"ĺ(4)"CATALOG"::::210p NAME$"2"NAME$"PEAPOD DISK ENVELOPE" "(4)"BLOAD "NAME$",A$2000"A ,::::" WOULD YOU LIKE TO SEE YOUR PICTURE":" ON SCREEN NOW?":" Y/N": I12500:I : C1k "ENTER NAME OF PICTURE YOU WISH TO PUT ON THE ENVELOPE........"u CC1 C2ī250 C2ī260 ::"TO SEE CATALOG PRESS '1' THEN RETURN ::"IF YOU WANT A STANDARD FORM WITH BLANKS PRESS '2' TH V(6144)V173ī40?(4)"BLOAD MODIFIED UNPACK"V((4)"NOMON C,I,O"c2::255n<8:14tFP"+ +"Z14d" BROWN'S "n14x" ENVELOPE "14" MAKER "14"+ +"    :164-!164:(13)(4);"RUN BACKGAMMON40"\!:"PRESS ANY KEY TO CONTINUE...";:A$::AOARD ARE ALL INITIALIZED AT THE BEGINNING OF THE GAME";U b"BY PLAYER RESPONSES." c:"IF YOU ENCOUNTER ANY PROBLEMS OR BUGS, OR HAVE ANY SUGGESTIONS FOR IMPROVED PLAY, PLEASE WRITE TO GIGA AT P.O. BOX 1881, CHICAGO, IL 60690."!dNSE TO A REQUEST TO CONTINUE, OR AS AN INPUT FOR A MOVE, 99 COMMANDS THE COMPUTER TO REPRINT AN UPDATED BOARD."`9 a"IF OPTION SELECTION IS VALID, COMPUTER RESPONDS WITH 'OK!'. NOTE THAT DICE, LEVE, AND THE BEGINNING B RESPECTIVE PLAYERS. SWIT ALLOWS CHEATING!">]:164^"TURN - COMMANDS COMPUTER TO ALLOW THE LAST PLAYER TO TAKE ANOTHER OR SECOND CONSECUTIVE TURN. TURN ALLOWS CHEATING!"_:"99 - ENTERED AS AN OPTION IN RESPOĈĈĈĈĈĈĈĈĈĈ??Ĉ?Ĉ??Ĉ ?hw ~?Ĉ?Ĉ_?Ĉ~E/ E ?hou:}#'~?Ĉ`p?ĈĈĈĈĈĈĈĈĈĈĈĈ?Ĉ?ĈĈĈĈĈĈĈĈĈĈĈ?Ĉ`p?Ĉ?ĈĈ?Ĉ?Ĉ?ĈĈ?Ĉ?ĈĈĈĈĈĈĈĈĈĈĈ?Ĉ?Ĉ?ĈĈ?Ĉ`p? ?hw ~?Ĉ??8TN~?~E/ E ?hiu: ?~??ĈĈĈĈĈĈĈĈĈĈ??ĈĈĈĈĈĈĈĈĈĈ??Ĉ?Ĉ??Ĉ?Ĉ?? ĈĈĈĈĈĈĈĈĈĈ??Ĉ?Ĉ??          `yrisi`  TƴJ0A 0ƴH8휳 hʽƴ)ȥȥi 0` (9);"G":1000'((9);"GI":1000B *******************] * *x * PROGRAM BY * * KENNETH RAYNER * * * *******************V--+------+":U12:"+--------------------------------------------------------+":oV(TITLE$)240:VVxVRVVI(VR)5:"|";6);"|";:V:TITLE$;L(TITLE$)HT69VLVRVI0HTHT1HT)"|";6);"|" 9806`WH$"1"ī870#jWH$"2"ī1906tWH$"3"ī1300@~1070pI1X:5:"|";6);"|";56);"|";6);"|"::5:"|";6);"|";56);"|";6);"|":I1X:12:"|";56);"|":: 5:"+------+------------------------------------------------------1320FB$"N"ī1310%X1:11703X2:1160=1190LX28:1180V1200b(140)s$I11000:I.0:16303,0:::7:"DO YOU WANT TO :"8"1) DO THE SAME ONE OVER"B"2) DO A DIFFERENT ONE"L"3) BOOT DISK"V7:17:WH$Ĉ?Ĉ??Ĉ?Ĉ??Ĉ( D |?hou;}/_~?Ĉ?ĈĈ?~?Ĉ?ĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈ?Ĉ?Ĉ?Ĉ?Ĉ?0wk5~?Ĉ?ĈĈ?Ĉ?ĈĈĈĈ?Ĉ?Ĉ?ĈĈ?Ĉ?Ĉ?ĈĈ?Ĉ?w( D|?`u;}/W~??~G?G|?`q;|~??ĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈ???Ĉ?n8\N~?Ĉx?Ĉ??ĈĈ??ĈĈ??Ĉ?Ĉ`p??Ĉ`}hzG>|?hw8.W~?Ĉ?ĈĈ~AA|?x}?og~?Ĉ?ĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈ?Ĉ?ĈĈ?Ĉn~?Ĉ?ĈĈ?Ĉ?ĈĀĈĈ`p?Ĉ?ĈĈĈĈĈĈĈĈĈĈĈ?Ĉ?Ĉ?ĈĈ?Ĉ?~@p?hu|#w~?Ĉ?~Eo E;|?`E;.'~??ĀĈĈĈĈĈĈĈĈĈĈ??ĈĈĈĈĈĈĈĈĈĈ`p??q~?Ĉ?Ĉ??ĈĈ?`p?S$"P"5500 S$"Q"19401S$"S"3000BS$"V"5000TS$"I"İ6000]500c *"WHAT MONTH ARE YOU ENTERING DATA FOR? "4"(PRESS RETURN TO GO BACK TO THE MENU) ";M$>M$""ĺ(7):1100HM(M$)R TEST FOR 1 TO 00= D36,9:A$"VIEW CATEGORY NAMES AND CODES V ":7000x N36,9:A$"READ THE INSTRUCTIONS I ":7000 X36,9:A$"QUIT Q ":7000 bS$ lS$"E"4060 vS$"T"800 S$"M"1500 S$"D"2500IONS T ":7000Q 36,9:A$"PROCESS A MONTHLY FILE M ":7000 &36,9:A$"DISPLAY A YEAR D ":7000 036,9:A$"PRINT OUT A YEARLY SUMMARY P ":7000 :36,9:A$"START A NEW YEAR S ":70MBER IF FOUND  JG T"YOU HAVE ENTERED AN INVALID CODE ":(7):p ^"PLEASE ENTER A PROPER CODE ";C$y h940  "PLEASE MAKE A SELECTION": 36,9:A$"ENTER A NEW CATEGORY E ":7000 36,9:A$"ENTER MONTHLY TRANSACTT DATA" ZD$;"OPEN DATA"' dX1NT; nD$;"READ DATA"U xCC$(X),CN$(X),NA$(X)] D$c s D$;"CLOSE"~ 216,0 500 ,N$"A" 6X1NT @C$CC$(X)N$CN$(X):XNT:: COMPARES INPUT TO FILE OF CATEGORY CODES AND ASSIGNS PROPER NU: END OF LIST PRINTP T$(13):CC$(100):CN$(100):NA$(100):GT(13):A(100) D$(13)(4): CARRIAGE RETURN PLUS CONTROLD D$;"PR#3": SATURNS ON THE 80-COL CARD (4000 2D$;"OPEN NT DATA" <D$;"READ NT DATA" FNT PD$;"CLOSE N/)10: GOES AROUND THE PRINT ROUTINEZ(21): CONTROL-U TURNS OFF THE 80-COL CARDm(4);"PR#1":(27);(69): SETS ELITE FONT(27);(66): SETS1/8-IN LINE SPACING(9);"80N": SETS PRINTER TO 80-COL (4);"PR#3"                Ĉ~E/ E ?hiu: ?~?Ĉ?ĈĈ?Ĉ?ĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈ?Ĉ?Ĉwc?p ~?Ĉ?Ĉ>_[l5~?Ĉ?ĈĈ?Ĉ?ĈĈĈĈĈĈĈĈĈĈĈ?Ĉ?Ĉ?ĈĈ?Ĉ?Ĉ?ĈĈ?Ĉ?E/ E ?hou: ~??`p??ĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈ??`?x`~?Ĉ?>0ku~?Ĉ?Ĉ??ĈĈ??TINUE? ";G$$ (G$,1)"Y"3280- 5009 M112M F$"MONTH"(M)^ D$;"OPEN"F$q D$;"DELETE"F$w  3270"WHICH MONTH DO YOU WISH TO PROCESS? ";M$(M$)1(M$)12ĺ(7)::"PLEASE SELECT 1 THRU 12 ";M$:3823110l D$;"WRITE";RF$;",R0"'v NT; D$;"CLOSE";RF$A | (7):"NOW I'M GOING TO DELETE ALL THE MONTHLY FILES" :"ARE YOU SURE YOU'RE DONE PROCESSING THEM?" :"PUTTING ALL THAT INFORMATION BACK IN WILL BE TIRING" :"SHALL I CON"C"500$ RF$"YEAR 19"Y$" L100"@ D$;"OPEN ";RF$;",L100"V D$;"DELETE ";RF$r M113:T$(M)" ":Mz N0& D$;"OPEN";RF$;",L100"0 NN1: NNT3180D D$;"WRITE";RF$;",R";NN NA$(N):M113:T$(M):X D$;"CLOSE ";RF$b ECTED TO CREATE NEW A NEW FILE FOR THE YEAR 19"Y$ :"PLEASE BE SURE THAT THIS IS A NEW YEAR"::"IF YOU CONTINUE, ANY EXISTING DATA FOR THE YEAR 19"Y$" WILL BE ERASED" :"ARE YOU SURE YOU WANT TO CONTINUE??? IF SO, PRESS ";Q$ Q$:P85M:36,P:T$(M);:M" CT0( / :d 36,0:"TOTAL";:M113:P85M:36,P:GT(M);:Mk" :, :"PRESS RETURN TO GO BACK TO THE MENU";G$6 S$"P"5550: RETURNS TO PRINTER SUBROUTINE FOR EXIT@ 500 3830 2 "YOU HAVE ELSES THAT NUMBER TO CALCULATE THE AVERAGES< CTCT(T$(M))B m D02790: IF NO MONTHS,SKIPS AVERAGE| AV(CTD) T$(13)(AV) M113 (T$(M))4T$(M)" "T$(M):2770  M113:GT(M)GT(M)(T$(M)): 36,0:NA$;:M113" L100" D0+( D$;"OPEN";RF$;",L100"D2 D$;"READ";RF$;",R0"L< NTTF D$`P N1NTxZ D$;"READ";RF$",R"Nd NA$n M113:T$(M):x D$ M112) N1ĭ(T$(M))0DD1: COUNTS THE NUMBER OF MONTHS WITH MORTGAGE PAYMENTS AND U:36,14:"JAN";:36,19:"FEB";:36,24:"MAR";:36,29:"APR";:36,34:"MAY";:36,38:"JUNE";:36,43:"JULY"; 36,49:"AUG";:36,53:"SEPT"; 36,59:"OCT";:36,64:"NOV";:36,69:"DEC";:36,74:" AVE" 5 M113:GT(M)0: RF$"YEAR 19"Y$MONTH./b:"DO YOU WISH TO CONTINUE? ";Q$Dl(Q$,1)"Y"500iv"I ASSUME YOU WANT TO QUIT? ":"IF SO, PLEASE ENTER A ";Q$(Q$,1)"Y"1890"GOODBYE" 3830  1:36,36:"YEAR 19"Y$k 3:"CATEGORY";;",L100"N1NT/D$;"READ ";RF$;",R";NHC$:M113:T$(M):PD$\M(M$)nT$(M)(A(N))D$;"WRITE ";RF$;",R";NC$:M113:T$(M):&D$0:D$;"CLOSE ";RF$DD$;"CLOSE"I34,0NX"I'M DONE WITH THAT "OPEN";F$@D$;"READ";F$&JC$,A$.TD$>^X(C$)100JhA(A$)ZrA(X)A(X)Ad|1600w(222)51710:(7):"UNUSUAL ERROR DETECTED PROGRAM TERMINATED"D$;"CLOSE ";F$1940D$;"CLOSE ";F$216,0D$;"OPEN";RF$13503800t"I'M NOW PROCESSING THE MONTH YOU REQUESTED":" PLEASE GIVE ME A MINUTE OR TWO"34,10RF$"YEAR 19"Y$" L100"F$"MONTH"M$M(M$)N1NT:A(N)0:":OPEN AND PROCESS FILES,1670 6D$;"F$ t500F"I'M ABOUT TO DELETE THE CURRENT MONTHLY FILES!!!":v"ARE YOU SURE YOU WANT TO DO THIS? ";Y$((Y$,1)"Y"5002:"OKAY HERE GOES"<M0FMM1PF$"MONTH"(M)ZD$;"OPEN"F$dD$;"DELETE"F$nM12500x(7):"THAT'S ALL THE TRANSACTIONS FOR THIS MONTH? ";Q$V$(Q$,1)"Y"1130_.9208(7):36,20:"PLEASE ENTER A THREE LETTER CODE. ";C$B940L"ARE YOU SURE YOU WANT TO QUIT? ";Q$V(Q$,1)"Y"810`1140jD$;"CLOSEO GO BACK TO THE MENU ";C$,C$""1050?(C$)31080H300c36,20:"ENTER AMOUNT""ENTER AMOUNT (PRESS RETURN TO GO BACK TO THE MENU) ";A$(A$)01050(A$)0ĺ(7):980D$;"WRITE"F$N$:A$;D$920@12 INPUT\M0M13880f"THE MONTH NUMBER MUST BE BETWEEN 1 AND 12"::"PLEASE ENTER A PROPER MONTH NUMBER ";M$:830pF$"MONTH"M$zD$;"OPEN"F$D$;"CLOSE"F$D$;"APPEND"F$36,20:"ENTER A CATEGORY CODE""PRESS RETURN Thanged to have separate data files for each year but it is not now set up that way.)"^.:/" All amounts should be rounded to the nearest dollar when entering. The program handles integers only and will handle spending up to $9999 per montNT."-::1-"TO CONTINUE PRESS RETURN";G$7--" Categories may be added at any time but there is no effective way to delete categories. Deletion of a category will make a previous year's data unreadable.";V." (The program could be cmembering you might want to use the first three letters of each category name for that category's code - i.e. ele for electricity)";-" FOR PROPER AVERAGING THE FIRST CATEGORY ENTERED SHOULD BE ONE THAT OCCURS EVERY MONTH - LIKE A HOUSE MORTGAGE PAYMEhat you want and a 3-letter code you will use for that category. This code is a shorthand way to enter data without having to enter the whole name each time. ";,"You may enter new categories by selecting that function from the menu. (For ease in reis program you must decide on what groups you want to organize your spending into - i.e. car expense, insurance, electricity, etc. The programcan handle up to 100 categories."*:+" To start the program, you enter a name of each category tmonthly spending (transactions from your checkbook or other records. Then at the end ofthe month these are processed toobtain the total spending by category. ";)"A summary is kept by month of each year's spending.")::*" To use thZ$ (500(|3830'(I$(9)"80N"6(D$;"PR#1">(I$H(2520W(D$;"PR#3"`(500(D$;"UNLOCK NT DATA":D$;"OPEN NT DATA":D$;"WRITE NT DATA":NT:D$;"CLOSE NT DATA":D$;"LOCK NT DATA":(p)z" This program allows you to enter D$;"OPEN DATA"#'D$;"READ DATA"G'N1NT:CC$(N),CN$(N),NA$(N):W'D$;"CLOSE"]''36,5:"CATEGORY";:36,20:"CODE";:36,34:"NUMBER"'N1NT'36,5:NA$(N);:36,21:CC$(N);:36,36:CN$(N)'("PRESS RETURN TO RESUME PROGRAM";D$;"CLOSE";RF$'&D$;"UNLOCK NT DATA">&D$;"OPEN NT DATA"V&&D$;"WRITE NT DATA"^&0NTv&:D$;"CLOSE NT DATA"&DD$;"LOCK NT DATA"&N"IF YOU HAVE MORE CATEGORIES TO ENTER, THEN CONTINUE"::&X"OTHERWISE.............":&b4110&'A"%CC$:CN$:NA$;%D$3%D$;"CLOSE DATA"G%D$;"LOCK DATA"d%RF$"YEAR 19"Y$" L100"%M113:T$(M)" ":%D$;"OPEN";RF$;",L100"%D$;"WRITE";RF$;",R";NT%NA$:M113:T$(M):%D$%D$;"WRITE";RF$;",R0"%NT&N 12 LETTERS":"PLEASE REENTER THE NAME AND CODE":4110$J(CC$)3ĺ"THE CODE MUST BE 3 LETTERS LONG":"PLEASE REENTER THE NAME AND CODE":(7):1110$TNTNT1$^CNNT100$hCN$(CN)$rD$;"UNLOCK DATA"$|D$;"APPEND DATA"%D$;"WRITE DATTURN "7#"PLEASE ENTER THE CATEGORY NAME ";NA$i#"NA$""ĺD$;"CLOSE":D$;"LOCK DATA":5600:40#,"NOW ENTER THE CATEGORY 3 LETTER CODE ";CC$#6CC$""ĺD$;"CLOSE":D$;"LOCK DATA":5600:407$@(NA$)12ĺ"THE NAME CANNOT CONTAIN MORE THAAY -- LET'S START BY ADDING BUDGET CATEGORIES"":"YOU NEED TO ENTER YOUR BUDGET CATEGORY NAME AND A 3 LETTER CODE YOU WILL USE FOR THAT NAME."""WHAT IS THE CURRENT YEAR? ""3850"D$;"OPEN DATA""D$;"CLOSE DATA" #"TO EXIT PRESS RE!(G$,1)"Y"(G$,1)"R"ĺ"NO? THEN SOMETHING'S WRONG 'CAUSE I HAVE NO NT DATA IN THE NT FILE."::"BETTER CHECK":"GOOD-BY":!"GOOD - IF YOU WANT INSTRUCTIONS ENTER . OTHERWISE PRESS RETURN TO CONTINUE. ";G$!G$"I"İ6000.""OKE THAN 4 DIGITS"::"PLEASE REENTER";Y$:3860 2(Y$)3(Y$)2ĺ(7):"THE YEAR MUST HAVE EITHER 2 0R 4 DIGITS. PLEASE REENTER";Y$:3860 <Y$(Y$,2) F (222)51680!"I ASSUME THIS IS YOUR FIRST USE OF THIS PROGRAM. RIGHT??? ";G$:06"PLEASE ENTER THE YEAR YOU WISH "b "PRESS R TO RETURN TO THE MENU ";Y$rY$"R"500(Y$)0(Y$)0ĺ:(7):"I'M WAITING. PLEASE ENTER THE YEAR NUMBER ";Y$:3860- ((Y$)4ĺ(7):"THE YEAR SHOULD CONTAIN NO MOR:K7<36,9:"The file DATA contains each category code, number and name"W7F:::z7P"PRESS RETURN TO CONTINUE";G$7Z7X(A$,34);::(A$,35,3):::7 AS C$N6 36,9:"CN$ - STORED CATEGORY NUMBER. STORED AS N$ IN TRANSACTIONS"o636,9:"NA$ - CATEGORY NAME"636,10:"NT - TOTAL NUMBER OF CATEGORIES. STORED IN FILE NT DATA AND USED IN"6(36,17:"FOR..TO.. STATEMENTS THROUGHOUT THE PROGRAM"72TRANSACTION. STORED AS A STRING"N536,10:"GT - GRAND TOTAL OF EACH MONTH"536,10:"AV - YEAR-TO-DATE AVERAGE OF EACH CATEGORY"536,10:"T$ - STORED MONTHLY TOTAL AMOUNT FOR EACH CATEGORY"636,9:"CC$ - STORED CATEGORY 3-LETTER CODE. INPUT to the program or press return to view a listing of program variable definitions ";G$i4G$"R"ıo4436,35:"VARIABLE LISTING"4:436,10:" A - SUMMARY OF THE AMOUNT IN EACH CATEGORY. STORED AS T$"!536,10:"A$ - AMOUNT OF EACH Z3t" processed. Therefore this category should contain a regular monthly expenditure."b3~:3" At the beginning of each year a new yearly file should be created. Also the monthly files should be cleared."3:[4"Press to returnh.)" 2L-2V"PRESS RETURN TO CONTINUE";G$32`2j" Each year can be displayed or printed. The display also shows the year-to-date monthly average. The average uses the presence of any entry in category 1 to determine which months have been";ng processing the transactions are totalized by category and stored in a yearly file. (The yearly file is a random file with each category ";2B"being a separate record. In each record (category) is the category name and the total for each montwhich contains a category number and the transaction amount for each transaction. Theprogram assigns the category number based on the 3-letter code entered.)"0.:18" Once a month is complete it can be processed into the yearly file. Durih." /:/" As you enter the transactions, you enter the 3-letter code and the amount. You may enter a whole month's transactions at one time or you may do it at two or more sittings. (The transactions are stored in a sequential ";0$"file b(4);"WRITE";AL$ lN(L)+vA$(L)9I0N(L)FS$(L,I)MIc(4);"CLOSE";AL$n:500z PRINT::I140:" ";:I:" PRINT ";:I140:" ";:I::34,4:"PRINTER SLOT: (DEFAULT=1)";:E ONE":I1300:I:L1>&G$"2"ĺ"SIDE TWO":I1300:I:L2R0G$(13)ĉ:80q::::"SAVE ALBUM:";:AL$?AL$""ĺ(4)"CATALOG":::"PRESS ANY KEY";:A$:380@AL$"Q"ĉ:500D(4);"OPEN";AL$N(4);"DELETE";AL$X(4);"OPEN";AL$(4)"CLOSE";AL$:310, SAVE ALBUM::I140:" ";:I:" SAVE ALBUM ";:I140:" ";:I::34,4:::10:"1] Save Side 1":::10:"2] Save Side 2":::10:"Your Choice:";:G$G$"1"ĺ"SID1300:I:L2!rG$(13)ĉ:80D|:::5:"ALBUM TITLE:";:AL$~AL$""ĺ(4)"CATALOG":::"PRESS ANY KEY";:A$:380AL$"Q"ĉ:300(4)"OPEN ";AL$(4)"READ ";AL$SA$(L)I0SN(L)IS$(L,N(L))I::I140:" ";:I:" LOAD ALBUM ";:I140:" ";:I::34,4|@::::10:"1] Load Side 1"J::10:"2] Load Side 2"T:::10:"Your Choice:";:G$^G$"1"ĺ"SIDE ONE":I1300:I:L1 hG$"2"ĺ"SIDE TWO":I(L) (A$(L))38LL1:L# J "Enter Songs: End With A Return."q ":";S$(L,N(L)):S$(L,N(L))""280 (S$(L,N(L)))40ĺ"Abbreviate Song (MAX=40)"(7)". Reenter.":250 N(L)N(L)1:250 N(L)N(L)1:L ":80 , LOAD SONGSZ64"ĺ"PRINT SONGS":I1300:I:690V G$"5"ĺ"EXIT":I1300:I::(4)" RUN HELLO"^ 80 ::I140:" ";:I:" ENTER DATA ";:I140:" ";:I::34,4 L12::"Enter The Album Name on Tape Side "L::"Name: ";A$gs" n:8:"3] Save Songs"9 x:8:"4] Print Memory"V :8:"5] Exit to Basic"v ::8:"Your Choice:";:G$ G$"1"ĺ"TYPE DATA":I1300:I:205 G$"2"ĺ"LOAD SONGS":I1300:I:300 G$"3"ĺ"SAVE SONGS":I1300:I:490" G$"S$(2,20)< <DS$"----------------------------------------"o FDU$"========================================" P::I140:" ";:I:" MAIN MENU ";:I140:" ";:I: Z::8:"1] Type Song Names" d:8:"2] Load Sonund. From 81 to 86!": "Just follow the directions it gives you and it will print a nice label for Your Case":::"Note: PLE Can be Used for Lower Case if you don`t have a //E";:" (Ctrl-A And Ctrl-S for PLE)": (:"PRESS RETURN TO GO: ";A$ 2c 80} ::"TAPER - THE CASSETTE LABEL MANUFACTURER BY PIPROX "::8:"WITH MODS BY TODD HOLLERND":: :"This Program Comes From The One and Only":" -=\Embassy/=-":" (619-459-6119)"::"The Best Board Aro     占􍠠󍠠x@?@???????@???????~<~q޽{aó  hHiRhi` 38i i6` lݠqᥜq    `ȑ  H 67LҦ `#᥄L# Rqȑrȑ# eiLH8ưC1A$(Q)"":Q$ѸȱȱeLޱ, 8Hȥh lC F PQ ީ  V + 0 Z ҩ%01&%0Q&&8%01&8& 8! D:2:CB:4:"LOADING "TI$(N1)' N4 SA$(120)B XC,A$(1)K ]PC1X bQ1120l lB$(A$(Q),1,1) nB$(255)ī700 vB$(A$(Q),3,1) B$(4)B$(132)ī660 700 B$(A$(Q),34,1) B$(4)ī700TI$(PC)(A$(Q),4,30):PCP"" N11ĺBE$;BE$;:21:CL:470 N1$"N"INĺBE$;BE$:21:CB:100:21:"THIS IS THE LAST PAGE CHOOSE FROM 1-";N:X1300::255:21:CL:470 N1$"N"MM1:550 N1$"S"IN:560 IN &3:CB 0I :N1$"S"N1$"":2:CB:3:4000 2:36::"P";::" ";M 21:"CHOOSE 1-"N".";::"S";::".START OVER.";::"N";::".NEXT PAGE ":" "::"Q";::".QUIT"; "";N1$:N1(N1$):N1NN1$"0"N1(N1)470 N1$"N"510 N1$"S"510 N1$"Q"ĺ(4)"RUN HELLO END 216,0:? ::::"PRINT SHOP IMAGE DISPLAYER":T h:7:0,0:3082l |,64096,128,50,50r  M1:T0:NPC:A$TI$:I1N I9430 5:"< "I"> "TI$(I):450 TM16II1:460 5:"<"I"> "TI$(I):450 TT1:IN56TURN":55 <TI$(120) F5953 n400: MENU = xP1N1G 100k (4);"BLOAD";TI$(P1);",A$6000"t 360 22:10:TI$(P1) 24:" PRESS SPACE TO CONTINUE.";:K$:K$" "Ė1:170 :::" PRINT SHOP IMAGE DISPLAYER ":: 110 $ (175)(176)256558CL868:CB958:BE$(7)g::::" PRINT SHOP IMAGE DISPLAYER "::("PLACE GRAPHICS DISK IN DISK DRIVE"2:"AND PRESS ."7"";R$:::"PRINT SHOP IMAGE DISPLAYER": 8R$""Ģ(20):"PLEASE PRESS RE  00+R$R$K$S$(T,K):K$" - ":KK1:970Y20(R$)2)R$:LINESLINES1:R$"":K$""b970(R$)2)R$:LINESLINES1:R$"":K$""97001(4)"PR#0"::"TOO MANY SONGS ON LABEL.":7ZJ$(124)" "A$(T)" "(124)Q$"+"(DS$,(J$)2)"+":Y20(J$)2Y)Q$:Y)J$:Y)Q$LINESLINES3:K0:R$"":K$""KN(T)ĺ20(R$)2)R$:(R$S$(T,K)K$)4010960 *4T2:920:960/>LINES18900FHG118LINES::GRDS$:20(A$(1))2)A$(1):DU$:20(A$(2))2)A$(2)\DS$:W$"This Tape Property Of:":20(W$)2)W$:20(NA$)2)NA$f:::A$(1)::::A$(2