' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- (  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`.* * NOW CREATE * * AND EXECUTE * * TEMP. FILE * ***************:RS,0:"DO YOU WANT 'REM' STATEMENTS ? Y/N ";AN$j:8:"A DISK TO CREATE A TEMPORY TEXT FILE"::"IS NEEDED. MAKE SURE THAT THERE ? ";:AN$:AN$(3)Ā+AN$"M"ĀMAN(AN$)64:AN1AN125100AN5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5500PAN(AN)AN(AN)Z:AN:AN(AN)0Ğ_AN$:d5100r| *************** * DONE SELECT","DRAWER","SPINNACH","LUNCH","SHOES","WASTEBASKET","EARS","SPARE TIRE"aBRUCE W. CHRISTOPHERESENCE","CLOSET","HOT CHOCOLATE","JELLO","EASTER BONNET","PANTS","HIP POCKET","SLIPPERS","SOUP","BIG BLUE EYES"  "SHAVING CREAM","TENNIS SHOES","BEHALF","HONOR","COIN PURSE","EYE","BEER","WALLET","SPOON ","GRAPEFRUIT"G "BEDROOM","SANDWICH","HAIRNG EAR" "KITCHEN SINK","GRAVE","POT PIE","BRIEFCASE","PIE PAN","TEA CUP","DEFENSE","CUPPED HANDS","GLOVE COMPARTMENT","LAUNDRY" "NOTEBOOK","CROTCH","POP BOTTLE","PIPE","CLEAVAGE","MUSKMELON","LEMONADE","LEFT NOSTRIL","GARDEN","COFFIN"p "PRPIT"k "MOUTH","LAP","REFRIGERATOR","CORNER","MAILBOX","TAMBOURINE","NAME","DREAMS","PAJAMAS","STOMACH" "MOUSTACHE","WAFFLE IRON","UNMADE BED","OWN BEST INTERESTS","HANDKERCHIEF","GREASY UNDIES","CREAM OF WHEAT","MITTENS","FAVORITE CHAIR","FLAPPIRESS","CRY","RECLINE","ROLL DICE","BURN GARBAGE","FEEL HIS OATS","SLICE PICKLES","PEEL ONIONS","SMEAR GREASE" -----OBJECTS----- "JOCKSTRAP","BATHTUB","ASHTRAY","VOLKSWAGEN","OVERCOAT","TEACUP","SOAPDISH","BEST PAIR OF SOCKS","BELLY BUTTON","ARMOKING FOR NEWUSES AND CAPABILITIES. "+:3:24W:"HIT ANY KEY TO CONTINUE ";_:A$e:k:q>:>SKYWRITER >:>(INSTRUCTIONS)>:>:>PAUL STADFELD0THEY HAVE BEEN STRIPPED OF ALL FRILLS BUT ARE EXTREMELY COMPLEX DESPITE THE FACT THAT THEY ARE EXECUTED BY A SINGLE LINE OF BASIC."4%4"THE SKYWRITER PROGRAMS ARE NOT INTENDED AS A FINAL PRODUCT. I INTEND TO KEEP EXPERIMENTING WITH THEM; LO15000l4"FINALLY, IT IS SIMPLE BUT POWERFUL. THE MAIN DRAWING ROUTINE CAN BE COMPRESSED INTO A SINGLE LINE. THE TWO SINGLE LINE VERSIONS OF SKYWRITER (ONELINER 1 & 2) ";v4"ARE VARIATIONS OF THE 'ARTISTIC PATTERN'CREATED UNDER THE SKYWRITER LOGO. AYS WITH THE 'ROT' PARAMETER";|N4". READ THE REMARKS AND RUN SKYWRITER(SNOOPY) TO SEE THIS EFFECT.":X4"FOURTH THE ANIMATION OF THE AIRPLANE IS AUTOMATIC. THE DRAW FUNCTION, NOT THE PROGRAM, MOVES THE AIRPLANE."b4E HELLO ROUTINE)"54`:4"SECOND THE DRAW FUNCTIONS WILL WRAP AROUND THE SCREEN."f?4%D4"THIRD THE USE OF VECTORS MAKES IT EASY TO RELOCATE A PICTURE ON THE SCREEN. PICTURES CAN BE TURNED UPSIDEDOWN AND SIDEWSKYWRITER HAS USESNOT AVAILABLE TO THE HPLOT FUNCTION."B&41500004"FIRST IT CAN XDRAW. IN ADDITION TO IT'S USE TO ERASE, XDRAW'S ABILITY TO 'TOGGLE' THE DOTS HAS PARITY GENERATING USES. (THIS IS SHOWN AS PATTERN IN THE INCLUDED TO SHOW"4"WHAT CAN BE DONE UNDER PROGRAM CONTROL. THE SKYWRITER LOGO USES A DATA TABLE ANDTHE PATTERN IS CREATED MATHEMATICALLY.":74"FOR PLOTTING POINTS AND DRAWING LINES, SKYWRITER IS NO BETTER THAN HPLOT. IN SOME USES, WORSE. BUT GRAM TO KEEP TRACK OF IT WHEN IT MOVES. THE THING TO DO IS HAVE THE PROGRAM NOT CARE. THE FREE FORM DRAWING"4"LETS THE USER KEEP TRACK OF THE POSITIONBY PROVIDING A CURSOR IN THE FORM OF THEAIRPLANE. THE TWO ROUTINES AT THE START OF THE PROGRAM WER SCREEN CAN BE PLOTTED."$3150003"THE BIGGEST RESTRICTION IS NOT KNOWING WHERE THE SKYWRITER IS ON THE SCREEN. IT CAN BE MOVED TO ANY POINT BY USING A 'DRAW 1 AT X,Y'; BUT WITHOUT KNOWING"o3"WHERE THE POINTER IS, IT IS DIFFICULT FOR A PROBOARD *!(u*******************1(CH36:CV37(******************* * PEEK OR POKE CH * * TO READ OR SET * * CUR. HORZ. POS. *(* *$)* PEEK OR POKE CV * * TO READ OR SET * * CUR. VERT * F/CURSOR TO END * * OF LINE. * *******************i'nRK16384:RS16368'r******************* * PEEK RK TO READ * * KEYBOARD. *'s* *(t* POKE RS,0 TO * * RESET KEY * T-TOP OF SCREEN*J&, * B-BOT. SCREEN * ******************^&YCE958:CL868&Z******************* * CALL CE TO CLEAR* * F/CURSOR TO END * * OF SCREEN. *&[* *Q'\* CALL CL TO CLEAR* R$D$"READ" %U$D$"UNLOCK"2%W$D$"WRITE"C%L$D$"LOCK"]%'LM32:SW33:T34:B35%( ****************** * POKE LM,SW,T,B * * WITH VALUE TO * * SET FOLLOWING *%) * LM-LEFT MARGIN *%* * SW-SCREEN WIDTH*&+D$"PR#0"$Xu:325d$` ***************** * SETUP ROUTINE * *****************l$:x$D$(4)$A$D$"APPEND"$B$D$"BLOAD"$BS$D$"BSAVE"$C$D$"CLOSE"$DE$D$"DELETE"$O$D$"OPEN"$P$D$"POSITION" %LINES 30000-30025)"A# ";A7$:5000 NER4ĺ"DISK IS WRITE PROTECTED."::RS,0:"CHANGE DISK & TRY AGAIN ? Y/N ";A7$:A7$"Y"20000 NER4380!NER9ĺ:"DISK IS FULL"::"NOW DELETEING FILES NOT COMPLETE."::;"DELETE REM"!aND$"NOMONI,C,O"-fN:5000kN ****************** * DISK ERROR * * HANDLE ROUTINE * ******************pNER(222):216,0:768qNX111X111sNXSX1tN:uNC$;FI$(X1):X112:I zNER10ĺ"F*ND$"MONI,C,O",N!/N33,30-2N20080:4NX1111V>NO$;FI$(X1):W$;FI$(X1)HNX16100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100JNC$;FI$(X1):L$;FI$(X1)MNRNO$;"DELETE REM":W$;"DELETE REM"WN7200 \NC$;"DELETE REM":L$0,6800,6900,7000,7100D)'"'ESC'=RET. TO INST. / ANY KEY=NEXT PAGE"h.'RS,0:HA:SE(RK):SE27X111nB'wG'325 N *************** * CREATE TEXT * * FILES FOR * * MANUAL USE * ***************21,60329"1%"DEL60351,60356":"60382":"60387"7*' *************** * PRINT * * ASSIGNMENTS * * TO SCREEN * ***************'X1111::FI$(X1)$'X16100,6200,6300,6400,6500,6600,6700199,60204:60249,60252:2d60270,60277:E60299,60302:X,60320,60329:k60350,60356:60380,60382:60390:X60385,60390:60400,60405:  "DEL60200,60204":"DEL60250,60252":"DEL60274,60277":"DEL60300,60302":"DEL603111:AN(X1)05600SX16100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100YlAN$"N"5700v7200D"NOMONI,C,O"E"DELETE TEMP EXEC"IC$;"TEMP EXEC"KND$;"EXEC TEMP EXEC"X60100:860101,60113: 6IS A"::"DISK IN THE DRIVE AND THAT IT HAS SOME"::"SPACE AVAILABLE..":RS,0::"THEN HIT ";A9$O$;"TEMP EXEC":W$;"TEMP EXEC""NEW""MONI,C,O""1 GOSUB 60000""60000 REM SET UP ROUTINE":"60499RETURN"33,30X10);"DELETING CURRENT DATA":P1500:P2:J035A::E(1,J)0H:JW:E(1,43)0b:10030|> OPTION TO SAVE DATA>::10:"ARE YOU SURE YOU WANT TO ";::"SAVE";::" THE DATA?";:B$:B$"Y"ī10030>::10:10)"PLEASE STAND BY" >D"$";((NUM100.5)(1));Q7NUME(2,43)E(2,0):30:"$";((NUM100.5)(1))`:B$:10030: DELETE CURRENT MONTH DATA::(10):7)"ARE YOU SURE YOU WANT TO":(7)::"DELETE";::" CURRENT MONTH DATA?";:B$:B$"Y"ī10030&::(10):134);"Y.T.D"K6::"SALES";:NUME(1,0):14:"$";((NUM100.5)(1));z6NUME(2,0):30:"$";((100NUM.5)(1))7:"EXPENSES";:NUME(1,43):15:((NUM100.5)); 7NUME(2,43):31:((NUM100.5))7:"NET";:14:NUME(1,43)E(1,0):1,AC)E(1,AC)D&r3E(2,AC)E(2,AC)D8|3AC35ī13210O3E(1,43)E(1,43)Df3E(2,43)E(2,43)Dl3w3130206 DISPLAY P&L SUMMARY6::(4):CLIENT$::FYE$6:"PROFIT AND LOSS SUMMARY:"6:17)"CURRENT":617);" MONTH"; 613020+?3AC240ĪE(1,48)E(1,48)D:13020Q@3AC150ĪE(2,46)E(2,46)D:13020wA3AC250ĪE(2,48)E(2,48)D:13020B3AC160ĪE(1,45)E(1,45)D:13020C3AC500ĪE(1,0)E(1,0)D:E(2,0)E(2,0)D:13020S3AC36ī13150T3ACAC15^3h3E(AC110ĪE(2,39)E(2,39)D:13020G93AC210ĪE(2,38)E(2,38)D:13020m:3AC120ĪE(2,40)E(2,40)D:13020;3AC220ĪE(2,47)E(2,47)D:13020<3AC130ĪE(1,46)E(1,46)D:13020=3AC230ĪE(2,42)E(2,42)D:13020>3AC140ĪE(2,41)E(2,41)D:40AC250AC500ī13040)2AC36ī13040:21000:13020n223:"ACCOUNT: ";AC;:868:(18):"AMOUNT ";:D323:"ACCOUNT: ";AC;:868:(18):"AMOUNT ";:((100D.5))63AC100ĪE(2,45)E(2,45)D:1302073AC200ĪE(2,36)E(2,36)D:13020!83TER FUNCTIONS."1S "READ & SET KBD. LOCATIONS."D0(FI$(6)"CURSOR POSITION LOCATIONS."j0)FI$(7)"SCREEN SELECT LOCATIONS."0*FI$(8)"SPEAKER & PADDLE LOCATIONS."0+FI$(9)"ERROR HANDLE RTN./CALL768."0,FI$(10)"ERROR HANDLE RTN./CALL945."1-FI$(11)"APPLESOFT POINAGE O/DL(X)(123)(124)256:DATA LINE BEING READ\/"FI$(11)/#FI$(1)"TEXT & HOME COMMANDS."/$FI$(2)"DOS COMMAND STRINGS."/%FI$(3)"WINDOW PARAMETER LOCATIONS."/&FI$(4)"CLEAR SCREEN CALL LOCATIONS."0'FI$(5)ART OF VARIABLE SPACE }.AS(X)(107)(108)256: START OF ARRAY SPACE .EV(X)(109)(110)256: END OF VARIABLES IN USE /SS(X)(111)(112)256: START OF STRING STORA:CY,DA::-******************* * THIS WILL POKE * * ERROR HDL. RTN * * IN HIGH PAGE 3 * * CALL 945 * *******************- 104,168,104,166,223,154,72,152,72,96+.VS(X)(105)(106)256: ST *!,*******************1,CY768777D,DA:CY,DA::,******************* * THIS WILL POKE * * ERROR HANDLE RTN* * IN LOW PAGE 3 * * CALL 768 * *******************,CY945954 -D * POKE OR PEEK TS * * TO TOG. SPEAKER *+* * * POKE TC TO TOG. * * CASSETTE OUTPUT *+* * * PEEK B0,B1,B2 * * TO READ STATUS *+* OF PDL. BUTTONS *,* 0,1 OR 2 * P1-PAGE ONE *-** P2-PAGE TWO *F** LR-LOW RES *_** HR-HI RES *x** FS-FULL SCREEN *** MS-MIXED SCREEN * ********************TS16336:TC16352:B016287:B116286:B2162854+******************* . POS. * *******************x)TD16303:GD16304:P116300:P216299:LR16298:HR16297:FS16302:MS16301)******************* * POKE TO SELECT * * THE FOLLOWING.. *)* TD-TEXD DISPLAY *)* GD-GRAFIC DISPL.**9,228:910,208:911,144e-a912,233:913,162:914,1:915,189:916,239:917,2:918,32:919,95:920,19-a921,232:922,228:923,208:924,144:925,245:926,189:927,239:928,2:929,73-a930,48:931,168:932,169:933,0:934,76:935,235:936,26.aRAM00,240:881,31:882,192:883,0:884,208w,a885,205:886,232:887,24:888,144:889,16:890,189:891,239:892,2:893,201,a894,36:895,240:896,16:897,201:898,46:899,176:900,5:901,169:902,32-a903,157:904,239:905,2:906,202:907,240:908,4:90:852,22:853,202:854,208:855,240:856,104:857,24+a858,144:859,53:860,189:861,239:862,2:863,201:864,32:865,240:866,8+a867,201:868,58:869,240:870,238:871,201:872,48:873,144:874,234:875,104&,a876,157:877,239:878,2:879,202:8848:823,160:824,0:825,185:826,0:827,1:828,240:829,3:830,200*a831,208:832,248:833,166:834,208:835,136:836,185:837,0:838,1:839,72*a840,104:841,72:842,201:843,45:844,208:845,14:846,189:847,239:848,24+a849,201:850,45:851,144a795,133:796,132:797,136:798,177:799,155:800,133:801,131:802,136:803,177)a804,155:805,201:806,16:807,144:808,2:809,169:810,16:811,133:812,208)a813,168:814,136:815,177:816,131:817,153:818,240:819,2:820,136:821,16B*a822,2USING FORMATZ(a768,165:769,82:770,72:771,32:772,43:773,37:774,32:775,222:776,27(a777,104:778,133:779,82:780,169:781,69:782,162:783,196:784,133:785,129(a786,134:787,130:788,32:789,76:790,24:791,160:792,4:793,177:794,155R)NINGS"1'6G"160 OTHER ASSETS";:21:"500 SALES"'@G18::"ENTER '1' TO RE-REVIEW EXPENSE ACCOUNTS OR TOUCH SPACE BAR TO RETURN TO MENU "::::B$'JGB$"1"ī18000'TG10030'8J'BJD$;"RUN PRINT G/L"'LJ (a SUBROUTINE TO ESTABLISH PRINT NOTES PAYABLE"B&G"110 ACCTS RECEIV.";:21:"210 ACCTS PAYABLE"w&G"120 ACCT REC-OTHER";:21:"220 ACCRUED TAXES"&G"130 INVENTORY";:21:"230 ACCRUED WAGES"&"G"140 EQUIPMENT";:21:"240 CAPITAL STOCK"',G"150 DEPOSITS";:21:"250 RET. EAR9: SET WIDTH%F%F(%FW2135:%FW;" ";A$(W)A%FW%F20::"TOUCH SPACE BAR ":"FOR BALANCE SHEET":"ACCOUNTS ":%F:B$%F::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":&F"100 CASH";:21:"200 ĺ::(7):"ACCOUNTS ARE NOT IN BALANCE"1$NFB$<$OF10030$PF::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":$ZF34,2: FREEZE TOP$dFW120$nFW;" ";$xFW10ĺ" ";$FA$(W)$FW$F32,20: SET LEFT EDGE%F33,1S";'#NCNUME(2,43)(E(2,0)): P&L3#SCPLNUMR#XC30:((100NUM.5)(1))#lCT2E(2,36)E(2,38)E(2,47)E(2,42)E(1,48)E(2,48)PL#qCT2T2(1)#vC:"TOTAL ":29:"$";((100T2.5))#{CT1(100T1.5)100:T2(100T2.5)100)$CT1T2E(2,47):((100NUM.5)(1))`"&C3);"ACCRUED WAGES";:30:NUME(2,42):((100NUM.5)(1))"0C3);"CAPITAL STOCK";:30:NUME(1,48):((100NUM.5)(1))":C3);"RETAINED EARNINGS";:30:NUME(2,48):((100NUM.5)(1))#DC3)"PROFIT AND LOS.5))!B20:B$#!B:::CLIENT$-!BFYE$O!B:"LIABILITIES AND CAPITAL:"!C:3);"NOTES PAYABLE";:29:NUME(2,36):"$";((100NUM.5)(1))!C3);"ACCOUNTS PAYABLE";:30:NUME(2,38):((100NUM.5)(1))"C3);"ACCRUED TAXES";:30:NUM.5)); B3)"DEPOSITS";:30:NUME(2,46):((100NUM.5))v B3)"OTHER ASSETS";:30:NUME(1,45):((100NUM.5)) B:"TOTAL ASSETS";:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,41)E(2,46)E(1,45) BT1NUM: TOTAL ASSETS!B29:"$";((100NUME(2,45):"$";((100NUM.5))VB3)"ACCTS REC.";:30:NUME(2,39):((100NUM.5))B3)"ACCTS REC-OTHER";:30:NUME(2,40):((100NUM.5))B3)"INVENTORY";:30:NUME(1,46):((100NUM.5)) B3)"EQUIPMENT";:30:NUME(2,41):((100NUM$;"OPEN";F$>D$;"DELETE";F$1>D$;"OPEN";F$D>D$;"WRITE";F$O>I12\>:J049j>::E(I,J)r>:Jy>I>D$;"CLOSE";F$>10030hB PRINT BALANCE SHEET DATArB:::CLIENT$|BFYE$B:"ASSETS:":B3)"CASH";:29:NUM28,2:929,73J$a930,48:931,168:932,169:933,0:934,76:935,235:936,26U$aRAM0$a(57344)32RAM1: TEST FOR RAM APPLESOFT$aRAMı: ABOVE POKES ARE FOR RAM APPLESOFT. BELOW IS ADJUSTMENT FOR LANGUAGE CARD OR ROM APPLESOFT%a772,52:773,2176:900,5:901,169:902,32l#a903,157:904,239:905,2:906,202:907,240:908,4:909,228:910,208:911,144#a912,233:913,162:914,1:915,189:916,239:917,2:918,32:919,95:920,19 $a921,232:922,228:923,208:924,144:925,245:926,189:927,239:9871,201:872,48:873,144:874,234:875,104{"a876,157:877,239:878,2:879,202:880,240:881,31:882,192:883,0:884,208"a885,205:886,232:887,24:888,144:889,16:890,189:891,239:892,2:893,201#a894,36:895,240:896,16:897,201:898,46:899,2,201:843,45:844,208:845,14:846,189:847,239:848,2!a849,201:850,45:851,144:852,22:853,202:854,208:855,240:856,104:857,24!a858,144:859,53:860,189:861,239:862,2:863,201:864,32:865,240:866,8+"a867,201:868,58:869,240:870,238:3,168:814,136:815,177:816,131:817,153:818,240:819,2:820,136:821,16 a822,248:823,160:824,0:825,185:826,0:827,1:828,240:829,3:830,200 a831,208:832,248:833,166:834,208:835,136:836,185:837,0:838,1:839,727!a840,104:841,72:8429Ra786,134:787,130:788,32:789,76:790,24:791,160:792,4:793,177:794,155a795,133:796,132:797,136:798,177:799,155:800,133:801,131:802,136:803,177a804,155:805,201:806,16:807,144:808,2:809,169:810,16:811,133:812,208J a81((100PL.5)(1))$*I122::**0:aa SUBROUTINE TO ESTABLISH PRINT USING FORMATa768,165:769,82:770,72:771,32:772,43:773,37:774,32:775,222:776,27a777,104:778,133:779,82:780,169:781,69:782,162:783,196:784,133:785,1(FILLER$,NEEDED);:NUME(1,26):((100NUM.5));d")(FILLER$,25);:NUME(2,26):((100NUM.5))y,):"NET PROFIT";6)PLE(1,43)E(1,0)@)T20:1000:(FILLER$,NEEDED);:"$";((100PL.5)(1));J)PLE(2,43)E(2,0)T)(FILLER$,24);:"$";FORE TAX("PROFIT BEFORE"h("FEDERAL TAX";:T21:1000:(FILLER$,NEEDED);:((100CP.5)(1));|((FILLER$,25);(PLE(2,43)E(2,26)E(2,0))((100PL.5)(1))):"PROVISION FOR")"FEDERAL TAX";1)NUME(1,27):T21:1000:(100E(2,I).5))(I(6(TEE(1,43)E(1,26)("TOTAL EXPENSE";:T21:1000:(FILLER$,NEEDED);:;((100TE.5));(TEE(2,43)E(2,26)((FILLER$,25);:;((100TE.5))((CPE(1,43)E(1,0)E(1,26): CURRENT PERIOD PROFIT BE20:1000:(FILLER$,NEEDED);:"$";((100E(1,0).5)(1));i((FILLER$,24);:"$";((100E(2,0).5))o({(I135(:E(2,I)0ī10430(I26ī10430(::A$(I);:T21:1000:(FILLER$,NEEDED);:;((100E(1,I).5));((FILLER$,25);:;(:1000:(FILLER$,NEEDED);:NUME(2,36)E(2,38)E(2,47)E(1,48)E(2,48)E(2,42)E(2,0)E(2,43)}F("$";((100NUM.5)(1))P( TO PRINT P&LZ(:(FILLER$,22);:"INCOME STATEMENT"d(n((FILLER$,22);MO$;:(FILLER$,29);"YTD"<x("SALES";:T:1000:(FILLER$,NEEDED);:NUME(2,0)E(2,43):((100NUM.5)(1))(("TOTAL ASSETS";:T20:1000:(FILLER$,NEEDED);:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,46)E(1,45)E(2,41)2("$";((100NUM.5));:(FILLER$,4);^<("TOTAL LIAB & CAP";:T15((100NUM.5));:(FILLER$,4);}("RETAINED EARNINGS";:T16:1000:(FILLER$,NEEDED);:NUME(2,48):((100NUM.5)(1)) ("OTHER ASSETS";:T21:1000:(FILLER$,NEEDED);:NUME(1,45):((100NUM.5));:(FILLER$,4);E("PROFIT AND LOSS ";:T16936,226|/a: SEE OCTOBER, 1980 MICRO MAGAZINE, PAGE 14, ARTICLE BY GARY A. MORRIS FOR DETAILS ON HIS PRINT USING ROUTINE. 0.a(57344)32RAM1: TEST FOR RAM APPLESOFT.aRAMı: ABOVE POKES ARE FOR RAM APPLESOFT. BELOW IS ADJUSTMENT FOR LANGUAGE CARD OR ROM APPLESOFT.a772,52:773,237:774,32:775,231:776,227.a789,83:790,224.a919,92:920,219/a935,242:37:774,32:775,231:776,2271%a789,83:790,224F%a919,92:920,219\%a935,242:936,226%a: SEE OCTOBER, 1980 MICRO MAGAZINE, PAGE 14, ARTICLE BY GARY A. MORRIS FOR DETAILS ON HIS PRINT USING ROUTINE.Tz!#    ǯ̠ ҠҠӠҠҠ ԠŠҠ+Ǡ ΠҠ)Ԡǯ̠Ϡ ϭڠǮԠˠ٠ҠҠөҠҠ#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     !ŠP8(;@rra@[roM6d6?eS(ҠΠ)&@|`@9()$`@9()$`@9()$_rM6a()Q M6Q;M6o @p(Š)\a(Πˠ)Q}]ԠФĠΠǠĠԮ)^ca(Ԯ)+hca(ΠΠԠ͠)0ica(ˠ٧Ƞ̠)+jca(ԠӠƠ)0kca(ĠϠŠӠƠ)&lca(Ӡ٠Ҡٮ)/@p@\"o @p@\i,o a(ŠӠƠӠˠŠ)cd2e?P a(̠ŠЮ)d2e6o@p(Ԡ٠)\ ;d6?e @M0JM6a(ҠҠΠ٠Ү)Tca(q6a(ɬì)0@p(ΠӠŠӠ)!Ų@p(Ġ)(@p(Ӡ)<@p(̠) M6o@p@\o@pŲ@\oY=KN@"&rCŲ@"&rC@"rC@"rC@"&r ]Ϡ͠Ҡ٠ӮԠŠǠ_ ]ӠҠԠˮ     ȠӠɭӠٍ̮ŠǍΠōǠĠ̠ŠӠ٠ŠҠҠӮˠĠөٍڠǮԍԍԠŠƠ͠ӠĠӮĠ٠ˠ٧ͮ΍Ҡө̠čΠĠӠҠҠӮٍҠҠ̠芊͠ȠӠɭӠǮٍҠҠ̠芊͠͠ϠήٍԠǯ̍Ġ΍ӠԠΠĠ٠ŠƠΠҧӠ͠ӠĠ٠Πҧٍҍ̠čɭӠǠŮӠŮҠΠנɭӠӮٍҠĠĠԠΠҠҮٍǯ̠ԍĠ΍ŠҠΠҧ͍΍ΠҍĠ΍̠ҠҠ̠ӍٍӍŠҍӠ͠ӠĠӠ͠Ҡ٠ĠԠРӮȠӠӠӨӠàŠΠŮٍǍĠ΍ӠǠƠàӍٍҠҍ ԍ͠Ǡ̠ĠϠԠӭԠŠҠŠűˠٍ͠ҠӠԠΠƠŠӠΠˮϠӠΠƠ͠٠ΠҮٍԠŠҍ͠ҍǠĠȠӠӠϠ     D$"UNLOCK"W$D$"WRITE"/L$D$"LOCK"CYCE958:CL868SCH36:CV37cCY768777vDA:CY,DA:: 104,168,104,166,223,154,72,152,72,96SD$;"EXEC";DE$(A,0)DBEEN RENDERED UNREADABLE.":;!N:"UNUSAL ERROR- PANIC":P` SET UP ROUTINEX:dD$(4)wA$D$"APPEND"B$D$"BLOAD"BS$D$"BSAVE"C$D$"CLOSE"DE$D$"DELETE"O$D$"OPEN"P$D$"POSITION"R$D$"READ" U$ QT38:32253 LE0ĺ" ";(DE$(X,5),LE):LCLC1A :LCLC1G [ D$;"PR#0":200 (12);(14);"DISK VOL#";VN$;(15):LC2:: N216,0:768::"PROGRAM TERMINATED"::(222)5(22)6ĺ"TEXT FILE 'Z PROG.LIST' IS EITHER"::"MISSING OR HAS LENGTH- ";DE$(X,3)P DE$(X,2)""ĺ" BINARY AD. & LENGTH- ";DE$(X,2):LCLC1n LE(DE$(X,5)):PO1:QT38} LE03240 (DE$(X,5),POQT1,1)" "LE39ĺ" ";(DE$(X,5),PO,QT):LELEQT:POPOQT:LCLC1:3235 QTQT1:3225 LE383238 N PRINTER AND SET 'TOF'"::16368,0:"AND THEN HIT ";A$Q] D$;"PR#";PR[b 3500tl X0IQ:LC55İ3500v DE$(X,0)w LCLC1{ " BY ";(DE$(X,4),35)| LCLC1 " FILE TYPE- ";:DE$(X,6)"N"ĺ" "; LCLC1 DE$(X,1);" * HARDCOPY OUTPUT * ******************** :"PARALLEL PRINTER INTERFACE ASSUMED. SEE LINES 3000 TO 3500 FOR PRINTER CMDS." :"PRINTER SLOT # -OR TO RETURN TO SELECTION LIST ? ";A$:A$"S"200 PR(A$)@X :"TURN OT"10003A$"E"DE$(A,1)"T"DE$(A,6)"Y"63000DA$"P"3000M600******************** * LOAD PROGRAM SEL.* ********************DE$(A,1)"B"ĺD$;"BLOAD";DE$(A,0):D$;"LOAD";DE$(A,0)8 ********************NCE TO NEXT DESCRIPTION RETURN TO SELECTION LIST

PRINT HARDCOPY OF ENTIRE FILE"::10:"WHICH ? ";:A$A$(3)ĀA$"A"AA1:520A$"S"200A$"R"DE$(A,6)"Y"DE$(A,1)"T"400A$"L"DE$(A,1)"N:DE$(A,6)"N"Ğ:"PROGRAM NOT INTEDED TO BE RUN"SSAIQĺ:16:"LAST ENTRY"YTeX17:CE{bDE$(A,1)"T"650v" LOAD THIS PROGRAM RUN THIS PROGRAM":900DE$(A,6)"Y"ĺ" EXEC THIS FILE":900" ADVAARY A & L- ";DE$(A,2):570 58 :"LENGTH-";DE$(A,3)X ;:LE(DE$(A,5)):PO1:QT39f <LE0590 =(DE$(A,5),POQT1,1)" "LE41ĺ(DE$(A,5),PO,QT):LELEQT:POPOQT:575 >QTQT1:573 ?LE41577 @QT39:573 ALE0ĺ(DE$(A,5),LE)5,1)"T"ĺD$;"EXEC";DE$(A,0):4 D$;"RUN";DE$(A,0) ********************* *PRINT DESC. ROUTINE* ********************* A0A0 AIQAIQ :DE$(A,0): &"BY ";DE$(A,4) 0:"FILE TYPE-";DE$(A,1);:DE$(A,1)"B"Ė15:"BIAN6(A$,1)"D"A((A$,2)):A1AX500j @(A$,1)":"(A$,1)"/"A(A$):A0AXDE$(A,6)"Y"330s E280| JXIQ ********************* * RUN PROG. SELECTED* ********************* DE$(A,1)"B"ĺD$;"BRUN";DE$(A,0) DE$(AN INPUT * ********************** 18:CE:"ENTER 'D' FOLLOWED BY # FOR DESCRIPTION?OR 'C' FOR NEXT PAGE? OR # OF PROGRAM TO RUN? OR 'R' TO RESTART LIST? ";:"";A$ "A$"C"XIQė:250 ,A$"R"XIQ:210) ":216,0[ ********************* * SELECTION LIST * ********************* :"NOTE- * NOT INTENDED TO BE RUN." X0IQ:X;:DE$(X,6)"N"Ė4:"*"; 6:DE$(X,0) (CV)16275 ' ********************* * SELECTIO 600002DE$(80,8)2d10:16:"WORKING"s********************* * READ FILE * *********************x20000O$;"Z PROG.LIST,V0"R$;"Z PROG.LIST":IQ,VN$X0IQ:X108:DE$(X,X1):: C$;"Z PROG.LIST     12:2:#2SKYWRITER)2:/2:B2PAUL STADFELDJRAW"f19)"BUTTON 1: ERASE"?h19)": CLEAR SCREEN"bj19)" : EXIT PROGRAM":t1"BUTTONS 0 & 1 MAY BE USED SIMULTANEOUSLY"1"RUN SKYWRITER (INSTRUCTIONS) FOR MORE INFORMATION. "1"HIT RETURN TO START DRAWING ";1"";A$THAT USES VECTORS TO DO THE PLOTTING. THE SKYWRITER ITSELFIS A HIRES AIRPLANE THAT DRAWS BY MAKINGA TRAIL OF SMOKE AS IT FLIES ACROSS THE SCREEN. THE AIRPLANE IS CONTROLLED BY":`19)"PADDLE 0: DIRECTION"b19)"PADDLE 1: SPEED"d19)"BUTTON 0: DN63N0 D/(49152)12712550-N/49168,0<v/N012350E/T43M/16a 0J1T:2:80:l>011750rp0:0PART 3: INSTRUCTIONS0:1:8111)"S K Y W R I T E R":B119)"BY":L113)"PAUL STADFELD":V1"IS A DRAWING ROUTINE ,32,1,32,-30,32+0+:8$,PART 2: WAIT FOR INPUT>V,:h,23:"PRESS ANY KEY FOR INSTRUCTIONS"n,:,DO AN ARTISIC PATTERN-WHILE WAITING FORP-USER TO RESPOND-:-N0-J6411.JNJ.3|.80..NN2/64,3,32,1,24,1,16,2,8,2,64,1,16,1,24,1,16,1,8,4,16,1,48,3,32,1,24,3,16,1,8,1,64,1,8,1,64,3,32,1,24,2,16,1,8,1,64+1,16,4,64,1,16,8,64,13,32,1,24,3,16,1,8,1,16,2,8,1,64,2,48,1,40,2,32,1,24,4,16,3,8,1,64,4,16,1,48,3,32,1,24,2,16,2,8,-8,64,-13,48,13,48,-32,-8,16z*1,8,1,64,1,8,3,64,1,8,3,64,1,8,4,64,-1,48,-11,32,2,16,1,24,1,32,1,40,3,48,-1,32,-4,16,2,16,4,8,1,16,3,32,1,24*+2,16,2,8,2,64,4,32,1,40,1,32,1,40,3,32,5,40,1,48,1,56,1,64,4,8,1,16,4,8,1,16,2,8,1,16,5,8,-2,48,-3,32p\+1,32,1,24,2,16,3,8,1,6':'40 32 24':"<(D1n(D011400;(DD2G(P(D0)R)D(D)Y6)R`h)Rk)J1Dv)(2P)~)800*b*10300*:*1,16,2,8,1,16,4,8,1,64,4,8,3,64,1,56,1,48,2,40,3,32,3,24,1,32,1,24,2,32,1,40,1,32,1,40,3,48,2,56,-2,3NE B': t'PART 1: LOGO ':3 ':3:50,50:19 ':T 'DATA ENTERED AS (D,R)k ' D=LENGTH OF LINE| ' R=ROTATION 'IF D<0 THEN MOVE 'IF D>0 THEN PLOT 'IF D=0 THEN END ': 'ROTATION DIAGRAM ': '56 64 8 ':'48 * 1TTLE :: ^((0)2) _:- hSP(1)23 :; 80A :[ (49249)128Ĕ2:620a :h 3n : l(49250)127Ĕ1 m: vK(49152):49168,0 K15512800 K141Č62450 : 350 : 'SP0 ': '3 PART HELLO ROUTIANCE THIS POINTER ONE DOT.: THE SHAPES ARE MOVEDT WITHOUT ANY OVERHEADk FROM THE PROGRAM.q -: .THE AIRPLANE (SHAPE #1) 0WAS DEFINED SO THAT IT 2RESTORES THE POINTER 4TO IT'S ORIGINAL VALUE. 6: 8PDL(1) IS THE THRO SHAPES, WHICH' STEERS THE AIRPLANE- :H NOTE THAT THERE IS NOc COORDINATE ASSOCIATED WITH THE DRAW FUNCTIONS. THE SHAPES ARE DRAWN AT THE COORDINATE LEFT IN POINTER FROM THE LAST DRAW FUNCTION. SHAPES 2 & 3 ADV G100 M:' NAIRPLANE SUBROUTINE- O:4 P1E RI0SP10:L T1R VX a:n bINITIALIZE HIRESt c: d:3:0,0279,0279,1910,1910,0 n49234,0 x0:139,79 1 : PDL(0) CONTROLS THE ROTATION PARAMETER OF THEC  :$POKE SHAPE TABLE = SHAPE #1: AIRPLANE[ SHAPE #2: MOVE ONE DOT y SHAPE #3: PLOT ONE DOT  : J768789:N:J,N: 3,0,8,0,18,0,20,0,36,100,145,63,59,151,9,13,221,0,128,0,4,0 232,0:233,3<:F10000     E SET TO 1 SO THE SINGLE DOTS ARE PLOTTED AS DOTS AND NOT LINES (LARGER SCALES WILL WORK).AT A SCALE OF 1, ONLY EIGHT VALUES FOR"3"THE 'ROT' PARAMETER ARE VALID. THIS RESTRICTS THE ANGLES TO MULTIPLES OF 45 DEGREES. STILL, EVERY DOT ON THE 3"THE ANGLE IS THE 'ROT' PARAMETER OF THE DRAW FUNCTION. ROTATING A SINGLE DOT STILL PRODUCES A DOT. WHAT CHANGES IS"3"THE POINTER. ANY OF THE EIGHT ADJACENT DOTS CAN BE SELECTED BY USING THE 'ROT' PARAMETER.":3"THE 'SCALE' PARAMETER MUST B BEENABLE TO LOCATE WHERE THE ACTUAL POINTER IS, BUT THE END POINT IS ALWAYS KNOWN RELATIVE TO THE STARTING POINT."^3150003"WHEN PUT INTO A LOOP, ONE DOT SHAPES WILL DRAW A LINE. THIS IS HOW THE SCALARPORTION OF THE VECTOR IS PRODUCED.":yNGLE DOT (AN UP VECTOR). THE FIRST DRAW PUTS A DOT AT 5,6. AFTER DOING THE PLOT, THE"J3"POINTER CHANGES TO 5,5; SO THAT WILL BE WHERE THE SECOND DRAW PLACES IT'S DOT.":uT3"ALL OF THIS POINTER SHUFFLING IS DONE INTERNALLY BY APPLESOFT. I HAVE NOTING'. THE"63"MOVING IS MERELY CHANGING A POINTER TO INDICATE WHERE THE NEXT VECTOR WILL START. THIS POINTER WAS INITIALIZED BY THE 'AT 5,6' PORTION OF THE DRAW. THE"V@3"POINTER CHANGES AFTER THE DOT HAS BEEN PLOTTED. SUPPOSE SHAPE #1 WAS A SISAME POINT ITSTARTED ON, THE SECOND SHAPE WILL BE DISPLACED WITH RESPECT TO THE FIRST."e215000 ,3"A SHAPE DOES NOT END ON THE LAST POINT PLOTTED. CHAPTER 9 OF THE APPLESOFT MANUAL DESCRIBES THE ACTION OF SHAPE VECTORS AS 'MOVING AND PLOTTPOINT OF THE SECOND HPLOT WAS SIMPLY THE FIRST'S COORDINATE (1,2).BUT THE DRAW FUNCTION WORKS DIFFERENTLY.THE SECOND DRAW DOES NOT START AT (5,6),IT STARTS AT WHATEVER POINT ON THE"Z2"SCREEN SHAPE #1 ENDED. UNLESS THE SHAPE WAS DESIGNED TO END ON THE 2"THE FIRST TIME AN HPLOT OR DRAW FUNCTIONIS USED, A COORDINATE MUST BE SPECIFIED.APPLESOFT STORES THIS VALUE SO THAT IT MAY BE USED AGAIN AS A STARTING POINT.":28)"HPLOT 1,2 : HPLOT TO 3,4":28)"DRAW 1 AT 5,6 : DRAW 1":2"THE STARTING HOWEVER, A TRIVIAL SHAPE (ONE DOT) CAN BE USED AS A BUILDING BLOCK TO MAKE VECTOR PLOTTING AS EASY AS HPLOTTING.":x2"SKYWRITER NOT ONLY SHOWS HOW BUT WHY VECTOR PLOTTING IS DESIRABLE. THE KEY ISTHE NATURE OF THE DRAW FUNCTION."215000Ȱ15000 d2"VECTOR PLOTTING IS IMPLEMENTED IN APPLESOFT VIA THE DRAW FUNCTIONS. THE DRAW FUNCTIONS PRODUCE A SERIES OF PLOTSCALLED A SHAPE. A SHAPE IS ACTUALLY A TABLE OF VECTORS. SHAPES USUALLY ARE"yn2"PICTURES (THE AIRPLANE FOR EXAMPLE). IZONTAL & VERTICAL DIMENSIONS,POINT B IS SPECIFIED BY A SCALAR (S) ANDA ROTATION (R) ANGLE."::m 223)"\"| 222)"/ B" 221)"/ ." 220)"/ ." 219)"S ." 218)"/ ." 217)"/ ." 216)"/ .\" 215)"\ . R" 216)"A \" 2":: 123)"B+"" 122)". +"2 121)". +"C 120)". +"U 119)". V"h 118)". +"| 117)". +" 116)". +" 115)"A +" 115)"++++H++++" 115000` 2"VECTORS USE POLAR COORDINATES. INSTEAD OF THE HOR" ~115000 1"VECTORS ARE MERELY A DIFFERENT METHOD OFSPECIFYING POINTS ON A GRAPH (THE HIRES SCREEN). THE PLOT FUNCTIONS IN APPLESOFTUSE CARTESIAN COORDINATES. THIS IS SHOWNAS THE HORIZONTAL (H) AND VERTICAL (V)" 1"VALUES IN THE FOLLOWING DIAGRAM. THE AIRPLANE IS CONTROLLED BY":@ `19)"PADDLE 0: DIRECTION"Z b19)"PADDLE 1: SPEED"s d19)"BUTTON 0: DRAW" f19)"BUTTON 1: ERASE" h19)": CLEAR SCREEN" j19)" : EXIT PROGRAM": t1"BUTTONS 0 & 1 MAY BE USED SIMULTANEOUSLY 1:(8111)"S K Y W R I T E R":8B119)"BY":SL113)"PAUL STADFELD":" V1"IS A DRAWING ROUTINE THAT USES VECTORS TO DO THE PLOTTING. THE SKYWRITER ITSELFIS A HIRES AIRPLANE THAT DRAWS BY MAKINGA TRAIL OF SMOKE AS IT FLIES ACROSS THE SCREEN          PATTERN.COMPARE THIS TO (ONELINER 2) + ]:: ^SKYWRITER@ _:R `(ONELINER 1)X a:^ b:q cPAUL STADFELD sJ768781:I:J,I::3,0,8,0,10,0,12,0,4,0,128,0,16,0:232,0:233,3::139,95:49234,0:4:N066:(2(1))3216:2(N64):NN(N64):J6411:JN:1::: :% SHAPE SIZE IS ONE. SCALE SIZE IS FOUR. THIS PRODUCES A CIRCULAR  GONAL PATTERN. COMPARE THIS TO (ONELINER 1).; ]:J ^SKYWRITERP _:b `(ONELINER 2)h a:n b: cPAUL STADFELDJ768782:I:J,I::3,0,8,0,11,0,13,0,36,36,0,128,0,16,0:232,0:233,3::139,95:49234,0:N066:4:(2(1))3216:2(N64):NN(N64):J164:1:JN:1::: :5 SHAPE SIZE IS FOUR. SCALE SIZE IS ONE. THIS PRODUCES AN OCTA E","CACKLE","SCRATCH HIS BUTT","SOB","GRUMBLE","DANCE WILDLY","POP PIMPLES","SQUEEZE TOOTHPASTE" "SLOBBER","BURY A BONE","SHARPEN HIS CLAWS","BURN INNERTUBES","PRESS RATS","DIE","SHRIEK","SHOVEL TURDS","SCRATCH HIMSELF","FALL"m "MASTURBATE","UNDER","YELL","BRUSH HIS TEETH","SADDLE UP AND RIDE","WHINE","GIGGLE" "SNEEZE","BREED EARTHWORMS","SUCK HIS THUMB","STOMP","GRIND HIS HEELS","EMPTY HIS BLADDER","WIPE HIS FEET","FORNICATE","WRIGGLE SENSUOUSLY","SMIRK"` "FEAST","COWER","PICK HIS NOSE","TAKE A LEAK","FRY AN EGG","PASTE GREENSTAMPS","PACE UP AND DOWN" "BLOW HIS NOSE","JUMP UP AND DOWN","DRIBBLE","HOLD HIS BREATH","CHEW HIS CUD","CASTRATE HIMSELF","SULK","LICK HIS LIPS","OOZE","DROOL"B "GARGLE","SPLUTTER","FART","CRAP","WHIMP "LIGHT HIS BLOWTORCH","SPIT","SHUFFLE A DECK","HAVE A FIT","FIDDLE WITH HIMSELF","CRACK HIS KNUCKLES","WEEP BITTERLY","WET HIMSELF","SWEAT","CHEW GARLIC"D "WALLOW","SPILL BOILING WATER","GIVE BIRTH TO TWINS","DROP A WATERMELON","GO WEE-WEE","PUKLIFE","INDEPENDENCE","SIMPLICITY","HIGH FINANCE","MOTHERHOOD","PSYCHOLOGY","PUSTULENCE","OSTEOPATHY","LEWDNESS"  "DESIRE","DESTRUCTION","SOCIOLOGY","FILTHINESS","CATALEPSY","CANCER","HELLFIRE","CORRUPTION","THE AMAZON","BLUBBER" -----VERBS-----COMPLACEMCY","DEGENERACY","CARNALITY","TORPITUDE","BASE DESIRES","TRAGEDY","CRIME","OBESITY"   "BRUTALITY","EVIL","REDUNDANCY","HARMONY","PREGNANCY","CELIBACY","DEATH AND TAXES","IMBECILITY","THE WILDERNESS","PARTS UNKNOWN"o "NO MEAN SIZE","LONG NYMPHOMANIA","PESSIMISM","SYPHILIS","DEEDS UNSUNG","SWEETNESS AND LIGHT","GLORY","DARKEST AFRICA","GOOD WILL" "DELIGHT","MASOCHISM","BOREDOM","WAR","DESPAIR","HAPPINESS","DISEASE","SQUALOR","APATHY","CHRISTMAS PAST"] "SUFFERING","PERSPICASITY","N","LETHARGY","FEAR AND TREMBLING","DESPERATION","SOCIAL CONSCIENCE","DIARRHEA","SONG AND STORY" "PERVERSION","PERDITION","MOTHER LOVE","FICKLENESS","NAUSEA","VALOR","ILLEGITIMACY","LUST","RELEVANCE","PUNISHMENT"m "JUSTICE","THE DEEP BLUE SEA","AROO","OTTER","YAK","PENGUIN"8 "ANACONDA","HEFFIBLE HORRALUMP","SKUNK","GREASY GOPHER","STINGING WASP","RATTLESNAKE","IGUANA","STINK BUG","VAMPIRE","ALLIGATOR" -----QUALIFIERS-----` "SCHOLARSHIP","THE SUNNY SOUTH","NECROPHILIA","CONSTIPATIO","MAD DOG","ANTEATER" $ "PATRON SAINT","HIGH PRIEST","BABOON","GHOST","PLATYPUS","SPIDER","MEXICAN SHEEP FROG","JELLYFISH","PORCUPINE","CRAWLING CRAB". "HAMMERHEAD SHARK","VULTURE","BLACK STALLION","FRIENDLY WORM","GARTER SNAKE","DOORMOUSE","KANGRSONIFICATION"  "FLYING SQUIRREL","CARRION CROW","DRAGON","GORILLA","HOWLING WOLF","ZEBRA","HUMPTY CAMEL","SEA SERPENT","WOODPECKER","HORSEFLY"  "SEA HORSE","TARANTULA","WALRUS","POUNCING PUMA","TURTLE","LEAPING LIZARD","QUESTING BEAST","LUNGFISHH OWL","AARDVARK","GALLOPING GOOSE","OPOSSUM","STUBBORN MULE","GROUNDHOG","WEREWOLF","GOOD FAIRY","HIPPOTAMUS"  "COCKROACH","SABRE TOOTH CHICKEN","TERRIBLE TOAD","GOD","CRAFTY FOX","PINK PANTHER","PHILOSOPHER","FEROCIOUS FLEA","HORRIBLE HEFFALUMP","PE;Q$(R2);" ";V$(R3);" IN YOUR ";O$(R4);"."/ H PAUSE12000:PAUSEQ 100j  -----SUBJECTS-----  "TURTLE","BUZZARD","SPIDER","SCREAMING HYENA","GRUMPY GREMLIN","WOMBAT","GILA MONSTER","ARMADILLO","GOBLIN","OCTOPUS"n  "HOBGOBLIN","SCREECI1N2:Q$(I):I( FI1N3:V$(I):I> PI1N4:O$(I):Iq U:(7):::N1N2N3N4;" POSSIBLE INSULTS": Z GENERATE RANDOM SUBSCRIPTS dR1((1)N1)1 nR2((1)N2)1 xR3((1)N3)1 R4((1)N4)1) "MAY THE ";S$(R1);" OF "c RANDOM INSULTS PROGRAM~ N1=NUMBER OF SUBJECTS; N2=NUMBER OF QUALIFIERS; N3=NUMBER OF VERBS; N4=NUMBER OF OBJECTS.N180:N280:N380:N480(S$(N1),Q$(N2),V$(N3),O$(N4)- LOAD THE ARRAYS FROM DATA STATEMENTS2I1N1:S$(I):I <     3995LEEP"176,HE:175,LE(0 G WRITTEN BY MeROBERTS R. STEWART763 SOUTH WAYNE PLACEWHEELING, IL 60090 COPYRIGHT OCT 19801::"NO LINE # 65535":,EPEP1:EP,188>I1((EL))[EPI,(((EL),I,1)):InEPEP((EL)){EP1,58EP2,128EP3,0EP4,0EP5,0EP6,10EPEP6HE0:LE0EP256ī63997EPEP256:HEHE1:6Ğ:"CONTROL";::" C ";::"INTERUPT ATTEMPTED"::63975X:"UNKNOWN ERROR CODE";:t" ERROR = ";ER" IN LINE # ";::EL:HE(176)256LE(175)EPHELE(EP)25563981EPEP1:63979(EP1)25563983ER163Ğ:"TYPE MISMATCH";::63975OER176Ğ:"STRING TO LONG";::63975~ER191Ğ:"FORMULA TOO COMPLEX";::63975ER224Ğ:"UNDEFINED FUNCTION";::63975ER254Ğ:"BAD RESPONSE TO";::" INPUT ";::"STATEMENT"::639759ER25575%ER69Ğ:"OVERFLOW";::63975MER77Ğ:"OUT OF MEMORY";::63975{ER90Ğ:"UNDEFINED STATEMENT";::63975ER107Ğ:"BAD SUBSCRIPT";::63975ER120Ğ:"REDIMENSIONED ARRAY";::63975ER133Ğ:"DIVIDED BY 0 ";::63975%8)(219)256:MER0Ğ:"NEXT";::" WITHOUT ";::"FOR";::63975tER16Ğ:"SYNTAX ERROR";::63975ER22Ğ:"RETURN";::" WITHOUT ";::"GOSUB";::63975ER42Ğ:"OUT OF DATA";::63975ER53Ğ:"ILLEGAL QUANTITY";::639. ~"BE SURE TO EITHER CHANGE THE ONERR GOTO"] "OR WRITE YOUR OWN ERROR HANDLER TO TAKE"{ "THE PLACE OF MINE.":: 218,1:219,0 "PAUSE....":I13000:I 255:63952 255: *** ERROR HANDLER *** ER(222) EL(21THE LINE IS LISTED." J::K T"I WILL NOW POKE THE LINE-IN-ERROR = 1"p ^"AND LET YOU SEE WHAT HAPPENS."v h r"I WILL NOT CHANGE THE ERROR, SO WHAT-" |"EVER WAS THERE IS WHAT YOU WILL GET." }:"WHEN YOU ARE DONE TESTING THE PROGRAM,"ANDLER."8 :" THE ERROR HANDLER THEN PRINTS OUT THE"g "TYPE OF ERROR. THE LINE WHERE THE ERROR" ""OCCURRED IS THEN POKED INTO THE LAST" ,"LINE IN THE PROGRAM, THE NEW END OF" 6"PROGRAM IS DETERMINED AND POKED" @"INTO MEMORY, & THEN OCCURS, THE ERROR WILL BE"I "DESCRIBED & THE LINE WHERE IT OCCURRED"m "WILL THEN BE LISTED FOR YOU."w :: :"METHOD...":: "LINE 0 IS THE ONERR GOTO" "WHEN AN ERROR IS ENCOUNTERED THE " "PROGRAM JUMPS TO THE ERROR HND IT USEFUL ALSO." d::8 n:"HOW TO USE..."::^ x"START WITH THIS BASIC PROGRAM."~ "DELETE LINES 1 THRU 1000" " (THAT REMOVES THESE INSTRUCTIONS)" "THEN WRITE YOUR PROGRAM BETWEEN " "LINES 0 - 63000"  "IF AN ERROR 63952" TEST LINE,:75G " ERROR HANDLER"\" BY"v" ROB STEWART"(I11000:I2:<" THIS IS A PROGRAM DEBUGGING AID"F"THAT I WROTE TO HELP MYSELF."P: Z"PERHAPS YOU WILL FI     "C -";FI$(3)""D -";FI$(4)4"E -";FI$(5)F"F -";FI$(6)X"G -";FI$(7)j"H -";FI$(8)|"I -";FI$(9)"J -";FI$(10)"K -";FI$(11)"L -DONE SELECTING.""M -ABORT PROGRAM" 22:CE:"SELECT OR DE-SELECT BY LETTER PART OF THIS PROGRAM."RRS,0:HA:SE(RK):SE6920000: CREATE TEXT FILES  ***************** * SELECTION * * MENU * *****************D$;"NOMONI,C,O""A -";FI$(1)"B -";FI$(2)":3"TO CREATE TEXT FILES ON DISK WHICH YOU":a"CAN 'EXEC' INTO A PREVEOUSLY WRITTEN":"PROGRAM. IF YOU WOULD LIKE TO CREATE":"THOSE TEXT FILES (12 OF THEM) NOW TYPE":"'E' OR TYPE ANY OTHER KEY TO PROCEED":"WITH WORKING INSTRUCTIONS."BrHA:SE(RK):SE8030000: GO PRINTbwSE8310000: SCREEN PRINTy|D$;"NOMONI,C,O":"AS PREVEOUSLY MENTIONED THIS PROGRAM":"SHOULD BE RUN BEFORE YOU BEGIN YOUR":"PROGRAM, HOWEVER AN OPTION ALLOWS YOUKE TO SEE A PRINTED LIST":LO"OF THE ASSIGNMENTS IN LINES 60000-60499":VQRS,0T:"TYPE 'P' TO PRINT TO PRINTER-":Y" OR":^"TYPE 'S' TO PRINT TO SCREEN-"h:" OR":m"HIT ANY OTHER KEY TO CONTINUE (CALL 768)"d1"LINES 60385-60390 ERROR HANDLING ROUTINE (CALL 945)"6"LINES 60400-60405 APPLESOFT POINTER FUNCTIONS. (DEF FN)"@:RS,0:" -HIT ANY KEY-":HAEJ"IF YOU WOULD LIYBOARD LOCATIONS."T"LINES 60299-60302 CURSOR POSITION LOC."""LINES 60320-60329 SCREEN SELECT LOC."'"LINES 60350-60356 SPEAKER & PADDLE LOCATIONS.","LINES 60380-60390 ERROR HANDLING ROUTINE TEXT:HOME COMMANDS."B "LINES 60101-60113 DOS COMMAND STRINGS.""LINES 60199-60204 WINDOW PARAMETER LOCATIONS.""LINES 60249-60252 CLEAR SCREEN CALL LOCATIONS."&"LINES 60270-60277 READ & SET KEUESTION":;"AND THEN THE PROGRAM WILL CONSTRUCT THE":k"ROUTINES YOU HAVE ASKED FOR AND RETURN":"YOU TO APPLESOFT.":RS,0:" - HIT ANY KEY-":HA"LINE NUMBERS WILL REPRESENT AS FOLLOWS.":"LINE 60100 ":1 "LATER WILL BE SHOWN A SELECTION MENU":a "FROM WHICH YOU MAY SELECT OR DE-SELECT": "THE GROUPS OF ROUTINES (LINE #'S) YOU": "WOULD LIKE IN YOUR PROGRAM.": "WHEN DONE SELECTING ENTER 'L'.": "YOU WILL BE ASKED ONE MORE QC ::RS,0:"DO YOU NEED INSTRUCTIONS ? Y/N ";A1$:A1$"N"5000 ***************** INSTRUCTIONS FOR USE ***************** "THIS PROGRAM SHOULD BE USED BEFORE YOU": "BEGIN YOUR PROGRAM.% n"UP MOST DOS COMMAND STRINGS,":U s"ASSIGNING VARIABLES TO FREQUENTLY USED": x"LOCATIONS IN MEMORY AND ALSO 'DEF FN'": }"FOR APPLESOFT POINTERS.": "THE PROGRAM WILL WRITE PROGRAM LINE": "NUMBERS BETWEEN 60000 & 60499 AND #1": * SEE LINES 30000 TO * * 30030 FOR PRINTER * * COMANDS. * * * ********************** eHA64795:AN(14) f"THIS PROGRAM IS AN AID TO PROGRAMMING.": i"IT'S PURPOSE IS TO SAVE TIME IN SETTING":* * JAMES E PFEIFFER * * (312) 289-7311 * * * * PROG. WAS WRITTEN * * ON AN APPLE II 48K * * WITH DOS 3.2 AND * * APPLESOFT ROM CARD * * *m * PRINTER / OPTIONAL * )Y60000  ********************** * APPLESOFT LINE * * WRITTER * * OCTOBER 31,1980 * * *U * WRITTEN BY                LINE 240- PRINTER ON/.LINE 260- PRINTER OFFC8LINE 290- ENDSF A CELL TO& 'P' PLACESBLINE 100- GET THE FILE\  'F$'- 'LN'q  LINESLINE 140- PRINT SHEET FROM 'ST' TO TO LINE 'LN'LINE 200- SUB TO PRINT MAIN TITLE$?";X2,Y2)0X10X20Y10Y20550M:CXX1X2:CYY1Y2:40:CY:CXD:"PRINT FILE: WHAT VERTICAL COORD. TO END-OF-SHEET?";STN140X::: LINE 20- SUB TO SET  DEFAULTS LINE 40- SUB TO SET  R RIGHT HAND CORNER."~"VISICALC COOORDINATE LETTERS WILL HAVE TO BE CONVERTED TO NUMBERS (I.E. 'A' IS 1, 'BK' IS 63)."::"NUMBER OF PLACES TO FIX NUMBERS TO?";P::20!:"TYPE 0 COORDINATED TO END.":&"UPPER LEFT?";X1,Y1:"LOWER RIGHTINT THE SHEET TO DISK, AND THEN RUN THIS PROGRAM.""'FIXING' A BLOCK OF COORDINATES TO A CERTAIN NUMBER OF PLACES:":" TYPE IN TWO SETS OF COORDINATES, THE FIRST SET BEING THE UPPER LEFT HAND CORNER OF THE BLOCK, THE SECOND BEING THE LOWEFILES (MADE WITH THE 'P' COMMAND) WITH NUMBERSIN NO PARTICULAR FORMAT TO NUMBERS WITH THEIR DECIMAL PLACES LINED UP AND WITH ASPECIFIED NUMBER OF PLACES"4" YOU SHOULD WRITE DOWN THE COORINATES OFTHE BLOCKS YOU WISH TO USE WHILE STILL IN VISICALC, PR 5, 1980  @: J: T:! ^:8 : MAIN PROGRAM...a ::" VISICALC D-FILE PRINTER" ::"NAME OF D-FILE?";F$:"NUMBER OF LINES IN D-FILE?";LN "TITLE TO PRINT AT TOP-OF PAGE":TITLE$ 100 :" THIS PROGRAM CHANGES VISICALC D- FIRST PAGE :" PRINTER ON} (4);"PR#1":(9);"80N": CENTRONICS/PARALLEL INTERFACE IN SLOT #1, SET TO 80 COLUMNS :  PRINTER OFF (4);"PR#0" : ":(4)"CLOSE": , SET UP PRINTER 6 DAVID J. SHERMAN- JULY0:{ (12):40(TITLE$));TITLE$::L2:170: PRINTS ONE LINE HEADER AT TOP OF PAGE : PRINT TITLE (12);:40(T1$)2);T1$:40(T2$)2);T2$:40(T3$)2);T3$::L4:: ALLOWS 3 LINE TITLE AT TOP OF1)W)(B$X$,W)(A$(CY),CXW1):1:1:CY","CX:9 Z:I d GET SHEETU iA$(LN){ n:(4)"OPEN ";F$:(4)"READ ";F$ xX1LN:A$(X)::(4)"CLOSE": : PRINT SHEET ST,LN 230:L1STLN:X$A$(L1) X$:LL1:L56180 L1::26D  400@X1P:Z$Z$"0":S$S$" ":B$B$" "::K10PF:a( FIX CELL TO 3 PLACES2X$(A$(CY),(CX1)W1,W):(X$)0ı<X(X$):X$((X))".":X(X)X$X$S$:80FX((X(X)(.5K))K):X$X$(Z$(X),P)3 PA$(CY)(A$(CY),(CX     ER 'N' TO QUIT";:X(36):39X):34,4::3223A2"ENTER:"Z2"ACCOUNT NO. ";:B$m2B$"N"ī100302AC(B$):AC1(AC35AC100)İ1000:130202AC100AC110AC120AC130AC140AC150AC160ī130402AC200AC210AC220AC230AC2b/Il/12190v/B$$/CNTR05/936:::I@/12190X/:"TOTAL EXPENSE";/NUME(1,43):(18):((100NUM.5));:NUME(2,43):(30):((100NUM.5))/:23:B$:1003002 CHOICE 3. FROM MENU2936::+2:" ENTF$R+:100300. PRINT ACCUMULATED EXPENSES6.B.CNTR0L.936R.^/I135|/E(1,I)0E(2,I)0ī12130/A$(I);:NUME(1,I):(18):;((100NUM.5));&/NUME(2,I):(30):((100E(2,I).5))N/CNTRCNTR1X/CNTR21ī12150'** ROUTINE TO RECALL DATA FROM DISKs*:(10):"ARE YOU SURE YOU WANT TO RECALL DATA?";:B$:B$"Y"10030*:(10):12)"PLEASE STAND BY"+D$;"OPEN";F$ +D$;"READ";F$+I12 +:J049*+::E(I,J)4+:J>+IH+D$;"CLOSE";TA"':5)"6. SAVE DATA"I':5)"7. REVIEW BALANCE SHEET DATA":t'5)"8. DISPLAY ACCOUNTS AND NUMBERS"':5)"9. PRINT STATEMENTS"''B$:B(B$)'B0B9ī10170'B11000,12000,13000,14000,15000,16000,17000,18000,19000:::CLIENT$;:" ";FYE$ B'DL'"SELECT ONE OF THE FOLLOWING:"`V':5)"1. RECALL DATA"`':5)"2. REVIEW ACCUMULATED EXPENSES"j':5)"3. ADD CURRENT MONTH'S DATA"~':5)"4. DISPLAY P&L RESULTS"':5)"5. DELETE CURRENT MONTH DAROUTINE&ED$" , 0.00": DITTO,K ERROR ROUTINE ON A/C NO.t:"THERE IS NO SUCH A/C AS NO. ";ACI15:(7);:PAUSE110:PAUSE:IPAUSE11500:PAUSE' * * * MAINLINE * * *$'100: INITIALIZE.'POSITS  E(1,47)=NOT USED< E(2,47)=ACCRUED TAXESY E(1,48)=CAPITAL STOCKv E(2,48)=RET. EARNINGS E(I,0)=SALES ZERO FILL A/C'SI12:J049::E(I,J)0:JI10,76:11,0:12,3: FOR PRINT USING SSETS":AA$(7)"ACCRUED WAGES"#Yn^E(2,49): EXP 1-35 PER DOME, AND 36-42 ARE BAL SHEET A/C PER DOMEh E(I,43)=TOTAL EXPENSESr E(I,44)=NOT USED| E(2,45)=CASH E(1,45)=OTHER ASSETS E(1,46)=INVENTORY E(2,46)=DEP":A$(31)"WAGES & COMM"T 6A$(32)"WATER":A$(33)"FREIGHT-IN":A$(34)"FREIGHT-OUT" @A$(35)"UNITED PARCEL":AA$(1)"NOTES PAYABLE":AA$(2)"FEDERAL INC TAX" JAA$(3)"ACCTS PAYABLE":AA$(4)"ACCTS RECEIVABLE":AA$(5)"ACCT REC-OTHER"TAA$(6)"FIXED AE EXP":A$(19)"POSTAGE"P A$(20)"RENT":A$(21)"REPAIRS":A$(22)"SELL EXP-G.L" A$(23)"SELL EXP-R.L.":A$(24)"SELL EXP-CHRIS":A$(25)"TAX-SOC SEC" "A$(26)"TAX-FED INC.":A$(27)"TAX-OTHER":A$(28)"TELEPHONE" ,A$(29)"TRASH":A$(30)"TRAVELING EXTIONS":A$(7)"DEPRECIATION"` A$(8)"ELECTRICITY":A$(9)"ENTERTAINMENT":A$(10)"HEALTH INSUR." A$(11)"HEAT":A$(12)"INSURANCE":A$(13)"INTEREST" A$(14)"LAUNDRY":A$(15)"LEGAL EXPENSE":A$(16)"MASTER CHARGE" A$(17)"MISC. EXP.":A$(18)"OFFIC7)"GENERAL LEDGER TRANSACTIONS"R x25000: PRINT USING MACHINE LANGUAGE SET-UPk D$(4): CONTROL-D~ A$(35),AA$(7) A$(1)"MDSE.-MATERIALS" A$(2)"ACCOUNTING":A$(3)"ADVERTISING":A$(4)"AUTO EXPENSE" A$(5)"BAD DEBTS":A$(6)"CONTRIBU TRANSACTIONS K:- P10000: MAINLINE3 Zm d INITIALIZE SUBROUTINE g ***** CHANGE 103 & 104 AS APPROPRIATE hCLIENT$"SMALL BUSINESS, INC." jFYE$"6/31/81" lF$"G/L DATA"! n936:10:10)CLIENT$::' PROGRAM DEVELOPED FOR; SMALL BUSINESS CLIENTSZ BY FRED V. AMUNDSEN, CPAr 1108 S. WESTHAVEN WHEATON, IL 60187! TEL (312) 668-4833"# NOV. 15, 1980(2 PURPOSE TO RECORD AND< DISPLAY GENERAL LEDGER F          1))e'"EQUIPMENT";:T21:1000:(FILLER$,NEEDED);:NUME(2,41):((100NUM.5));:(FILLER$,4);'"CAPITAL STOCK";:T16:1000:(FILLER$,NEEDED);:NUME(1,48):((100NUM.5)(1))'"DEPOSITS";:T21:1000:(FILLER$,NEEDED);:NUME(2,46):XES";:T16:1000:(FILLER$,NEEDED);:NUME(2,47):((100NUM.5)(1))'"INVENTORY";:T21:1000:(FILLER$,NEEDED);:NUME(1,46):((100NUM.5));:(FILLER$,4);'"ACCRUED WAGES";:T16:1000:(FILLER$,NEEDED);:NUME(2,42):((100NUM.5)(ME(2,39):((100NUM.5));:(FILLER$,4);'"ACCOUNTS PAYABLE";:T16:1000:(FILLER$,NEEDED);:NUME(2,38):((100NUM.5)(1))'"ACCTS REC-OTHER";:T21:1000:(FILLER$,NEEDED);:NUME(2,40):((100NUM.5));:(FILLER$,4);I'"ACCRUED TA:S'"CASH";:T20:1000:(FILLER$,NEEDED);:NUME(2,45):"$";((100NUM.5));'(FILLER$,4);:T15:"NOTES PAYABLE";:1000:(FILLER$,NEEDED);:NUME(2,36):"$";((NUM100.5)(1))+'"ACCOUNTS RECEIVABLE";:T21:1000:(FILLER$,NEEDED);:NU.'8'"PRINT MONTH":#B'MO$9L':"PRINT YEAR":DV'YEAR$w`'"ADJUST ROLLER. DEPRESS RETURN WHEN READY ":j'B$t'(FILLER$,23);:CLIENT$~':(FILLER$,17);:"BALANCE SHEET AND INCOME STATEMENT"':(FILLER$,24);:MO$;", ";YEAR$:PEN";F$D$;"READ";F$$I121&:J049?0::E(I,J)G::JNDIaND$;"CLOSE";F$g SUBROUTINE TO DETERMINE NEEDED FILLERCH(36):NEEDEDTCHNEEDED0ĪNEEDED1' * * * MAINLINE * * *$'100: INITIALIZEOCK  E(2,48)=RET. EARNINGS3 E(I,0)=SALESI ZERO FILL A/C'STI12a:J049q::E(I,J)0y:JI10,76:11,0:12,3: FOR PRINT USING ROUTINEED$" , 0.00": DITTO ROUTINE TO RECALL DATA FROM DISKD$;"OE BAL SHEET A/C PER DOME5h E(I,43)=TOTAL EXPENSESMr E(I,44)=NOT USEDb| E(2,45)=CASH E(1,45)=OTHER ASSETS E(1,46)=INVENTORY E(2,46)=DEPOSITS E(1,47)=NOT USED E(2,47)=ACCRUED TAXES E(1,48)=CAPITAL ST@A$(35)"UNITED PARCEL":AA$(1)"NOTES PAYABLE":AA$(2)"FEDERAL INC TAX"JAA$(3)"ACCTS PAYABLE":AA$(4)"ACCTS RECEIVABLE":AA$(5)"ACCT REC-OTHER"TAA$(6)"FIXED ASSETS":AA$(7)"ACCRUED WAGES"Y^E(2,49): EXP 1-35 PER DOME, AND 36-42 AR$(23)"SELL EXP-R.L.":A$(24)"SELL EXP-CHRIS":A$(25)"TAX-SOC SEC" "A$(26)"TAX-FED INC.":A$(27)"TAX-OTHER":A$(28)"TELEPHONE" ,A$(29)"TRASH":A$(30)"TRAVELING EXP":A$(31)"WAGES & COMM" 6A$(32)"WATER":A$(33)"FREIGHT-IN":A$(34)"FREIGHT-OUT"ITH INSUR."A A$(11)"HEAT":A$(12)"INSURANCE":A$(13)"INTEREST" A$(14)"LAUNDRY":A$(15)"LEGAL EXPENSE":A$(16)"MASTER CHARGE" A$(17)"MISC. EXP.":A$(18)"OFFICE EXP":A$(19)"POSTAGE" A$(20)"RENT":A$(21)"REPAIRS":A$(22)"SELL EXP-G.L"B A(4): CONTROL-D" A$(35),AA$(7)> A$(1)"MDSE.-MATERIALS"~ A$(2)"ACCOUNTING":A$(3)"ADVERTISING":A$(4)"AUTO EXPENSE" A$(5)"SALES DISCOUNTS":A$(6)"CONTRIBUTIONS":A$(7)"DEPRECIATION" A$(8)"ELECTRICITY":A$(9)"ENTERTAINMENT":A$(10)"HEAL1" lF$"G/L DATA"L mFILLER$" " n936:(FILLER$,10);:CLIENT$::(FILLER$,10);:"FINANCIAL STATEMENTS" s:(FILLER$,11);:"HARD COPY PRINTOUT" x25000: PRINT USING MACHINE LANGUAGE SET-UP D$ANSACTIONS USING MODEM K:4 P10000: MAINLINE: Zt d INITIALIZE SUBROUTINE g ************************* CHANGE STMT 103 & 104 AS APPLICABLE**************** hCLIENT$"SMALL BUSINESS, INC." jFYE$"6/31/8 PROGRAM DEVELOPED FOR; SMALL BUSINESS CLIENTSZ BY FRED V. AMUNDSEN, CPAr 1108 S. WESTHAVEN WHEATON, IL 60187! TEL (312) 668-4833"# NOV. 15, 1980(2 PURPOSE TO PRINT OUT<