' +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 / / ]ƴ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`SD$" <=DANGER=> "0RA5SD$" {-LOCKED-} "D"13:25:SD$;:N Exit "nRA3SD$" KEEP OUT!! "RA4SD$" <=DANGER=> "RA5SD$" {-Locked-} ""13:25:SD$;:e21)Ģ4X:4Y2:" "4DI$(10)Ģ4X2:4Y:" "SDI$(8)Ģ4X:4Y2:" "x23:25::(4);"RUN TOURMENU": SOLID WALL RA(5(1))1RA1SD$"NO ENTRANCE "RA2SD$" NO EXIT "RA3SD$" KEEP OUT!! "RA4(A1218:A:27:E2$:A82A1212RA:A:27:WS$:Ad<12RA:27:"~~~~~~~~":13RA:30:"{}"wFRA(6(1))1}Px EXIT 1100:9:29:"EXIT":23:2:B$;B$;B$;"You found the Exit, ";YN$;"!"DI$(11)Ģ4X2:4Y:" "DI$(:A:27:E2$:A"`RA(5(1))1;jRA1DS$" ENTER "TtRA2DS$" {OK} "m~RA3DS$"WELCOME!"RA4DS$"THIS WAY"RA5DS$"ENTRY OK"10:27:DS$11:27:"~~~~~~~~"22:27:"": WINDOW RA(6(1))1I$(8)L$(S$,4,1): ========= SET SCENE ========= K WALL QnA822:A:24:E1$:A:(L$)1500,1100,1300,140023:1:B$;B$;B$;"ARROW KEYS / JUMP / QUIT ONLY!":Z12000:Z:23:1:868:L OPEN DOOR VA1022>DI$(8)Ģ4X:4Y2:" ";>HDI$(10)Ģ4X2:4Y:" ";_RDI$(11)Ģ4X2:4Y:" ";h\610 =========== VERIFY MOVE =========== S$(S(X,Y))DI$(11)L$(S$,1,1)DI$(21)L$(S$,2,1)DI$(10)L$(S$,3,1)D DI$(11)XX1:X1ĺB$;:X1:800I DI$(21)YY1:Y5ĺB$;:Y5q DI$(10)XX1:X5ĺB$;:X5:800 DI$(8)YY1:Y1ĺB$;:Y1:800  ============ PLACE MARKER ============ *4X:4Y:Y$; 4DI$(21)Ģ4X:4Y2:" ";lDI$W$ vDI$"J"Ģ5:24:868:"JUMP TO":6:24:868:"ROOM NUMBER? ";RM$:4X:4Y:" ";:X((RM$,1))64:Y((RM$,1)):800 DI$"Q"Ģ23:1:1460 900  ========= ROOM MOVE ========= L$"1"L$"3"ĺB$;:610 4X:4Y:" ";&:E$ B:A: 4:4:"?"8 A15:1:4A:A:AX B15:4B:1:(64B);:B X ============ GAME CONTROL ============ bL$"":2:24:"YOU ARE NOW IN":3::24:"ROOM ";(64X);Y:5:24:"WHICH WAY WILL":6:24:868:"YOU GO? ";:W$ 15 JY15 TS(X,Y)" ^Y) hX: r(4)"CLOSE"F |X1:Y1s  =========== DISPLAY MAP =========== E$(32): E1$" ":E2$" " A2224 B222 A:B:E$ B:A A222 B2224 A:B S(5,5) B$(7)4 X18:WS$WS$(127):X_ "WHAT IS YOUR NAME? ";YN$:Y$(YN$,1)s (4);"CATALOG"} :: (23):"NAME OF TOUR>";M$  "(M$,5)"TOUR>"M$(M$,(M$)5) ,(4)"OPEN TOUR>";M$ 6(4)"READ TOUR>";M$ @XE d::>n ============= THE MINI-TOUR ============= bx(1101)6ĺ:"RUN MINI-TOUR"x " PAUL RAYMER" " Paul's Electric" " Computer" " 3464 Townhouse Dr" " Las Vegas Nv 89121" (C) II/V/MCMLXXXIII      ALL RA(5(1))15RA1SD$"No Entrance "RRA2SD$" No Exit "oRA3SD$" KEEP OUT!! "RA4SD$" <=DANGER=> "RA5SD$" {-Locked-} ""13:25:SD$;:0IT M1100:9:29:"EXIT":23:2:B$;B$;B$;"You found the Exit, ";YN$;"!"mDI$(11)Ģ4X2:4Y:" "DI$(21)Ģ4X:4Y2:" "DI$(10)Ģ4X2:4Y:" "DI$(8)Ģ4X:4Y2:" "23:25::(4);"RUN TOURMENU": SOLID WRA5DS$"Entry OK")10:27:DS$A11:27:"~~~~~~~~"S22:27:"":c WINDOW vRA(6(1))1(A1218:A:27:E2$:A2A1212RA:A:27:WS$:A<12RA:27:"~~~~~~~~":13RA:30:"{}"FRA(6(1))1Px EX0,1400Y23:1:B$;B$;B$;"Arrow Keys / Jump / Quit ONLY!":Z12000:Z:23:1:868:lL OPEN DOOR VA1022:A:27:E2$:A`RA(5(1))1jRA1DS$" Enter "tRA2DS$" {OK} "~RA3DS$"Welcome!"RA4DS$"This way" =========== S$(S(X,Y)):DI$(11)L$(S$,1,1)VDI$(21)L$(S$,2,1)rDI$(10)L$(S$,3,1)DI$(8)L$(S$,4,1) ========= SET SCENE =========  WALL A822:A:24:E1$:A:(L$)1500,1100,130Y1ĺB$;:Y1:800B  ============ PLACE MARKER ============ U*4X:4Y:Y$;v4DI$(21)Ģ4X:4Y2:" ";>DI$(8)Ģ4X:4Y2:" ";HDI$(10)Ģ4X2:4Y:" ";RDI$(11)Ģ4X2:4Y:" ";\610  =========== VERIFY MOVEDI$"Q"Ģ23:1:1460 900F  ========= ROOM MOVE ========= c L$"1"L$"3"ĺB$;:610w 4X:4Y:" "; DI$(11)XX1:X1ĺB$;:X1:800 DI$(21)YY1:Y5ĺB$;:Y5 DI$(10)XX1:X5ĺB$;:X5:800DI$(8)YY1: v bL$"":2:24:"YOU ARE NOW IN":3::24:"ROOM ";(64X);Y:5:24:"WHICH WAY WILL":6:24:868:"YOU GO? ";:W$ lDI$W$ vDI$"J"Ģ5:24:868:"JUMP TO":6:24:868:"ROOM NUMBER? ";RM$:4X:4Y:" ";:X((RM$,1))64:Y((RM$,1)):800 E1$" ":E2$" "1 A2224= B222K A:B:E$U B:Aa A222o B2224} A:B:E$ B:A: 4:4:"?" A15:1:4A:A:A B15:4B:1:(64B);:B X ============ GAME CONTROL ============ :"NAME OF TOUR>";M$ @ "(M$,5)"TOUR>"M$(M$,(M$)5)Y ,(4)"OPEN TOUR>";M$r 6(4)"READ TOUR>";M$} @X15 JY15 TS(X,Y) ^Y hX r(4)"CLOSE" |X1:Y1  =========== DISPLAY MAP =========== E$(32):# s Electric" " Computer": " 3464 Townhouse Dr"W " Las Vegas Nv 89121"] x (C) II/V/MCMLXXXIII S(5,5) B$(7) X18:WS$WS$(127):X "What is your name? ";YN$:Y$(YN$,1) (4);"CATALOG" :: (23) d::>n ============= THE MINI-TOUR ============= x(1101)6ĺ(7);(7):3:1:"STAND BY...LOADING APPLE II+ VERSION":(4);"RUN MINI-TOUR+": " use with apple //e" " and apple c " " PAUL RAYMER" " Paul'     6ĺ:(4);"RUN MINI-TOUR+":: ":(4);"RUN MINI-TOUR":Y ,:(4);"RUN TOUR MAKER":w 6:(4);"RUN MAP MAKER": @:(4);"RUN TOUR INSTRUCTIONS": J:(4);"RUN PROGRAMS":BRAYMER "& 7:10:"(1) MINI-TOUR":B 10:"(2) TOUR MAKER":] 10:"(3) MAP MAKER":{ 10:"(4) INSTRUCTIONS": 10:"(5) QUIT": :14:"SELECT BY NUMBER ";:AN$ (AN$)1(AN$)5100 (AN$)280,300,310,320,330 (1101)л d::n$x TOURMENU FOR8 PAUL RAYMER'SO MINI-TOUR SERIESUdB$(32):X338:3:X:B$;:X:X322:X:38:B$;:X:X3831:22:X:B$;:X:X2231:X:3:B$;:X:3:14:" THE MINI-TOUR " 22:14:" BY PAUL   U DESIGN A TOUR, USE THE MAP":B "MAKER AND YOUR PRINTER."::p 6:"PRESS TO CONTINUE ";:AN$: "(4);"RUN TOURMENU":d^IRECTIONS -- YOU WILL ATTEMPT TO EXIT!"::Y "TO SELECT A TOUR, JUST TYPE THE NAME": "AFTER THE WORD "Q$"TOUR>"Q$". START WITH": Q$"TOUR>DEMO"Q$" AT FIRST. YOU CAN THEN MAKE" "YOUR OWN TOURS BY USING TOUR MAKER.":: "TO HELP YO d::n(x INSTRUCTIONS FOR< PAUL RAYMER'SL MINI-TOURR_Q$(34)|X132:B$B$(32):X:X13:X:4:B$:X2:4:" INSTRUCTIONS FOR THE MINI-TOUR ":::"YOU WILL ENTER A MAZE AND BY SELECTING":+ "D   MENU"$6:X;:X: X15 3:H$+ "Y13A ,Y2Ė1:(64X);L 63:V$S @YZ JXe T3:H$k ^ h5:"S = SOLID WALL D = DOOR" r5:"W = WINDOW E = EXIT" |0 :"ANOTHER MAP? ";:AN$ AN$"Y"220 :(4);"RUN TOUR:V$V$J$:X9 3:1:"DO YOU HAVE A PRINTER? ";:AN$: AN$"Y"ĺ:"THIS PROGRAM WON'T BE OF MUCH HELP!":Z11000:Z:410 :"PRINTER SLOT NO.? ";SL SL :12:"MINI-TOUR MAP" 12:"NAME>";:X115:(95);:X : X15:X d::Un ============= PAUL RAYMER'S MINI-TOUR MAP MAKER ============= bxL$(33)(1101)6AN$"Y":150"CAN YOU PRINT LOWER CASE? ";:AN$AN$"Y"L$(124)X131:H$H$"-":XJ$L$" ": 5 BLANKS X16"NAME OF TOUR? ";M$- :(4)"OPEN TOUR>";M$G D(4)"WRITE TOUR>";M$R NX15] XY15i bS(X,Y)p lYw vX (4)"CLOSE" (4)"CATALOG"  (4);"RUN TOURMENU":$$:R$(S$,1):1103 "WEST? ";W$:R$(W$,1):110D S(X,Y)(V$)N V$""h 15:(40(N$))2:N$~ 18:15(W$):W$ 18:26:E$ 21:(40(S$))2:S$ 13:1:"ARE THESE ENTRIES OK? (Y/N) ";:AN$:AN$"Y"350 Y X & 0;(64X);Y h r"CHOICES:"N |"SOLID WALL / DOOR / WINDOW / EXIT/QUIT" 992::1:"S";:14:"D";:21:"W";:30:"E";:35:"Q":  "NORTH? ";N$:R$(N$,1):110 R$"Q"X5:Y5:550 "EAST? ";E$:R$(E$,1):110 "SOUTH? ";S============== PAUL RAYMER6 PAUL'S ELECTRICE COMPUTER]  3464 TOWNHOUSE DRv  LAS VEGAS NV 89121  ================== " II/VI/MCMLXXXIII ,M(5,5),S(5,5) 6 @X15 JY15 T ^3:1:958:"CREATE ROOM NO. " d1909n ============ ASSIGN VALUE ============ LxR$"S"R$"1"_R$"D"R$"2"rR$"W"R$"3"R$"E"R$"4"V$V$R$ ============= PROGRAM START ============= :: MINI-TOUR GAME MAKER ==== RA(5(1))1-RA1SD$"No Entrance "JRA2SD$" No Exit "gRA3SD$" KEEP OUT!! "RA4SD$" <=DANGER=> "RA5SD$" {-Locked-} ""13:25:SD$;:B1100:9:29:"EXIT":23:2:B$;B$;B$;"You found the Exit, ";YN$;"!"eDI$(11)Ģ4X2:4Y:" "DI$(21)Ģ4X:4Y2:" "DI$(10)Ģ4X2:4Y:" "DI$(8)Ģ4X:4Y2:" "23:25::(4);"RUN TOURMENU": SOLID WALL 5DS$"Entry OK"!10:27:DS$911:27:"~~~~~~~~"K22:27:"":[ WINDOW nRA(6(1))1(A1218:A:27:E2$:A2A1212RA:A:27:WS$:A<12RA:27:"~~~~~~~~":13RA:30:"{}"FRA(6(1))1Px EXIT E23:1:B$;B$;B$;"Arrow Keys / Jump / Quit ONLY!":Z12000:Z:23:1:868:dL OPEN DOOR VA1022:A:27:E2$:A`RA(5(1))1jRA1DS$" Enter "tRA2DS$" {OK} "~RA3DS$"Welcome!"RA4DS$"This way"RA==== S$(S(X,Y))2DI$(11)L$(S$,1,1)NDI$(21)L$(S$,2,1)jDI$(10)L$(S$,3,1)DI$(8)L$(S$,4,1) ========= SET SCENE =========  WALL A822:A:24:E1$:A:(L$)1500,1100,1300,1400Q:Y1:800:  ============ PLACE MARKER ============ M*4X:4Y:Y$;n4DI$(21)Ģ4X:4Y2:" ";>DI$(8)Ģ4X:4Y2:" ";HDI$(10)Ģ4X2:4Y:" ";RDI$(11)Ģ4X2:4Y:" ";\610 =========== VERIFY MOVE ======="Ģ23:1:1460 900>  ========= ROOM MOVE ========= [ L$"1"L$"3"ĺB$;:610o 4X:4Y:" "; DI$(11)XX1:X1ĺB$;:X1:800 DI$(21)YY1:Y5ĺB$;:Y5 DI$(10)XX1:X5ĺB$;:X5:800 DI$(8)YY1:Y1ĺB$;"":2:24:"YOU ARE NOW IN":3::24:"ROOM ";(64X);Y:5:24:"WHICH WAY WILL":6:24:868:"YOU GO? ";:W$y lDI$W$ vDI$"J"Ģ5:24:868:"JUMP TO":6:24:868:"ROOM NUMBER? ";RM$:4X:4Y:" ";:X((RM$,1))64:Y((RM$,1)):800 DI$"Q ":E2$" ") A22245 B222C A:B:E$M B:AY A222g B2224u A:B:E$ B:A: 4:4:"?" A15:1:4A:A:A B15:4B:1:(64B);:B X ============ GAME CONTROL ============ n bL$OF TOUR>";M$ 8 "(M$,5)"TOUR>"M$(M$,(M$)5)Q ,(4)"OPEN TOUR>";M$j 6(4)"READ TOUR>";M$u @X15 JY15 TS(X,Y) ^Y hX r(4)"CLOSE" |X1:Y1  =========== DISPLAY MAP =========== E$(32): E1$" Electric" " Computer"9 " 3464 Townhouse Dr"V " Las Vegas Nv 89121"\ w (C) II/V/MCMLXXXIII S(5,5) B$(7) X18:WS$WS$(127):X "What is your name? ";YN$:Y$(YN$,1) (4);"CATALOG" (37)2:"NAME d::>n ============= THE MINI-TOUR ============= x(1101)6ĺ(7);(7):3:1:"STAND BY...LOADING APPLE II+ VERSION":(4);"RUN MINI-TOUR": " use with apple //e" " and apple c " " PAUL RAYMER" " Paul's    13:25:SD$;:FDI$"W"Ģ4X:4Y2:" "CP23:25::(4);"RUN TOURMENU":Wx SOLID WALL jRA(5(1))1RA1SD$"NO ENTRANCE "RA2SD$" NO EXIT "RA3SD$" KEEP OUT!! "RA4SD$" <=DANGER=> "RA5SD$" #-LOCKED-# "#####":A512RA:27:"========":13RA:30:"<>"HRA(6(1))1N\ EXIT 1100:9:29:"EXIT":23:2:B$;B$;B$;"YOU FOUND THE EXIT, ";YN$;"!";(DI$"N"Ģ4X2:4Y:" "2DI$"E"Ģ4X:4Y2:" "<DI$"S"Ģ4X2:4Y:" "(L$)1400,1100,1200,1300s23:1:B$;B$;"NORTH/EAST/SOUTH/WEST/JUMP/QUIT ONLY!":Z12000:Z:23:875:L OPEN DOOR VA1022:A:27:E2$:A: WINDOW RA(6(1))1A1218:A:27:E2$:A A1212RA:A:27:"###0- =========== VERIFY MOVE =========== >S$(S(X,Y))XDI$"N"L$(S$,1,1)rDI$"E"L$(S$,2,1)DI$"S"L$(S$,3,1)DI$"W"L$(S$,4,1) ========= SET SCENE =========  WALL A822:A:24:E1$:A:"S"XX1:X5ĺB$;:X58 DI$"W"YY1:Y1ĺB$;:Y1i  ============ PLACE MARKER ============ | *4X:4Y:Y$; 4DI$"E"Ģ4X:4Y2:" "; >DI$"W"Ģ4X:4Y2:" "; HDI$"S"Ģ4X2:4Y:" "; RDI$"N"Ģ4X2:4Y:" ";\61";RM$:4X:4Y:" ";:X((RM$,1))64:Y((RM$,1)):800S DI$"Q"Ģ23:1:1360\ 900  ========= ROOM MOVE ========= L$"1"L$"3"ĺB$;:610 4X:4Y:" "; DI$"N"XX1:X1ĺB$;:X1 DI$"E"YY1:Y5ĺB$;:Y5 DI$B 1000; X ============ GAME CONTROL ============ bL$"":2:24:"YOU ARE NOW IN":3::24:"ROOM ";(64X);Y:5:24:"WHICH WAY WILL":6:24:868:"YOU GO? ";W$ lDI$(W$,1)9 vDI$"J"Ģ5:24:868:"JUMP TO":6:24:868:"ROOM NUMBER? === DISPLAY MAP =========== + E$(32):S E1$" ":E2$" "a A2224m B222{ A:B:E$ B:A A222 B2224 A:B:E$ B:A: 4:4:"?" A15:1:4A:A:A B15:4B:1:(64B);:YN$:Y$(YN$,1)# (4);"CATALOG"D (37)2:"NAME OF TOUR>";M$J p (M$,5)"TOUR>"M$(M$,(M$)5) (4)"OPEN TOUR>";M$ (4)"READ TOUR>";M$ X15 "Y15 ,S(X,Y) 6Y @X J(4)"CLOSE" TX1:Y1  ========:$CPM$" "āJ12:S(16336):4CZ:868::XCdA$"":I140:A$A$"-"::70:^CnC:40)::C":70:A$"":70eB;A$"CIRCULATION.........DONNA TIMBERLAKE DONNA TROOST":70B<:100:255:23:24)"PRESS RETURN";:678:20::(4)"RUN TOC"BECFI1(A$)::CURSR$;::M$(A$,I,1):M$;:M$" "M$"."āJ12570(M$".")9A5A$"EDITOR..............BILL TRAVERS ":70:A$"":70pA6A$"ASSOCIATE EDITOR....PAUL RAYMER":70:A$"":70A7A$"TECHNICAL EDITOR....DAVID HERSEY":70:A$"":70A8A$"PRODUCTION..........ROBERT LENO":70:B:A$"SALES/MARKETING.....MICHAEL RAUHo@ INSIDE COVER %@ :Q@" SOFTYME THE MAGAZINE ON A DISK"b@CURSR$"==>"@I1(CURSR$):CURSR$CURSR$(8):@(100@2A$"VOLUME 10 NUMBER 6 (C)1985":70@3A$"":70A4A$"PUBLISHER...........BILL KELLY":70:A$"":70=================== "VOLTAIRE WILL PRINT IN COLOR!":S23:5:"PRESS TO CONTINUE ";:AN$Y ======================== * NOTE! VOLTAIRE WAS ACTUALLY WRITTEN BY TOBI HOFFMAN ASHLAND MA WITH SOME STUFF ADDED BY PAUL RAYMER LAS VEGAS NV ===== TYPE CAPITALS AND LOWER CASE BY":]bPRĺ"TYPING THE LETTER! (UNLOCK CAPS LOCK.)"::1930l:"TO STOP, PRESS .":v:"TO TYPE LOWER CASE, PRESS AND":"THEN THE LETTER!"::"IF YOU HAVE A COLOR MONITOR OR TV SET,":#,0,0,0,0' "",21,10,21,10,21,10,21-@ INSTRUCTIONSF&o0:6:"IT'S EASY TO USE VOLTAIRE!"::"JUST TYPE A KEY AND THE LETTER WILL":D"PRINT REAL BIG ON THE SCREEN.":NPRĺ:"TO STOP, PRESS KEY.":#XPRĺ:"YOU CAN "u",0,0,17,17,17,17,145 "v",0,0,17,17,17,10,4R "w",0,0,17,21,21,31,10n "x",0,0,17,10,4,10,17 "y",0,0,17,17,15,1,14 "z",0,0,31,2,4,8,31 "{",6,8,8,16,8,8,6 "|",4,4,4,4,4,4,4 "}",12,2,2,1,2,2,12 "~",9,22,0J "l",12,4,4,4,4,4,147T "m",0,0,10,31,21,21,17T^ "n",0,0,22,25,17,17,17qh "o",0,0,14,17,17,17,14r "p",0,0,30,17,30,16,16 | "q",0,0,15,17,15,1,1 "r",0,0,22,25,16,16,16 "s",0,0,14,16,14,1,14 "t",4,4,31,4,4,4,330 "c",0,0,14,17,16,17,14< "d",1,1,15,17,17,17,15Y "e",0,0,14,17,31,16,14r "f",6,9,8,30,8,8,8 "g",0,0,15,17,15,1,14" "h",16,16,22,25,17,17,17, "i",4,0,12,4,4,4,146 "j",2,0,6,2,2,18,12@ "k",16,16,18,20,24,20,18 Y,17,10,10,4,4,4,4. Z,31,1,2,4,8,16,31N "[",28,16,16,16,16,16,28f"\",0,0,16,8,4,2,1} ],7,1,1,1,1,1,7 ^,4,10,17,0,0,0,0 _,0,0,0,0,0,0,31 "`" ,12,8,0,0,0,0,0 "A",0,0,13,19,17,19,13 "b",16,16,30,17,17,17,2 P,30,19,17,19,28,16,16:< Q,14,27,17,17,21,18,13WF R,30,19,17,19,28,22,17rP S,14,17,24,4,3,17,14Z T,31,4,4,4,4,4,4d U,17,17,17,17,17,27,14n V,17,17,27,10,10,14,4x W,17,17,17,21,21,27,10 X,17,27,10,4,10,27,1716,16" G,14,25,16,16,23,18,14? H,17,17,17,31,17,17,17W I,14,4,4,4,4,4,14o J,2,2,2,2,2,18,12 K,17,18,20,24,20,18,17  L,16,16,16,16,16,16,30 M,27,27,21,21,17,17,17 N,17,25,25,21,19,19,17( O,14,27,17,17,17,27,14,31,0,0~ ">",0,8,4,2,4,8,09 "?",14,17,2,4,4,0,4X "@",14,17,21,23,18,16,15t A,4,14,10,14,27,17,17 B,28,18,22,28,22,18,28 C,14,25,16,16,16,25,14 D,28,18,17,17,17,18,28 E,31,16,16,30,16,16,31 F,31,16,16,30,16, 4,6,10,18,31,2,2,2/$ 5,31,16,16,30,3,17,14L. 6,14,25,16,22,25,17,14e8 7,31,17,2,4,4,8,8 B 8,14,17,10,4,10,17,14L 9,14,17,19,13,1,19,14V ":",0,12,12,0,12,12,0` ";",0,12,12,0,12,12,4j "<",0,2,4,8,4,2,0t "=",0,0,31,0 "*",4,21,14,31,14,21,41 "+",0,4,4,31,4,4,0I ",",0,0,0,0,6,6,2a"-",0,0,0,31,0,0,0y ".",0,0,0,0,6,6,0 /,0,1,2,4,8,16,0 0,14,10,17,17,17,10,14 1,4,12,4,4,4,4,14 2,14,17,19,2,4,8,31 3,14,19,1,14,1,19,1431,31,31 \ "!",4,4,4,4,4,0,4<f "''",10,10,10,0,0,0,0Yp "#",0,10,31,10,31,10,0uz "$",4,15,20,14,5,30,4 "%",25,26,4,4,8,11,19 "&",12,20,8,12,21,18,13 "'",12,12,4,0,0,0,0 "(",2,6,4,8,4,6,2 ")",8,12,4,2,4,12,801110,01111,10000/ 10001,10010,10011,10100M 10101,10110,10111,11000k 11001,11010,11011,11100 11101,11110,11111X095L1$(X) Z17B:L$(X,Z)B$(B) :*4> PICTURE DATAHR " ",31,31,31,31,590 &400 0( : RESTART LETTER. D< NL1392F XL,39V bW1200:W] lLf v380l ~  BINARY DATA  I131:B$(I):  00001,00010,00011,00100  00101,00110,00111,01000  01001,01010,01011,01100 01101,A$(9)ĉ:::(4);"RUN PROGRAMS":L A$(27)ľL$:L(L$):A$(L32)j COL((1)16):COL0440s COL X(A$)32 X0400 X95400 Z17 Y15 (L$(X,Z),Y,1)"1"čYR,ZS : RR6:R36R1:SS8 S32:AN$ @AN$"Y"İ1840a JPRė:5:" One moment, please...looking for the alphabet!":350 T:5:" ONE MOMENT, PLEASE...LOOKING FOR THE ALPHABET!" ^1536,107 h650 r |R1:S1  21:A$:A$ A$(13)R1:SS8:540' ":C$"a Word Processor for":D$"Little Kids":E$"and Paul Raymer" 5:X3011:X:A$;:Z1100:Z::X:998:10:C$:10:D$ 3:1:B$ "Z14000:Z: ,E$:Z11000:Z: 65:"IS THIS THE FIRST TIME YOU ARE USING VOLTAIRE? (YES/NO) ";AND *" * MARIE AROUET* * = * *X ********************^ A$"VOLTAIRE":B$"BY TOBI HOFFMAN":C$"A WORD PROCESSOR FOR":D$"LITTLE KIDS":E$"AND PAUL RAYMER":(1101)6PR1A PRA$"Voltaire":B$"By Tobi Hoffman d::(nL1$(95),L$(95,7),B$(31).xI ********************d * * * "VOLTAIRE" * * * * A WORD PROCESSOR * * EXTRAORDINAIRE * * * * BY FRANCOIS               ' AUTO PROGRAM/ ' TAKE A TOUR,INVENTORYB ' HOME BUDGETj ' VOLTAIRE,FRENCH MILITARY GAME ' MAROONED,GRAPHIX FUN ' CLASSIFIEDS,TOCN: 216,0:(IN)(I1) 200* 2804 936U 10:8:A$(I);" IS LOADING."i D$;"RUN";A$(I)v 216,0: 216,0:936:10:8:"THE FILE ( ";A$(I);" )":14:11:"HAS NOT BEEN FOUND." "I12500:::5: ' JOUSTING, FLYING GAMMITS K0CV(37) CV21ĂI? (CV3):1:384:40):380J 200 (CV5):"THE MENU IS NAMED 'PROGRAMS' CATALOG=0":384:"ENTER PROGRAM NUMBER AND RETURN ";I:380 I0A$(0)"CATALOG":216,0::D$;"CATALOG":26)"PRESS RETURN":678" VOLUME 10 NUMBER 6 PROGRAMS "; 7T$;::U$;:Q <384:40):380W Ao PI1N:A$:A$(I)A$ ZK(K1):N10K.5 d((I))1L2: 120 nL1 x(20KL):I;") ";(A$,15); K1ĺ (K1)(N19)ĺ N10CV(37)::%16298,0::CLEAR HIRES SCREEN0 30BN188:A$:z216,0::NN1:A$(N):K1:D$"":D$;"NOMONI,O,C":(N36Ģ10:2:"THERE ARE MORE THAN 36 MENU ITEMS":I0:J12000:: 2102T$"SOFTYME BOX 299 NEWPORT, RI 02840 "* 3U$    (t*jP*Uh_B>B} ||}h8* t~#EnA}@p*Q#@*:`@" w(U@@jW`zT~DU,FF64z`@P+tqTh(_P_>}_Vu?kz'{jZV{_^k[Vu_V}W?Z^:AU?z U @~Wj?u_z/ VN+}8  p@@~P+t Waj05@B!aP+|߾ѵբ W@bWou(P(Q@@*UzW*U*U*U*"U*U*T(UDT*U *E(U/]"DQt?"B B D*u+u*Uj_/U*@z @@(U*?u+U*U*U U*}k*T(z U*(U P(U>U*U*D(("D"D"D"D"DQjW*U*U**Ut T*Q"*u~T* Q"U"D"F~@*U*W*}+U*UT*"D*uW*U*U*U"E U*DT(Q U }@*UP*Q~U "D"FFF64 @ U**U(u+U*p+ D*U*U*U*U*U*UzU(D*T "D DT*}+U*}/* +@"~oucx7cjFBFt? @(UxGT"D"D"]j*P>G>E@~ D Qkuz}P @|:Eu_(@`p8|`W8Q+E"Dt  U_p/`j05@B!aP6+|߯վުߜ h_.W"D"@QEt*  *W:"D"D D"UjUW/U*U*U*U*U*U* @U*U P >U@*U@*u;U*U*Q*EpE~~~~~|}}}}!D"D*u+}*Uz+U* "D"D"D"T*U/}U*U*U*U*UzW*U* DU*U "`_*(U P*U/U*U*U*(UQ*E *DQ"D"D("T*W*U*U*UT "DU*U @* }{u]: E**D("D"DF @A*UU*U:U*U P?E T @ @"UzU*_*U*U*U*U* @@U*U (U*PP+UT*T:u*U(Q"E* DBBB"DUz]*U*UzW*}/ "D@`p8Q"E @*U*U*U*U*U*U?U*tU*D*u*D"DQ"D*Tj_U*_jW* }/PT(U"E *U*Ujz+@>xU**DQ*U*"DQ"D  U~*U:/U**T("D"D*U>}*W/U*U*U*U*U*U/P D"DU*E"@.U*U/U*U*U*U*h"E(j0uOB!aP6+|Ĉ"EU*u_U*U*U*U*Uz*}`U*D"DQ"D"***u/U*Uj_*UU"T(@wbG| D E_@`*P*z}*"@pp/@@"@ U+(U/ :}h>U~> WpP T`W DhBBB:Ut @xg?s_yo|7~M~ĈĈD( @ *@*@ ] z@>u?P*u+T.@?:Dh" U@?W?j0uOB!}W~+|`uku+@"t:q?.h"u+@*U?uo_*U*U U*U*U*U U**T~_ @*UU*]* D@?"D"D@"*U?U*UzW*U* " @*U*_*U*U*U*D:*T* U*UDx+(U *@*w*U*U"D @."~ ~~ |1| }"DQ*U~_*UkW*U P~@"_wnoucx7cu>W{_c^q?o1W?;~D *@*U*}?u+/(*D"D""B@*u/]*UjU*U *@"Q*U*W~U*U*T*U"PU *(U*pUT*T*]?Q"D""~B~B~rw"T*U*UjW*`}?*@" @ P(|վϪժD"@*U*U*U*U*U*u/U*T] "DD @Pj?U*U?_*U}+T"D*U*U*U~_.U x*D"D*"D"DU~U*UjW*U*h*@" @"U*u*u+W*U*U*U**U/}"@E"D@? U* DT*U*U*Q*E*`"Wj05@B! V~+|D"U*uou+W*U*U*U*Uz}z* "DD"@@*D }*U~#D xU"Ux}?D }?":  "T*"@ @~?_ D@ @PP*@>Q" WFFF 1 A">"*  }_?}_Vuoo{7{j^V{_^k^^u_V}W?Y^~"D~jG@~_@BDx?DQ"E D #`@h+(Uj D.U"D(U#@@z_?J5@B!aP+}ՂɤҿѢŊԪ D]"@"DbE>>@ *Q*U`E (D \ }"|?@U"WQ"T@"Dhzu/"D" G~ *D@?@Wj05@B! V~+| @{W("D"p?u/Q@D(? w|#"D"D"D"DU*}_*U*U*U*U*U*UD@U*U @~@*UT  U*}*U**U"E ~~~~v7 D"D(U~u/U*u+U**"D"D"D"DU*}{_>U*U*U*U*U*U*U D"@U*U P h?(U @*U*]zW*U*U*Up?U F(F 1 L@!D"D*u/}*U}+U*@~ "D?}W{cxsj\f{_kFu_V}o?X~U*U *U*}*o_`(U*"E"T*U"E ~B~ *}*U*u/U D*"T D"@ @D*UjWW*U*U*U*@ U*U**"U pT* T*/U *D("D *T"D "DQ*W*U*]W*Uu T*Wj?5@B!aP+}тվޖ*TP*UW*U*U*U*u*}/_/PjW*T(Q"DU*D"@*@*U*U*ujW*UP"T*U*T T*U*U*U~_~Wz~+U"D*U*E("D *D *U*u/U*U~U*h+P"D @"D"DU*U}_*U*U*U*U*U// D"DU*U"P U*(U *U*U*U*U*`_"E Waj05@B! VN+|*TQ*U~}?UU*U*U*Uj_z_j+D"DU*T"D@*U*(Uj*UzU*U*@~W"E                      810000'49168,0d<(KEY197ė:KEY::(14):6)"RETURNING TO THE MAIN MENU."::(4);"RUN TOC"s(KEY211Ĭy* N21:07)"PRESS TO CONTINUE.";:/u0u A SUB FOR SUBS u20000:9000:10000:(1):(18)::"1959";::" 'MARK I' GOES OUT OF SERVICE"G10000cKEY197KEY2116000iW{(# CHOOSE 2#(1):(23)::"PAGE (";P") OF ";T". ";"E=ESCAPE S=START OVER ";:'' CHECK THE KEYBOARD t'KEY(49152):KEY121):(6)::"1642";::" PASCAL INVENTS ADDING MACHINE"x(1):(9)::"1671";::" LEIBNIZ INVENTS THE CALCULATOR"(1):(12)::"1834";::" BABBAGE DESIGNS DIGITAL COMPUTER"(1):(15)::"1944";::" IBM INSTALLS 'MARK I' AT HARVARD<G TRIGONOMETRIC":"CONSTANTS TOOK MINUTES! CONTAINING"::"THOSANDS OF TUBES, AND WEIGHING 4 TONS,"::"'MARK I' WAS SLOW, HEAVY AND EXPENSIVE!"30000op REVIEW z:(1):(23)::"REVIEW E=EXIT S=START OVER ";:8(" 'MARK I' WAS IN SERVICE"::"FROM 1944 UNTIL 1959."@30000FX PAGE 5 b:P5"THE 'MARK I' REQUIRED ALMOST SIX SECONDS";::"TO PERFORM COMPLEX MULTIPLICATION AND"::"ALMOST DOUBLE THAT AMOUNT OF TIME"::"TO DIVIDE. DETERMININ  PAGE 4  :P4 "'MARK I', IS ACCEPTED AS THE FIRST "::"LARGE SCALE, DIGITAL COMPUTER."::"BUILT BY IBM, AND PLACED IN USE AT" :"HARVARD, IN 1944, 'MARK I' WAS CALLED"::"'THE AUTOMATIC SEQUENCE CONTROLLED"::"CALCULATOR'.";5 THE 'ANALYTICAL ENGINE'";::"IN 1834. THE 'ANALYTICAL ENGINE'"::"IS CONSIDERED TO BE THE FIRST DIGITAL "::"COMPUTER."; " FAR AHEAD OF ITS TIME, IT"::"INCLUDED ALL THE MAJOR COMPONENTS OF"::"COMPUTERS, AS WE NOW KNOW THEM."  30000  SHOULD BE FREE FROM TEDIOUS" :"TASKS AND ABLE TO DEVOTE THEIR EFFORTS "::"TO DISCOVERY. LEIBNIZ'S DEVICE"::"COULD MULTIPLY AND DIVIDE." 430000 PAGE 3 :P3| "CHARLES BABBAGE, THE ENGLISH MATHEMA-"::"TICIAN, DESIGNEDELS. OUR"L :"MODERN DAY ODOMETER IS AN ADAPTATION"::"OF THIS DEVICE."W L30000] n  PAGE 2 x :P2 "IN 1671, GOTTFRIED WILLIAM LEIBNIZ DE-"::"VELOPED A MACHINE ALONG THE SAME "::"LINES AS PASCAL'S. LEIBNIZ FELT THAT "::"MEN:3000:4000:5000:6000 2  PAGE 1 < :P1 "THE FIRST 'COMPUTER' WAS DESIGNED BY"::"BLAISE PASCAL, IN 1642. AN ANALOG ADD-"::"ING MACHINE, IT COULD PERFORM ONLY"::"ADDITION AND SUBTRACTION, USING A "::"SYSTEM OF GEARS AND WHE { -------------------- NEWS AND VIEWS THE HISTORY OF COMPUTERS PART I BY BILL TRAVERS (C) 1985 SOFTYME :::T5:09)"COMPUTER NEWS AND VIEWS"08);(04)"THE HISTORY OF COMPUTERS, PART I"04);::34,4:: 21000:2000       Vj*@U 0U @(UU*5U@* xx HX$ ~0  |I@ U@*  @H$  @@$ dU*5U@* `0  @8 $ ~?U`/UUz+5U~*  d} X d} @prW*@UZ*0UV*@(U*5@*-U5 H(U`0"@`` @  "@0$ @$  @  :@0@ $ ~ @ U@* 0@H x@ @*-U@ I$  @H$  @O@ @*-U` `0  @p% ~p+5|*-U` @`@$ ? x0UV*(U*5@*-Uxx @@0U @(UU*5U@* 5 H H2@xx!FA=gq0$G'r@c2 8@(U`x" @p% ~@0   r@(U1A$  @0  @@ U@@ `0  @8$ ~?U~* 5 @P$ $BU*5U@*   @@0 i p (UU*5U@* 5 @Vj*|U ?UV*@(U*5@*-Uxx@@  x?(U@H*@( d @D'ppIAH$II @$J @p  `@1Q$  @@H$  `@0`0  @H$ ?|/U@ @$  I@ @*-U` @P |x*5@*-U` @ p V*(U*5@*-U5 @V*@UZ* d X d@@$  @` H&@ I xD`S!  IA(FdaGca@dQJ @$  @(U`0 @< `P  @@H$  8@(U5 @0$ ~@ U@ @0  I<@ U@*  @~ U*5U@* 5 @px  (UU*5U@* 0@0  @0~@U 0U @/UUp+5U@* /U@0"@<( ) ~D#r!I!YA$H$I @$0K @ $ ~ H@p @@H$ ~5 @H$  `c@ @*-U` @ p~?@*-U` @0  @p~|V*(U*5@*-U0@H$  @`@UZ*0UV*(U*5@*-U I X I@p% ~  ! Fg =Nda1Gga@c2 @@$  `{(U`@ @`0  @(U   @0  >@ (U` @ ` >U@ U@*  @H$  @@$ (UU*5U@* 0@8$ ~p p@U 0U (UU*5U|*  ) X )@P$  @ $` DJ( d} QGq@pp83`0  N H@8 8@  @$ @ p@`0`q  @ @ U@* $ `1  @ @*-U` @0$ ~@ @?~?x*5@*-U`@$  @ $  @_*0UV*(U*5@*-U` X``P  @x ~@C- x(U`0 @`<8 `@(U` "@P `A  @  @(U0 $  @ p@ @*-U` H$  @ `@         aa cŠa a c̤a a `LbحaaaaɀL>ca)̴aiimaiLScLSc8aa c `hhɦ LcHH`aLaLb ?@,حaaLaɀLa8aaӭaaaa L-bVQLL-baaa ʹaL2b aȑiimaiLbLb8aaLb8aa:(7);"WORD TOO LONG":X0uL770788:K:L,K::173,48,192,136,208,4,198,7,240,8,202,208,246,166,6,76,2,3,96 :D104010:H15:6,D:7,H:770:D::AGAIN 2-RETURN TO MENU";:D$:255:B(D$):B:B1B2ĬL;49232,0:B1ĬvJB2ĺ(4);"RUN INDEX TO ADVERTISERS"|B$(32):C$"-"(A$)GĖF:A$:CG11:X$(A$,C,1):X$B$X$C$ĖF:(A$,C(X$B$)):A$(A$,(A$)C):510:TO THE MEMBERS OF OUR 'SOFTYME' NETWORK!":500:13::20)"===> PRESS RETURN ";:678:936:8A$"ORDER NOW!"::::500:A$"ONLY: $11.95":500:M19:30000:M:::A$"ONLY FROM:":500::"SOFTYME P.O. BOX 299 NEWPORT, RI 02840"::"SELECT: 1-RUN l A$"AND ONCE AGAIN TO CONTINUE.":500:::20)"PRESS RETURN NOW.";:678:49232,0:678:49233,0:936^ A$"SO SIMPLE TO UNDERSTAND AND EASY TO USE! WITH RESULTS THAT'LL AMAZE YOU. WE'RE OFFERING 'SOFTGRAPH' FOR THE FIRST TIME ON A DEDICATED DISK 0:30000:(4);"BLOAD SCRUNCH" (4);"BLOAD SBL,A$4000":25003:49236,0:49232,0:49234,0:49239,0:E13500::30000:30000:49233,0:13::20)"===> PRESS RETURN ";:678:35,14:34,4::6:958::::A$"PRESS ONCE TO VIEW THE GRAPH,":500NG CAPABILITIES":500:30000:A1500:A A$"2. PIE CHART CAPABILITIES":500:30000:A1500:A:A$"3. COLOR/NO COLOR GRAPH CHOICES":500:30000:A1500:A:A$"4. AN EXTENSIVE DATA EDITOR":500:30000:A1500:A:A$"5. AUTOMATIC LEGEND INSERTION":50PROGRAMS PREVIOUSLY COSTING HUNDREDS OF DOLLARS.":500( A$"YOU'LL LIKE HAVING DOCUMENTATION ON THE DISK THAT'S BOTH THOROUGH AND COMPLETE.":500:::::A$" SOFTGRAPH GIVES YOU: ":500:380::E14500:E:30000:A$"1. BAR/LINE GRAPHI(64435)6N1 :::I1999:::::21:15)"SOFTGRAPH"16):380:I119:J125:::30000::6:G40:F1:199:2556 A$"NOW - A LOW COST WAY TO CREATE CHARTS & GRAPHS ON YOUR HI-RES SCREEN. 'SOFTGRAPH' GIVES YOU MANY FEATURES OFFERED BY      -------------------------------"&  IS"7 A$(5)"'NEWS AND VIEWS' SECTION CONTAINS THE "l A$(6)"FIRST OF A THREE PART LOOK AT THE " A$(7)"EVOLUTION OF THE COMPUTER FROM A VACUUM " A$(8)"TUBE CALCULATOR TO TODAY'S SUPER-CHIP " A$(9)"DYNAMO." A$(10)"---------D COVER.PIC ,A$2000" '24:39N (678:49232,0:49234,0:49236,0:49239,0h 2678:(4);"RUN TOC"n ~  THE TEXT A$(1)"" A$(2)"" A$(3)"THE COMPUTER WAS NOT ALWAYS THE FRIENDLY" A$(4)"MACHINE THAT WE KNOW TODAY. THIS MONTH'( 1000::A$(10)T2:2)"SOFTYME VOLUME X, NUMBER 6, COVER":A$(10)" THE EVOLUTION OF COMPUTERS":I210:A$(I):I#" PRESS RETURN ONCE FOR THE COVER AND ONCE AGAIN TO EXIT THE COVER."; &22::(4)"BLOA(7);"PRESS OR PLEASE! ";:A$:A1:260H ,Z12000:Z:k A$::(4);"RUN FLIPSIDE TOC"NTS"c 300::13:15:"READY...":300:13:15:868:"SET...":300:13:15:868:"GO...":300:{ 13:20:"=> ";:A$ A$(13)1000 A$(27)ĺ:(4);"RUN TOC" A1ė:1105 :3:"PRESSING ";(34);A$;(34);" IS NICE...BUT"::(7)(7)l 100d::n"THE FLIP SIDE IS FULL OF GOOD STUFF,"::"FEATURING PAUL ZELMAN'S, 'SHAMROCKS'."::"REMOVE THIS DISK,"::"FLIP IT OVER AND PRESS =>"::"THE KEY!"::20 s"OR PRESS TO RETURN TO THE ":"TABLE OF CONTE(2):(9):P$":Y:1);::::.!@(2):(7)::18)::(6)F!JKEY1P$"MERCURY"\!TKEY2P$"VENUS"q!^KEY3P$"MARS"!hKEY4P$"CERES"!rKEY5P$"PALLUS"!|KEY6P$"JUPITER"!KEY7P$"SATURN"!KEY8P$"URANUS!KEY9P$"NEPTUNE" "(7! .' .0002,.1,.4,480,0,4.6,256C 8' .00005,.05,.2,300,0,4.6,257h B' 318,2.65,38,86000,12,11.86,484 L' 95,1.15,23,74000,10,29.5,895 V' 15,1,14,30000,5,84,1780 `' 17,1.55,15,28000,2,164,8,2790 N N:40);::!0uX812:Y14039::X)Y((1)616)Y:X>N5060,5065,5070,5075,5080N"+";:5090^" ";:5090n"+";:5090~"+";:5090" ";A12:8' .05,.37,2.5,3000,0,.24,36' .81,.89,6.2,7600,0,.61,67 $' .11,.39,3.1,4200,2,1.89,6A222(A:" ":A3 32,30G2::"PLANETS"g::"1.MERCURY":"2.VENUS"""3.MARS":"4.CERES":"5.PALLAS":"6.JUPITER":"7.SATURN":"8.URANUS":"9.NEPTUNE", THINGA110N((1)51)X((1)831 THE SPACE BAR TO BEGIN. "2 (16384)1273210@ 16368,0F S SET UPY_" ";A222:" ";:40:" ";:A" ";:10:10:" "32,29 "*N " OUT WHICH PLANET IT IS. "QS " "xX " WHEN THE PLANET IS IDENTIFIED "b " THE COMPUTER WILL BE ABLE TO "l " PLOT A COURSE FOR HOME. "q " "v  " PRESSIT AROUND AN UNKNOWN "@ " PLANET. A MALFUNCTION HAS "g " PREVENTED YOUR COMPUTER FROM "& " IDENTIFYING IT. THE COMPUTER "0 " CAN PROVIDE YOU WITH INFOR- ": " MATION ON THE PLANET. YOU "D " MUST USE THIS DATA TO FIGUREOR THE REST OF":5:"THE DATA ON THE":7:"PLANET.";:678J I1500:IT Z1:g INSTRUCTIONSm  :12)"MAROONED IN SPACE"11);: 32,4 4 " " " IN THIS GAME YOU ARE MAROONED " " IN ORB 1   40000y 34,7:(10):1:"MY DATA ":2:"INDICATES":3:"THAT YOU ARE":4:"CORRECT." 6:"A COURSE":7:"FOR EARTH":8:"HAS BEEN":9:"PLOTTED." 11:"WE WILL":12:"BE HOME SOON.": 1:"PRESS RETURN":3:"F,7:A$"INFORMATION":2400632,9:A$"ON THAT":2400S32,11:A$"PLANET":2400s32,16:A$"MORE DATA":2400 32,18:A$"IS IN":2400*32,20:A$"PREPARATION":2400432,1:` 11j X1(A$)k t (A$,X,1);~ T125:T XASK WHAT PLANETZ1ıR20:" WHAT PLANET ARE WE ORBITING?"tX(16384):X177X185203016368,0KEYX176KEYP2500A$"DATA NOT":2400 32,3:A$"CONSISTENT":240032,5:A$"WITH":24003211000:I/j:"DO YOU WANT TO PLAY AGAIN?";8tPA$M~(PA$,1)"Y"54j::::"RUN PROGRAMS"{"MERCURY":"VENUS":"MARS":"CERES":"PALLAS":"JUPITER":"SATURN":"URANUS": "NEPTUNE": ,1: :1"I NOW HAVE";:" ALL NECESSARY"E"INFORMATION."K"THE PLANET";:" WE ARE ";:"ORBITING":"IS: ";$.P1210,1220,1230,1240,1250,1260,1270,1280,1290BL:"I CAN NOW PLOT"V"A COURSE FOR EARTH."W `ISTANCE TO SUN=":34,11%X70219Q1QQX:930OQ255QQX:940j;Q);P(P,6)B10000XyI125:I:X11:1"DISTANCE TO SUN=";P(P,7)B10000;B1ĺ"MILES"B1.61ĺ"K.S"2000Z1113034000 QP(P,6)100*%:"YEAR=":34,109*X7021M>Q1QQX:830^HQ255Q255rR;Q);P(P,6)X;\I125:If:Xk10:1p"YEAR=";P(P,6);" (EARTH=1)"uz2000:5000::5000::5000QP(P,7)B100:"DI 2000':5000::5000::5000@QP(P,5)10:Q0Q1FZ"MOONS=":34,9iX7021}Q1QQX:630Q255Q255;Q);P(P,5)X;I125:I:X9:1 "MOONS=";P(P,5)2000:5000::5000:5DIAMETER=":34,8bX7021'lQD;vQ1QQX:630LQ255Q255b;Q);P(P,4)BX;uB1ĺ"MILES";B1.61ĺ"KILOMETERS";I125:I:X8:1"DIAMETER=";P(P,4)B;B1ĺ" MILES"B1.61ĺ" KILOMETERS"1QQX:530Q255Q2553&;Q);P(P,3)BX;D(B1ĺ"MPS";X*B1.61ĺ"KPS";g0I125:Ip::Xz?7:1D"ESCAPE VELOCITY=";P(P,3)B;FB1ĺ"MPS"HB1.61ĺ"KPS"LN2000S:5000::5000:XDP(P,4)B1000]"GXQ1QQX:430)Q255Q255<;Q);P(P,2)XKI125:IT:X^6:1"SURFACE GRAVITY=";P(P,2);"(EARTH=1)"2000:5000::5000:VP(P,3)B1000"ESCAPE VELOCITY=":34,7X7021QG QX7021"QMX*$Q1QQX:292;'Q255Q255N,;Q);P(P,1)X]6I125:Ic@jJXT5:1:"MASS=";P(P,1);" (EARTH=1)"Y^2000h:5000::5000rGP(P,2)100"SURFACE GRAVITY=":34,6X7021Q12:(C$,1,39S)( 14:(D$,1,39S)/ XA P((1)9)1` A19:C17:P(A,C):C,Ah OPn A$" PLANETARY SURVEY DATA" X1(A$) (A$,X,1); I130:I X " " "MASS=" 34,5 MP(P,1)100  IN SPACE":(13):4)"COMPUTER MALFUNCTION"U (22):(8):"PRESS ";:678:_ L100j X1Lt SLX 8:(A$,X,40) 10:(B$,X,40) 12:(C$,X,40) 14:(D$,X,40) S39185 8:(A$,1,39S) 10:(B$,1,39S) z#1,j0h0i0XŠɭҠ ɭҫ   ҠҠРҠҠӠ ՠҾϠҾŠҾ̠  ҠӠĠӠ Үà" Ӡ ŠŠҠŠɮŠؠ   ɮؠĠŠРŠҠŠȠ Ƞ̠  ŠԠ-̠Š٠Ƞ٠Š Ϡ͠ ؠΠȮîɮ/  !ԠǠ ̠Ҡ ԠӠŠŠ͠Ǡ ŠҠǠӠ "à"" à"Ӡ! ŠԠР!ؠϠӠ         10 . 6    NET "U _D$"PREPARING PLANET SURVEY DATA PREPARING PLANET SURVEY DATA "s d32,1:33,28:34,1:35,22 i5000: n:A12:" ";:A s2:10::"EMERGENCY": x34,3:* }PS1750:PS:(2):(7):"MAROONED R 'METRIC'";:S$:60 K4000g PA$" LOGIC UNIT DAMAGED LOGIC UNIT DAMAGED " UB$"HUMAN INTERVENTION REQUIRED HUMAN INTERVENTION REQUIRED " ZC$"ORBIT OVER UNKNOWN PLANET ORBIT OVER UNKNOWN PLA:12:"DO YOU NEED INSTRUCTIONS";:IN$@ 2(IN$,1)"N"İ3000J 6:: 7:10:"WILL YOU USE THE [E] - ENGLISH OR"::"[M] - METRIC SYSTEM? ";:::S$ :O0:Z0 <(S$,1)"E"B1:75 A(S$,1)"M"B1.61:75 F:"PLEASE TYPE 'ENGLISH' O --------------------------------- BY DAVY DAVIS AND ELUISE MARVIN (C)1985 SOFTYME --------------------------------- :(7):20000:3000010:12:"MAROONED IN SPACE";:1:13:20000(24):20)"PRESS ";:678' -          ТΠӢ  3, :36 V3@ r3J AER "2 >2 INVENTORY PROGRAM Z2 ----------------- v2 2 2 2 2 3" BOOK!).#1 IT IS FULLY EXPLAINED<1 ON PAGE 31 OF SAME.B1 ^1 z1 1 1 1 SOFTYME 1 2 HOME COMPUTALTERATIONS TO LINES 020b -3 OR THE PROGRAM WILLM0l SURELY BOMB: YOU HAVEd0v BEEN WARNED. THE0 ROUTINE WAS WRITTEN BY0 WES HUNTRESS & APPEARS0 IN "CALL -A.P.P.L.E0 IN-DEPTH #1: ALL ABOUT0 APPLESOFT"(BY THE WAY,1 AN INVALUABLE)256:63,(EN256)@/ 66,DEST(DEST256)256:67,(DEST256)S/ 768:16299,0Y/ _/ {/ A ROUTINE LOCATED FROM/& LINES 0-3 (WHICH ARE/0 SUBSEQUENTLY DELETED)/: RELOCATES THIS PROGRAM/D ABOVE PAGE 2./N ***DO NOT*** MAKE ANY0X E OF. "CALL -A.P.P.L.E."$. @. FOR RANGE TO BE MOVED,Z. BEG=STARTING ADDRESSr. EN=ENDING ADDRESS. DEST=STARTING ADDRESS. OF DESTINATION. . FAST MEMORY MOVE:. 60,BEG(BEG256)256:61,(BEG256)/ 62,EN(EN256AT THE"- "PRINTER" IS IN SLOT 0>- (LINE 1400) -THIS WILLZ- MAKE TEXT OUTPUT GO TOk-" THE SCREEN.q-, w-6 -@ THE FAST MEMORY-J MOVE ROUTINE WAS-T WRITTEN BY-^ ROGER WAGNER-h AND APPEARED IN THE-r JULY/AUGUST 1980.| ISSU, CT. , 06107&, ?, IF YOUR PRINTER RE-[, QUIRES A BINARY DRIVERv, CALL, THEN YOU SHOULD, MAKE APPROPRIATE, CHANGES IN LINES, 1120-1300., , IF YOU DO NOT HAVE A, PRINTER, YOU MAY WISH- TO SPECIFY THDATAFILE MUST BE LEFT UNLOCKED.N+ ER4ĺ"WRITE-PROTECT TAB MUST BE REMOVED.m+( ER9ĺ"THIS DISK IS FULL!y+2 BP::+< +F +P N O T E S+Z ---------+d +n BY: JIM GANZ+x 82 SPRING LANE, WEST HARTFORD10ER8ER4Č211:" NUMBER "ER" IN LINE "(218)(219)256:H* :V* D$"CLOSEo* ER5ĺD$"DELETE"FI$* ER5ĺ"LEAVE THE ORIGINAL DISK IN THE DRIVE.* ER8ĺ"INPUT/OUTPUT ERROR...MAKE SURE DRIVE DOOR IS CLOSED PROPERLY.+ ER10ĺ"HCI.:) CB,0:35,22::35,24:<) :::"EXEC HCI.FIX":l)   ERROR TRAP)  ----- ---- ) ER(222):ER255ĝ:1::D$"CLOSE":3030:32,0:33,40:34,0:35,24:1590@* ER9ER5ERL. YOUR APPLE WON'T MIND; IT":>(` "IS EXTREMELY PHOTOGENIC!P(j 2420:34,0:`(t 23:DASH$;(~ " PRESS ";::"RETURN";::" TO CONTINUE, ";::"ESC";::" TO EXIT";( 3030( CB,0:KB,128:(KB)RTN(KB)ESC2450) (KB)ESCĹCB,0:34,0:0'$ " AFTER YOU HAVE ENTERED DATA FOR ALL":_'. "OF YOUR ITEMS, MAKE A PRINTOUT AND STORE'8 "IT IN A SAFE PLACE (E.G. YOUR OFFICE, A "'B "FIREPROOF SAFE, ETC). ALSO, WHY NOT TAKE'L "SOME PICTURES OF YOUR SYSTEM AND STORE":(V "THEM AS WELENGTH OF EACH IN- "B&"PUT. UNDER 'DESCR' ENTER THE NAME AND":q&"MANUFACTURER OF AN ITEM, UNDER 'DATE'":&"ENTER THE DATE OF PURCHASE IN THE FORM":&"MM/DD/YY, AND UNDER 'ID' ENTER ANY":&"IDENTIFICATION OR SPECIFICATIONS.& 2420ENTIRE5%"CONTENTS OF THE FILE ON YOUR PRINTER, ORe%"VIEWING THE DATA OF AN INDIVIDUAL ITEM":{%"ON THE MONITOR.%2420%" WHEN ENTERING THE DATA, DO NOT GO":%"BEYOND THE UNDERLINES. THEY ARE THERE TO&"SHOW YOU THE MAXIMUM L.....":60:DASH$$R34,3J$\" THE PURPOSE OF THIS PROGRAM IS TO":x$f"ALLOW YOU TO KEEP A RECORD OF ALL OF":$p"YOUR COMPUTER EQUIPMENT. THE DATA IS":$z"STORED IN A TEXT FILE, AND YOU HAVE THE":%"OPTION OF EITHER PRINTING OUT THE NOT ON THIS%#DISK, SO CREATE IT:+#B#D$"OPEN"FI$",L130X# D$"WRITE"FI$",R0_#0m# D$"CLOSE~#*216,0:1550#4  INSTRUCTIONS #> ------------ $H:A$".....INSTRUCTIONS VERIFY/CREATE HCI.DATAFILE e" ------------- ------------ w"216,0:2000"D$"VERIFY"FI$"216,0:1550"(222)6Č211::NO ERROR OTHER THAN A "FILE NOTFOUND" ERROR SHOULD OCCUR!" #FILE ISR IS IN SLOT ";::" "SLOT" ":-!l16300,0i!v:"CHANGE SLOT NUMBER ?"U$;:26:"";X$:X$(X$,1)~!X$"Y"İ3030:!:"ENTER NEW SLOT NUMBER <1-6>:"U$;:29:"";SLOT$:SLOT(SLOT$):SLOT1SLOT61930!3030:$" :U$7 CB,0:KB,128:(KB)RTN(KB)136ČBP:1800R (KB)136Ğ:18:1760{ CB,0:18:20::" ":3030:16299,0 &:32,0:33,40:34,0:35,24 0X92,630,1860,2100,2480 :1590 DCHANGE SLOT# N(DEFAULT=1) X!b11:"THE PRINTE CHANGE PRINTER SLOT #5" (CURRENTLY = "SLOT")V"<4> OPERATING INSTRUCTIONSr"<5> EXIT THIS PROGRAMz:"ENTER YOUR CHOICE:";::U$;::" "16300,0CB,0:KB,128:(KB)177(KB)181ČBP:1780 X(KB)176:18:19:X;:DASH$;A^X52116:X:5:"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%":ihX521:X:"%%%%%";:36:"%%%%%":pr7|:A$"MENU OF OPTIONS":60:A$"---------------":6033,30:32,6"<1> ADD TO THE FILE"<2> READ FROM THE FILE"<3>T2048:LOCS FOR MEMMOVE_24:5:":::::: PRESS ";::"RETURN";::" TO BEGIN ::::::";i3030"CB,0:KB,128:(KB)RTN1570,CB,06:2500@6::X015:6:30)::J:3T"---------HOME COMPUTER INVENTORY--------":23::READ CATEGORIESX039MDASH$DASH$"-":DOT$DOT$". ":UN$UN$U$SDOTS, DASHES AND UNDER-LINES DRESS THINGS UP A BITREC$(100)FI$"HCI.DATAFILE"768,216:769,160:770,0:771,76:772,44:773,254BEG1024:EN2047:DESFD$(4):CTRL-D)P23:D$"NOMONCIO=ZU$(95):SCORETdCB16368:CLR KBDlnKB16384:READ KBDxSLOT1:PRINTER SLOT#RTN141:ESC155BP198:ANNOYINGHARDWARE,SOFTWARE,ACCESSORY,LITERATURE,MISCELLANEOUSX04:C$(X) "I$(3)"DATE: "I$(4)1"ID/SPECS: "I$(5)>D$"PR#0Y :XX1:XREC11190D$"PR#"SLOT:DASH$::::D$"PR#03030:(  INITIALIZATION2 -------------- <:25530D$"READ"FI$",R0*REC:D$"CLOSE=X1:REC1310gD$"OPEN"FI$",L130":D$"READ"FI$",R"X{Z06:I$(Z):D$"CLOSED$"PR#"SLOT:I$(0)" ("C$((I$(6))1)")"SERIAL/MODEL NUMBER "I$(1)"PURCHASE PRICE: $"I$(2)" FROM:"YOUR NAME:"(UN$,28);:11:"";NM$^L:"POSITION PRINTER PAPER AND PRESS ";::"RETURN":VCB,0:KB,128:(KB)RTN1110`CB,0:D$"PR#"SLOT:NM$" INVENTORY AS OF "DT$:DASH$:D$"PR#0j::12:16::"[READING]t~D$"OPEN"FI$",L1R MENU....-CB,0:KB,128:(KB)RTN1040?CB,0:3030:~$  LIST ALL ITEMS TO PRINTER. ---- --- ----- -- ------- 8:"ENTER TODAY'S DATE (MM/DD/YY):"(UN$,8);:31:"";DT$$BSH$:17:DASH$5:I$(0)":7"("C$((I$(6))1)")Z:"SERIAL/MODEL NUMBER "I$(1)z:"PURCHASE PRICE: $"I$(2)"FROM "I$(3)"DATE: "I$(4):"IDENTIFICATION/SPECIFICATIONS:":3:I$(5) 23:6:"....PRESS ";::"RETURN";::" FOĺ" FOR MORE";f958Op35:"";CH$:CH(CH$):CH$""XRECĹ34,0:3030:czCH$""Ģ5:820nRECCH:X140:33,X::::12:16:"[READING]":BP::D$"OPEN"FI$",L130D$"READ"FI$",R"RECX06:I$(X):D$"CLOSE"::3:DA$"CLOSE":34,0:3030:#X1REC9D$"READ"FI$",R"XH REC$(X):VD$"CLOSEc X1REC*(DOT$,39);:1:X;:40(REC$(X)):REC$(X)4(37)21Ă>(DASH$,39)H"ENTER NUMBER OR ";::"RETURN";:RXRECĺ" TO EXIT";\XRECRN TO MAIN MENU^:"ENTER YOUR CHOICE <1-3>:"U$;:16300,0:25:"";X$:X(X$):X1X3670rX700,1060,690~3030:3:"SELECT";:29:"DESCRIPTION"::(DASH$,39)34,4D$"OPEN"FI$",L130D$"READ"FI$",R0REC:RECĺDl6v  READ FROM FILEg ---- ---- ---- :A$"....HOME COMPUTER INVENTORY....":6010:"OPTIONS":"-------"::"<1> VIEW A SPECIFIC ITEM":"<2> LIST ENTIRE FILE TO PRINTER":"<3> RETU3  ADD ITEM TO FILEf --- ---- -- ---- }D$"OPEN"FI$",L130&D$"READ"FI$",R00REC:RECREC1:D$"WRITE"FI$",R0DRECND$"WRITE"FI$",R"RECXX06:I$(X):bD$"CLOSEI$(6),1)(I$(1)""I$(1)(DASH$,14)GI$(2)""I$(2)(DASH$,8)gI$(3)""I$(3)(DASH$,24)I$(4)""I$(4)(DASH$,8)I$(5)""I$(5)(DASH$,34)(I$(7),1)"N"Ģ6:220:X140:33,X:::12:16:"[WRITING]BP::r18:"";I$(4)"|4:"";I$(5)819:19:"";I$(6)`35,22:21:34:"";I$(7):21:35,21(I$(7),1)"Y"(I$(7),1)"N"400I$(0)(I$(0),31):I$(1)(I$(1),14):I$(2)(I$(2),8):I$(3)(I$(3),24):I$(4)(I$(4),8):I$(5)(I$(5),34):I$(6)("ID:"(UN$,34);:4:I$(5)!["X04:" <"X1">"(DOT$,27);:36(C$(X)):C$(X):y,:4:"CATEGORY <1-5>:"U$6:"THE ABOVE INFO. IS CORRECT :"U$;@16300,0J6:7:"";I$(0)T21:"";I$(1)^17:"";I$(2)h14:"";I$(3)1:33,38:32,1:SET TEXT WINDOWH :6:"DESCR:"(UN$,31);:7:I$(0)y "SERIAL/MODEL NUMBER:"(UN$,14);:21:I$(1) "PURCHASE PRICE:$"(UN$,8);:17:I$(2) "PURCHASED AT:"(UN$,24);:14:I$(3) "DATE OF PURCHASE:"(UN$,8);:18:I$(4)$t 22:DASH$;" PRESSING ";::"RETURN";::" WITH NO RESPONSE INDI-":"CATES THAT INFORMATION IS NOT AVAILABLE"; 2039,174:PERIOD X52217:X:1:"+";:40:"+": X621:X:1:"!";:40:"!": X06:I$(X)"": 6! 34,5:35,2 ZA$:7 \  INPUT NEW ITEMf ] ----- --- ---- x:"--------HOME COMPUTER INVENTORY--------- 3:7:"ENTER DATA AND PRESS ";::"RETURN"::" DO NOT EXCEED THE SPECIFIED LENGTH "; DASH00:F X12221:X:5:"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"::2s (X020:" %%%%%%%";:33:"%%%%%%%": 216299,0:1970 <  CENTERING SUBROUTINE F --------- ---------- P21(A$)2L(X$):I1L:511I,((X$,I,1))128::72,0:144 X$"340:CE 39 03 CE 3C 03 CA D0 EE A5 68 85 1A A4 67 84 19 A0 01 B1 19 F0 10 18 65 08 91 19 AA 88 B1 19 85 19 86 1A C8 D0 EC 4C 66 D5 N 300G":2 HOME COMPUTER INVENTORY 1320:3030:::40-(P3072:6,(P256):7,203(P9999)X$"300:A5 06 A8 38 E9 09 B0 03 4C 00 00 85 08 18 65 B0 C5 74 B0 F4 A6 B0 8E 39 03 8D 3C 03 A6 07 86 67 A6 AF 86 6B 86 6D 84 68 85 B0 85 6A 85 6C 85 6E 38 E5 06 AA E8 A0 00 B9 00 00 99 00 00 C8 D0 F7 N D823G"6                "RUN PROGRAMS"DDA(C)P(NAN) 200- $A(C)P(NAN)6 .200@ 31200I 8400S =1200\ B600f L1200p V1015 I1400:(16384)155Ĺ16368,0:1300 I   ::10:" WOULD YOU LIKE TO QUIT? (Y/N) ";A$:(A$,1)"Y"Ľ:1000:Y:SW1:740 X,Y J" 7 DE23.14159900C *P3:Q4L /SW0\ 4I090010h >THDEI~ HX130130(PTH) RY7575(QTH) \SW0ēX,Y:SW1:880 fX,Y pI z 3   800 1200 20 1200  I  XP60:Q22.5% ]SW00 bDT300C lF23.14159DTO vI161e DLPIQ(PIQ)x DL.00001670 I J0IDT10 ANJF X(PQ)(AN)Q((PQ)ANQ) Y(PQ)(AN)Q((PQ)ANQ) XX130:YY75 SW0ēX,(AN)70" SW0ēX,Y:SW1:300, "X,Y3 ,I9 6L P22.5:Q18.75U SW0i F23.14159250z I0125010 ANIF X(PQ)(AN)Q((PQ)ANQ) Y(PQ)(AN)Q((PQ)ANQ) XX130:YY70 SW0ēX,Y:SW1:510 X,Y15R 2F23.14159300( <I030043 FANFIE PX130P(AN)V ZY75Q(AN)o dSW0ēX,Y:SW1:110y iX,Y nI sSW0 xR P70:N4 SW0 F23.14159600 I06004 ANIF RA(C) XR(AN)130 YR :14:"GRAPHIX FUN":::::"THIS PROGRAM DRAWS ASSORTED SPIRAL ":"DESIGNS. IT WILL RUN CONTINUOUSLY UNTIL ":" IS PRESSED."9:23:"PRESS 'RETURN' TO CONTINUE ";:6781000SW0R104010P60R (Q     CORD- ING TO YOUR INPUTS."":"'AUTO PROGRAM' STORES YOUR CREATION AS A TEXT FILE, AND ALLOWS YOU TO 'EXEC', LIST AND SAVE YOUR FRAMEWORK.""dPU)LN$(CU)"VTAB23:?:PRINTTAB(22)"P1$"PRESS SPACE BAR"P1$";:GET Q$:HOME":70!pLN$(CU)LN$(CU)"POKE34,0:REM NORMAL SCREEN":70!!::"THIS 'PROGRAM' HELPS YOU TO WRITE AND STRUCTURE A PROGRAM.""::"'AUTO PROGRAM' CREATES PROGRAMS AC:POKE35,14:VTAB 8":70K >LN$(CU)LN$(CU)"FOR X=1TO6:PRINT B$:NEXT X":70 HLN$(CU)LN$(CU)"VTAB10:HTAB INT(12-"(T1)")":70 RLN$(CU)LN$(CU)"PRINT"P1$F$P1$:70 \LN$(CU)LN$(CU)"NORMAL:POKE32,0:POKE33,40:POKE34,20:POKE35,23":70P!fLN$(C$)2)fLN$(CU)LN$(CU)"FOR X1=33 TO 8 STEP -1:VTAB 7:PRINT TAB(X1)A$:VTAB14:PRINTTAB(X1)A$:NEXTX1"n 70*LN$(CU)LN$(CU)"FOR Y=8TO13:VTABY:PRINT TAB(33)A$:VTABY:PRINT TAB(8)A$:NEXT Y":70 4LN$(CU)LN$(CU)"INVERSE:POKE 32,8:POKE33,25:POKE34,7 "P1$:70$g"WHAT TITLE WOULD YOU LIKE FOR YOUR NEW PROGRAM? ":: "THE LIMIT IS 24 CHARACTERS IN LENGTH. PLEASE TYPE IN THE TITLE, AND PRESS RETURN. " (20):DD124:"-";:DD:(20):(1):"";F$T1((FOGRAM, AND":"THEN SAVE IT USING THE APPLESOFT SAVE ":"COMMAND."M17:n CREATE TITLE MODULE :(6):"WILL THIS PROGRAM HAVE A TITLE? ";AN$(AN$,1)"N"220070LN$(CU)LN$(CU)"TEXT:HOME:A$="P1$"*"P1$":B$="P1$" N1D$;"CLOSE"H::"TO SEE YOUR PROGRAM TYPE THE FOLLOWING:":l(93);"NEW "(93);"EXEC ";F$;" ":"THEN AFTER FILE LOADS TYPE:"::(93);"LIST "C:::"...MAKE ANY CHANGES TO YOUR PR::"NOW YOU'LL SAVE YOUR FRAMEWORK TO DISK AS A TEXT FILE. THEN WE'LL EXPLAIN WHAT TO DO NEXT.":(22):10)"PRESS ";:67822:8:" ONE MOMENT PLEASE"D$(4):D$;"OPEN";F$D$;"WRITE";F$N11CULN$(N1)0=<LN$(CU)LN$(CU)"GET A$ :IF A$="P1$P1$" GOTO "(LN)EF70ePLN$(CU)LN$(CU)"A=VAL(A$)"mZ70dLN$(CU)LN$(CU)"RETURN"n SAVE FINISHED MODULES TO DISK x:F$""Ą"ENTER THE NAME OF THIS PROGRAM ";F$F$F$".TEXT"UBROUTINE "70ALN$(CU)LN$(CU)"HOME:PRINT:PRINT:RETURN"u  'INKEY$' CONVERTED TO 'GET' BY KEN SLINGSBY :(8):"DO YOU WANT A 'GET' SUBROUTINE? ";AN$(AN$,1)"N"140070(LN$(CU)LN$(CU)" REM GET INPUT SUBROUTINE "27" 709LN$(CU)LN$(CU)"PRINT D$;"P1$"CLOSE"P1$A70^LN$(CU)LN$(CU)"RETURN"} ADD MISC. MODULES :(8):"DO YOU WANT A CLEAR SCREEN SUBROUTINE? ";AN$(AN$,1)"N"129070 LN$(CU)LN$(CU)" REM CLEAR SCREEN S!BLN$(CU)LN$(CU)"FOR N=1TONF")L70YVDI2LN$(CU)LN$(CU)"FOR COL=1 TO NC":70{`LN$(CU)LN$(CU)"PRINT DA$(N"jDI2LN$(CU)LN$(CU)",COL)":1150oLN$(CU)LN$(CU)")"~70LN$(CU)LN$(CU)"NEXT"DI2LN$(CU)LN$(CU)" COL,NILE TO DISK "70TLN$(CU)LN$(CU)"INPUT "P1$"ENTER FILE NAME :"P1$";F$"\70LN$(CU)LN$(CU)"PRINT D$;"P1$"OPEN"P1$";F$"70$LN$(CU)LN$(CU)"PRINT D$;"P1$"WRITE "P1$";F$")70.LN$(CU)LN$(CU)"PRINT NF"870(CU)" COL,N"70ALN$(CU)LN$(CU)"PRINT D$;"P1$"CLOSE"I70fLN$(CU)LN$(CU)"RETURN" CREATE DISK OUTPUT MODULE 70MI0LN$(CU)LN$(CU)" REM SAVE FILE TO DISK ":1020 LNNU(N1):LN$(CU)(NU(N1))" REMSAVE FNF" R70-\LN$(CU)LN$(CU)"FOR N=1TONF"5f70epDI2LN$(CU)LN$(CU)"FOR COL=1 TO NC":70zLN$(CU)LN$(CU)"INPUT DA$(N"DI2LN$(CU)LN$(CU)",COL)":910LN$(CU)LN$(CU)")"70LN$(CU)LN$(CUU)"NEXT" DI2LN$(CU)LN$ REMLOAD FILE FROM DISK" 70_ LN$(CU)LN$(CU)"INPUT "P1$"ENTER FILE NAME :"P1$";F$"g*704LN$(CU)LN$(CU)"PRINT D$;"P1$"OPEN "P1$";F$"970>LN$(CU)LN$(CU)"PRINT D$;"P1$"READ "P1$";F$"C70HLN$(CU)LN$(CU)" INPUT MENU$(N)" SUBROUTINE HERE ""**"(N<IOFLAG21230D70DI0Mĺ"SORRY, I NEED A STRING ARRAY DEFINED TO BR";A$:10 CREATE DISK MODULE MI0LN$(CU)LN$(CU)" REM LOAD FILE FROM DISK":790 LNNU(N):LN$(CU)(NU(N))" > "(MI)" GOTO"((LN$(CU1))))70OLN$(CU)LN$(CU)"ON CH GOSUB"NU$W70|LN$(CU)LN$(CU)"GOTO "(IM(1)) INSERT REMARKS AT FUTURE MODULE LOCATIONS N1MIIOFLAG70!LNNU(N):LN$(CU)(NU(N))" REM INSERT "P1$ 70'LN$(CU)LN$(CU)"PRINT"3&N1MIL0NUNUIC50:NU(N)NUb:NU$NU$(NU)","iDNNNU$(NU$,((NU$)1))X70bLN$(CU)LN$(CU)"INPUT"P1$"ENTER CHOICE : "P1$";CH$"l70!vLN$(CU)LN$(CU)"CH=VAL(CH$): IF CH<1 OR CH705LN$(CU)LN$(CU)P$(N)".) "MENU$(N)P1$<N{ IF DISK I/O DESIRED, CREATE THESE MENU CHOICES: IOFLAG2İ70:LN$(CU)LN$(CU)P$(N)".)"" LOAD FILE FROM DISK"P1$:70:LN$(CU)LN$(CU)P$(N1)".)"" SAVE FILE TO DISK"ȭDI0410c:"WILL THE CHOICES INCLUDE 'SAVE FILE TO DISK' AND 'LOAD FILE FROM DISK' ";AN$~(AN$,1)"Y"IOFLAG2CH(CH$)CHCHIOFLAGN1CH::"ENTER MENU CHOICE NUMBER ";N;". => ";"";MENU$(N)NN1CHTE A MENU @ 6:(6):"WILL YOUR PROGRAM HAVE A MENU? ";AN$V @(AN$,1)"N"740^ J70 TLN$(CU)LN$(CU)"HOME:PRINT:"P$" ********** MENU **********"P1$":PRINT" ^IM(1)LN h::"HOW MANY CHOICES ON THE MENU ";CH$ rMI(CH$) |::"HOW MANY COLUMNS? ";COL- DI2ī2503 ] "HOW LARGE SHOULD THE ARRAY BE?";ROW LN$(CU)LN$(CU)"DIM DA$("(ROW) DI1LN$(CU)LN$(CU)")":310 LN$(CU)LN$(CU)","(COL)")" 70 "LN$(CU)LN$(CU)"NC="(COL) , CREARE DATA IN A STRINGARRAY? ";AN$6 (AN$,1)"N"310> 70D "WILL THE ARRAY HAVE [1] OR [2] DIMENSIONS? ";AN$ DI(AN$) DI1DI2200 DI2ė:6:"YOU'LL DIMENSION THE 2D ARRAY BY ROW AND COLUMN. "::"HOW MANY ROWS? ";ROW:INE NUMBER=> ";BLN$E n::"ENTER THE LINE NUMBER INCREMENT=> ";IC$S xIC(IC$)e LN(BLN$)IC CREATE 'CLEAR' AND 'DIM' STATEMENTS 70 LN$(CU)LN$(CU)"HOME:D$=CHR$(4):REMCNTL-D" :2000 :(8):"WILL THIS PROGRAM STO AN1AN23 " LN$(100)B P$" PRINT "(34)" "P (P1$(34)X 290 < INCREMENT LINE NUMBER COUNTERS FLNLNIC:CUCU1:LN$(CU)(LN)" ": P ENTER LINE NUMBER PARAMETERS Z:: d(6):"ENTER THE FIRST L[::384:40);:"[ SOFTYME AUTOMATIC PROGRAM WRITER ]";:40);:380:34,4:(4)g:50001:20:"PRESS [1] TO RUN 'AUTO PROGRAM' OR PRESS [2] TO RETURN TO THE MENU. ";:ANS$D$(4) AN(AN$):AN2ĉ:::(4);"RUN PROGRAMS"       N FROM ITS MISTAKES AND BECOME"K0"INCREASINGLY MORE DIFFICULT TO BEAT."~024:" << PRESS THE SPACE BAR TO CONTINUE >>";1(16384)12712550116368,01:$1$1"TAKES. BUT IF YOU WANT TO RESIGN JUST"9k0"TYPE 0,0."lp024:" << PRESS THE SPACE BAR TO CONTINUE >>";z0(16384)12712410016368,000" THE GAME IS VERY EASY TO WIN THE"0"FIRST FEW TIMES IT IS PLAYED, BUT IT"0"WILL LEAR TRAPPED"8*0"AT 11, BUT IF BLACK PLAYS POORLY IT MAY"b40"BE PINNED AT 5 OR 7. BLACK WINS BY">0"REACHING 1 OR BY EVADING BEING PINNED"H0"FOR 20 MOVES."R0" WHITE CAN ALWAYS WIN IF HE PLAYS"\0"CORRECTLY AND DOES NOT MAKE ANY MIS-"(f0"/"OCCUPIED BY ANOTHER PIECE."S/:" << PRESS THE SPACE BAR TO CONTINUE >>";l/(16384)12712270z/16368,00 0" WHITE WINS THE GAME BY PINNING THE"0"BLACK PIECE SO THAT BLACK HAS NO MOVE."  0"THIS USUALLY OCCURS WITH BLACKHAS"2/"ONLY ONE MAN, WHICH STARTS AT 6. WHITE"a/"HAS THE FIRST MOVE AND MAY MOVE ANY ONE"y/"PIECE ONE SPACE."/" WHITE MAY ONLY MOVE UP, DOWN, OR TO"/"THE RIGHT. BLACK MAY MOVE IN ANY DIREC-"/"TION. NO PIECE MAY MOVE TO A SPACE"""N/" \!/ ! \!/"BX/" 4----7---10"Mb/34,11Sl/}v/" THE PLAYING FIELD FOR THE FRENCH"/"MILITARY GAME IS SHOWN ABOVE. YOU WILL"/"PLAY WHITE AND WILL START WITH THREE"/"MEN LOCATED AT 1, 2, AND 4. BLACK ! /!\"+/" / ! \ ! / ! \"N/" / ! \ ! / ! \"r/" / ! \!/ ! \"&/" 1----3----6----9----11"0/" \ ! /!\ ! /":/" \ ! / ! \ ! /"D/" \ ! / ! \ ! /*Y31820:19,21Y3:Y3:9*Y32931:19,21Y3:Y3:U+Y379:28,30Y3:Y3:s+Y31820:28,30Y3:Y3:+Y32931:28,30Y3:Y3:+Y31820:37,39Y3:Y3:. INSTRUCTIONS.." 2----5----8" ." /!\ X,Y:YY1:X-'Y28:X3037:X,Y:YY1:XJ'15:11001:11002:11004X'0:11006^'m* SQUARE 1*Y31820:1,3Y3:Y3:*Y379:10,12Y3:Y3:*Y31820:10,12Y3:Y3:*Y32931:10,12Y3:Y3:*Y379:19,21Y3:Y3:5,3519:9,3130/V'8,3011:8,3020:8,3029N`'Y19:X112:X,Y:YY1:Xnj'Y28:X1219:X,Y:YY1:Xt'Y19:X1928:X,Y:YY1:X~'Y10:X1219:X,Y:YY1:X'Y19:X1928:X,Y:YY1:X'Y10:X3037:X,Y:YY1:X 'Y19:X112:1,1,0,2,0,2'# 0,0,0,0,0,0,0,2,2,2,0-#B' DRAW BOARD H'b$'1:Y039:0,39Y:Y.'3:Y610:9,13Y:18,22Y:27,31Y:Y8'Y1721:0,4Y:9,13Y:18,22Y:27,31Y:36,39Y:YB'Y2832:9,13Y:18,22Y:27,31Y:YL'9,318:2,0,0,0,0,0,0,0+2# 1,0,2,0,2,2,0,0,0,0,0G<# 1,2,0,2,0,2,0,0,0,0,0cF# 1,0,2,0,0,2,2,0,0,0,0P# 0,1,0,0,0,2,0,2,0,0,0Z# 0,1,1,1,2,0,2,2,2,2,0d# 0,0,0,1,0,2,0,0,0,2,0n# 0,0,0,0,1,1,0,0,2,0,2x# 0,0,0,0,0,1,0,2,0,2,2 # 0,0,0,0,0,W(J4)I44110J4)M404100FA(S3,M4)A(S3,I4)4110Z NEW BEST MOVEeM4I4mI4sp UPDATE AT GAME ENDzI61I01SR(I6,1)MR(I6,2)A(S,M)A(S,M)WI6'# DATA FOR L ARRAY(# 0,2,2,L21@ CALCULATE NEW WHITE POSITION NUMBERc A3P(W(1))P(W(2))P(W(3))q S31165 S(S3)A33050 S3  PICK BLACK'S BEST MOVEM40I4111L(B,I4)04110 OCCUPIED BY WHITE?J413I213J2I2# W(I2)X2100+I2E  NO WHITE PIECE AT XO*2200r4IF BLACK IS AT Y THEN ILLEGAL>BY2200H ILLEGAL IF WHITE AT YRI213\W(I2)Y2200fI2pL(X,Y)22200z LEGAL MOVE FOR WHITEW(J2)Y"I WIN......"!W1*780?"I LOST......"IW1^  UPDATE ARRAY Ah6000 "WANT TO PLAY AGAIN? ";*Z$4(Z$,1)"Y"340>:H(4);"RUN PROGRAMS" CHECK WHITES MOVE FOR LEGALITYL214M3:B11001,11002,11003,11004,11005,11006,11007,11008,11009,11010,110110:M411001,11002,11003,11004,11005,11006,11007,11008,11009,11010,11011R(I0,1)S3R(I0,2)M4BM4I0I01B1500 HERE ONLY IF MACHINE WINS1004,11005,11006,11007,11008,11009,11010,110118 b3000H gI019630 l"THAT'S 20 MOVES, ACE, AND YOU HAVEN'T TRAPPED ME." m730 n WHAT IS BLACK'S BEST MOVE - IF ANY v4000 M40760  COMPUTER MOVES"I MOVE TO ";M580 & WAS IT A LEGAL MOVE( 020006 :L21600U D"FOUL !!!!! TRY AGAIN."^ N510 X LEGAL MOVE - WHAT IS WHITE POSITION INDEX (S3) Z3:X11001,11002,11003,11004,11005,11006,11007,11008,11009,11010,11011. \15:Y11001,11002,11003,16 ^W(1)1 hW(2)2% rW(3)4/ |I019 3000D 10000\  MAIN PROGRAM LOOP "WHITE PIECES ARE AT ";W(1);" ";W(2);" ";W(3) "THE BLACK PIECE IS AT ";B "YOUR MOVE, FROM-TO X,Y "; X,Y !X0Y0730 $X1Y1X11Y11J12 R(I,J)0 J$ I0 I111< J111H L(I,J)O JV "I , L(I,J)=0 MEANS MOVE I TO J NOT LEGAL 6 L(I,J)=1 MEANS MOVE I TO J LEGAL BLACK ONLY @ L(I,J)=2 MEANS MOVE I TO J LEGAL FOR BOTH J TBL1P(L) dML110$ nM1P(M)2 xRM111J S(I)L1M1(P(R))U II1\ Rc Mj L :12:"DO YOU NEED INSTRUCTIONS? ";IN$:(IN$,1)"N"İ12000 (22):8)"JUST A MOMENT..." LOADING LEARNING CURVE I130 P(X)2(X1)@ S(165),R(30,2),L(11,11),W(3),A(165,11)f::(8):12)"SOFTYME PRESENTS:"q#10:9("THE FRENCH MILITARY GAME"*,9-" BY MARTIN GARDNER"022:" ASSEMBLING TROOPS..."KI1PL19 Z         , FAKE HCI *(4);"RUN H.C.I." SPECIAL SENSE OF SHARING, AND"::"ARE GLAD TO BE WITH YOU EACH MONTH.":34,4 <24:08)"PRESS FOR THE MENU";:678 F:(10):04)"RETURNING TO THE MAIN MENU...."::(4);"RUN TOC"ENG THROUGH";::"THE MAIL EACH DAY, IT'S AMAZING TO THINK";::"JUST WHERE THIS NETWORK REACHES." (:"FROM SAUDI ARABIA, TO BRUSSELS, BELGIUM,";::"TO THE COUNTRY DOCTOR'S HOUSE IN MAINE,"::"THE NETWORK GROWS EACH DAY. AT SOFTYME,":N 2"WE FEEL A ---------------------------- EDITORIAL PAGE VOLUME 10 NUMBER 6 SOFTYME (C)1985 ----------------------------:::49)"SOFTYME EDITORIAL PAGE"49);:a :"BUILDING A NETWORK IS HARD WORK. BUT "::"IT'S A LOT OF FUN, TOO! READI "3B18000:34,1:03PF23::M$;:678:63ZF678:G3ZFSHEN THE PROGRAM ASKS FOR ":"THE ITEM OR ACCOUNT IT IS ASKING";2B" YOU FOR":"A DESCRIPTION OF WHAT YOU SPENT MONEY ":"ON. THEIR EXACT MEANINGS WILL CHANGE ":"FROM CATEGORY TO CATEGORY."2B::::3BM$" PRESS RETURN TO CONTINUE. ANY OTHER SLOT, CHANGE LINE 4"S1B::M$" PRESS RETURN FOR MORE. "^1B18000h1B:23A2B"ACCORDINGLY. THROUGHOUT THE PROGRAM TWO ":"PHRASES WILL REAPPEAR: 'ITEM' AND ":"'ACCOUNT'. THESE MEAN ESSENTIALLY THE ":"SAME THING. W DATA, YOU ":"MAY LOOK AT THE MONTH'S EXPENSES AS A ":"WHOLE, OR AS SEPARATE ITEMS. YOU";1B" MAY ":"ALSO REQUEST A PERCENTAGE BREAKDOWN FOR ":"THE MONTH. ALL INFORMATION MAY BE SENT ":"TO A PRINTER IN SLOT #1. IF YOU HAVE A ":"PRINTER IN 10 /:V$:#/> TOGGLE PRINTER4/>OO$"ON"Ċ0I/>OO$"OFF"ĊSLOTO/>U/hBs/rB11:"] INSTRUCTIONS ["}/|B34,2/B23^0B"THIS PROGRAM IS AN EASY AND ACCURATE WAY":"TO DETERMINE YOUR MONTHLY EXPENDITURES. ":"AFTER ENTERING THE REQUESTED6V$(V):V1(V$):(V$,V,1)"."140208.6:V$V$"."X.6(V$)V2V$V$"0":14020v.6(V$)7V$" "V$:14025.6V$:.: CALC PERCENTAGES & PRINT.:V$(P(P)).:((V$,2),1)"."V$V$".0".:V$V$" %"/:(V$)6V$" "V$:150ER"-'M$(11)"NOVEMBER"/-'M$(12)"DECEMBER"5-'e-.24:6:"PLEASE ANSWER WITH 'Y' OR 'N'";:1k-.v-216000-2" (NONE WERE ENTERED.)":9010:9:" TOTAL EXPENSES: $0.00":12:7:"PRESS RETURN TO CONTINUE.";:678:0:2500(.:WL1:" ";:WWWL:" ":::32,WL1:33,WW2:34,WT:35,WB1:WT1:Z,j'M$(1)"JANUARY"o,t'M$(2)"FEBRUARY",~'M$(3)"MARCH",'M$(4)"APRIL",'M$(5)"MAY",'M$(6)"JUNE",'M$(7)"JULY",'M$(8)"AUGUST",'M$(9)"SEPTEMBER"-'M$(10)"OCTOB15000+:9010+0M+23:7:"PRESS 'RETURN' FOR MENU. ";:678:2500S+@Y+Jp+T:"RUN PROGRAMS"v+(#+2#OO$"OFF"āQR140:"-";:::+<#384:40);::380+F#+' BORDERF,B'WT:WL1::WW):WB:WL1:WW):WT1:TWTWB2005*"TRANSPORTATION EXPENSES ";:PS:15000i*"CREDIT CARDS ";:PS1:15000*"GROCERIES ";:PS2:15000*"MISCELLANEOUS EXPENSES ";:PS3:15000+"SAVINGS ACCOUNTS ";:PS4:MM);" ";YY):90103)S5MUTTSS1S2S3S4b)"ITEM % OF INCOME"h))"MORTGAGE OR RENT ";:PM:15000)"GAS & ELECTRICITY (UTILITIES) ";:PU:15000*"TELEPHONE ";:PTT:150 (4300.(:" ENTER THE ITEM NUMBER: ";RZ(,:" ENTER THE ACCOUNT: ";R;:"";S$(R)e(1QS(R)(6:" ENTER THE AMOUNT: $";S(R)(JS4(S4Q)S(R)(c4500(p(q16000(z9010(N$"BUDGET FOR THE MONTH OF" )50:16(M$(MM))2);M$(R THE DAY OF THE MONTH: ";:"";D(R).'iQG(R)R'n:" ENTER THE AMOUNT: $";G(R)e'S2(S2Q)G(R)o'4100':" ENTER THE ITEM NUMBER: ";R':" ENTER ITEM NO.";R;:": ";I$(R)'QI(R)':" ENTER THE AMOUNT: $";I(R)'S3(S3Q)I(R)AMOUNT: $";T1(R)"&S(SQ)T1(R),&3700Q&:" ENTER THE ITEM NUMBER: ";R}&:" ENTER ACCOUNT NO.";R;:": ";C$(R)&QC1(R)& :" ENTER THE AMOUNT: $";C1(R)&S1(S1Q)C1(R)&73900&P:" ENTER THE ITEM NUMBER: ";R#'d:" ENTE TOTAL EXPENSES: $";:VS4:140004%0l%:" WOULD YOU LIKE TO CHANGE ANY DATA? ";:N$:N$}% N$"Y"5400%*2500%$8000%:" ENTER THE ITEM NUMBER: ";R%:" ENTER ITEM NO.";R;:": ";T$(R)%QT1(R)&:" ENTER THE $16000+$MM$(MM):MM10MM$"0"MM$g$" SAVINGS ACCOUNT EXPENSES "MM$"/"((YY),2):9010$" ACCOUNT AMOUNT":$N4013000$I1N41$I;". ";S$(I);$32)"$";:VS(I):14000$I$9010-%" AMOUNT":#N3013000(#I1N31=#I;". ";I$(I);Y#32)"$";:VI(I):14000`#Ij# 9010#" TOTAL EXPENSES: $";:VS3:14000#0#0:" WOULD YOU LIKE TO CHANGE ANY DATA? ";:N$:N$#DN$"Y"5300#b2500# $";:VS2:14000"P0P"h:" WOULD YOU LIKE TO CHANGE ANY DATA? ";:N$:N$a"|N$"Y"5200k"2500q"|"16000"MM$(MM):MM10MM$"0"MM$"" MISCELLANEOUS EXPENSES "MM$"/"((YY),2):9010 #" ITEM AMOUNT":#!N20130001!I1N21@!"I;". ";h!'DTE$(MM)"/":MM10DTE$"0"DTE$!(D(I)10DTE$DTE$"0"!)DTE$DTE$(D(I))"/"((YY),2):DTE$;!,32)"$";:VG(I):14000!6I!E9010"O" TOTAL EXPENSES:AL EXPENSES: $";:VS1:14000$ 0\ :" WOULD YOU LIKE TO CHANGE ANY DATA? ";:N$:N$m N$"Y"5100w 2500}  16000 MM$(MM):MM10MM$"0"MM$ " GROCERY EXPENSES "MM$"/"((YY),2):9010!" DATE M$(MM):MM10MM$"0"MM$VA" CREDIT CARD EXPENSES "MM$"/"((YY),2):9010F" ACCOUNT AMOUNT":KN1013000PI1N11ZI;". ";C$(I);d32)"$";:VC1(I):14000nI}9010 " TOTNT013000I1NT1-I;". ";T$(I);J32)"$";:VT1(I):14000QI[9010" TOTAL EXPENSES: $";:VS:140000:" WOULD YOU LIKE TO CHANGE ANY DATA? ";:N$:N$N$"Y"5000 2500<=16000>MN$ N$"Y"3570 :2500O 1:868:" ENTER THE CORRECT AMOUNT: $";TT[ :2500atlu16000vMM$(MM):MM10MM$"0"MM$y" TRANSPORTATION EXPENSES "MM$"/"((YY),2):9010~" ITEM AMOUNT": ?";:N$ N$"Y"3370 ( 2500W* 1:868:" ENTER THE CORRECT AMOUNT: $";U]/ g4 2500m  WT6:WB12:WL2:WW37:10050: 16000 " TELEPHONE CHARGES = $";:VTT:14000  0 " WOULD YOU LIKE TO CHANGE THIS?";:HIS?";:N$N N$"Y"3170!S +X 2500Zb 1:868:" ENTER THE CORRECT AMOUNT: $";M`g jl 2500p  WT6:WB12:WL2:WW37:10050: 16000 " GAS & ELECTRIC (UTIL.) = $";:VU:14000  0 " WOULD YOU LIKE TO CHANGE THIS0 N1060003 N11OO$"OFF"OO$"ON":2500V N11OO$"ON"OO$"OFF":2500b N12Ĭq N134900w & WT6:WB12:WL2:WW37:10050:' 160000 " MORTGAGE/RENT = $";:VM:14000: ? 0 D " WOULD YOU LIKE TO CHANGE TRINTER ";OO$"z "12. START OVER"2{ "13. QUIT"j 22:1:868:" WHICH WOULD YOU LIKE? (1-13) ";N} N1N132690  N13100 N23300 N33500 N43700 N53900 N64100 N74300 N84500 N9180P " 5. LIST CREDIT CARD EXPENSES"CZ " 6. LIST GROCERY EXPENSES"jd " 7. LIST MISCELLANEOUS EXPENSES"n " 8. LIST SAVINGS ACCOUNT EXPENSES"s :" OR:"::" 9. SHOW COMPLETE PRINTOUT AGAIN"v "10. SHOW PERCENTAGE BREAKDOWN" x "11. TURN PuVS5:140000'6160- N WT1:WB24:WL1:WW38:10050f :" OPTIONS:":( " 1. SHOW MORTGAGE OR RENT"2 " 2. SHOW GAS & ELECTRIC (UTILITIES)"< " 3. SHOW TELEPHONE EXPENSES"F " 4. LIST TRANSPORTATION EXPENSES""ERIES $";:VS2:14000["MISCELLANEOUS EXPENSES $";:VS3:14000"SAVINGS ACCOUNTS $";:VS4:14000 S5MUTTSS1S2S3S4*49010>OO$"ON"Ğk" TOTAL EXPENSES FOR MONTH ";ps" = $";MORTGAGE OR RENT $";:VM:14000]"GAS & ELECTRIC (UTILITIES) $";:VU:14000"TELEPHONE $";:VTT:14000"TRANSPORTATION EXPENSES $";:VS:14000"CREDIT CARDS $";:VS1:14000("GROCN4;:" => ";S$(N4)1S$(N4)"DONE"ĉ::1800X"ENTER AMOUNT PAID => $";S(N4)^nS4S4S(N4)x1650~ 160009010N$"BUDGET FOR THE MONTH OF":50&16(M$(MM))2);M$(MM);" ";YY0:9010D+l":N$:N$;ON$"N"ĺ::18009YN$"Y"İ12000:1610WZ:13:"SAVINGS ACCOUNTS"w^WT2:WB8:WL3:WW33:10000h:"ENTER 'DONE' FOR 'ACCOUNT' WHEN":" ALL DATA HAS BEEN ENTERED.";j:11:34,10krN4N41|"ENTER ACCOUNT NO. "; ":" ALL DATA HAS BEEN ENTERED."4:11:34,10@N3N31j"ENTER ITEM ";N3;:" => ";I$(N3)I$(N3)"DONE"ĉ:1600"ENTER AMOUNT => $";I(N3)S3S3I(N3)1450@ J8:"DO YOU HAVE SAVINGS ACCOUNTS TO ENTER? ";N2) S2S2G(N2)# 1250)xd8:" DO YOU HAVE MISCELLANEOUS EXPENSES? ";:N$:N$;xN$"N"ĺ:1600N$"Y"İ12000:1410:10:"MISCELLANEOUS EXPENSES"WT2:WB8:WL3:WW33:10000#:" ENTER 'DONE' FOR 'ITEM' WHEN XPENSES"(WT2:WB8:WL3:WW33:10000u:" ENTER ZERO (0) FOR THE DATE ":"WHEN ALL DATA HAS BEEN ENTERED.";:11:34,10N2N21"ENTER THE DAY OF THE MONTH => ";D(N2)D(N2)0ĉ:1400"ENTER THE AMOUNT SPENT => $";G(ACCOUNT ";N1;:" => ";C$(N1)9)C$(N1)"DONE"ĉ:1200]."ENTER THE AMOUNT => $";C1(N1)c3t8S1S1C1(N1)~B10608:" DO YOU HAVE GROCERY EXPENSES? ";:N$:N$;N$"N"ĺ:1400N$"Y"İ12000:1210:13:"GROCERY EREDIT CARD EXPENSES? ";:N$:N$;4N$"N"ĺ:1200NN$"Y"İ12000:1010p:11:"CREDIT CARD EXPENSES"WT2:WB8:WL3:WW33:10000:"ENTER 'DONE' FOR 'ACCOUNT' WHEN":" ALL DATA HAS BEEN ENTERED.":11:34,10$N1N11:"ENTER TER 'DONE' FOR 'ITEM' WHEN ALL":" DATA HAS BEEN ENTERED."C JR K11:34,10^ RNTNT1 \"ENTER ITEM ";NT;:" => ";T$(NT) aT$(NT)"DONE"ĉ:1000 f"ENTER AMOUNT => $";T1(NT) h pSST1(NT) z850  8:" DO YOU HAVE CCOST: $";U:; "ENTER THE TELEPHONE CHARGES: $";TT:A | *8:" DO YOU HAVE TRANSPORTATION EXPENSES? ";:N$:N$; 9N$"N"ĺ:1000 <N$"Y"İ12000:810 = >1:9:"TRANSPORTATION EXPENSES" CWT2:WB8:WL3:WW34:10000= H:"EN1:958:"WHICH MONTH IS THIS LIST FOR? (1-12) ";MMG vMM1MM12628z 23:1:958:M$(MM);" OF WHAT YEAR? ";:"";YY :10(M$(MM))2);"FOR THE MONTH OF "M$(MM)":":: "ENTER THE MORTGAGE/RENT PAYMENT $";M: "ENTER GAS/ELECTRIC/UTIL. TRANSPORTATION EXPENSES"0 " 5. CREDIT CARDS"L &" 6. GROCERY EXPENSES"n ?" 7. MISCELLANEOUS EXPENSES" X" 8. SAVINGS ACCOUNTS": q:9010 rASKEDĢ23:1:"WOULD YOU LIKE INSTRUCTIONS? (Y/N) ";N$:(N$,1)"Y"İ17000:ASKED1:2503 t23:510)10 250' 220(N$)2)N$:5 ::9010Z ,:9)"SOFTYME MONTHLY BUDGET":f w9010: "THE FOLLOWING CATEGORIES ARE INCLUDED": " 1. MORTGAGE OR RENT " " 2. GAS & ELECTRIC (UTILITIES)" " 3. TELEPHONE " " 4. 7+BBY PAUL A. PAGE ALTERATIONS BY DAVE HERSEY _SLOT1: PRINTER SLOT.lOO$"ON"M$(12),T$(100),T1(100),C$(100),C1(100),D(100),G(100),I$(100),I(100),S$(100),S(100):10090 P(X)(100000(10000(XS5)1005)100000000               N)";(8)(8)(8)(8);:A$2A$"N"X$"X":540T23:1::(4);"RUN PROGRAMS"B470 h1690rX$"X"!|FL1'-p23:1::"=== TO CONTINUE PRESS KEY ===";::S$;:A$x:~ REPLAY ROUTINE2:5:"GOOD GUYS:"4:7:"GAMMITS:"2:16:WY4:16:WG7:"ANOTHER GAME? (Y/ (Y/";::"N";::") -- PRESSING RETURN IS THE SAME AS AN ";K$;"N";K$;" ANSWER. ======"@:"NO REQUIRED IN SELECTION OF NUMBERS TO MOVE THE FLYING GAMMITS."J1690TT16:X$"O":1150:T^5:8::" WE'RE WAITING FOR YOU! "::1690""SPECIAL NOTE:"::"TO MAKE LIFE EASIER, WHEN YOU NEED TO ANSWER A QUESTION LIKE (Y/N)...IF ONE OF THE LETTERS IS ";K$;"LIGHTED UP"K$;", JUST","PRESSING WILL MAKE THAT ANSWER WORK. ====":Z6"IF YOU SEENCES TO GET":"YOU! ====":"THE IDEA IS FOR YOU TO GET THE GAMMITS BEFORE THE GAMMITS GET YOU. AFTER A WHILE YOU WILL SEE WHY THE GAME HAS BEEN";"OFTEN CALLED ";K$;"DOD GAMMIT";K$;".":"GOOD LUCK!":). WHEN ASKED ";K$"TO:";K$;" TYPE A NUMBER OF GAMMITS (OOO'S). s:"EVERYTHING ELSE HAPPENS AUTOMATICALLY.":::"TO QUIT AT ANY TIME - ENTER ZERO ":1690>"AFTER YOU ";K$;"GET";K$;" A GAMMIT, HE (SHE?)":"(IT?) GETS FROM 1 TO 6 CHA GET TO MOVE INTO THE PLACE OCCUPIED":"BY THE ";K$;"GAMMITS";K$" (THE BAD GUYS) MADE OF ";K$;"O";K$;"'S"::"WHICH LOOK LIKE THIS:"1690T(6(1))1:X$"O":11501690C"WHEN ASKED ";K$;"FROM: ";K$;" TYPE A NUMBER WITH GOOD GUYS (XXX'S === ====== =======":1x34,3k"THE FLYING GAMMITS IS AN EASY GAME TO LEARN...":"YOU (THE GOOD GUYS) ARE THE ";K$;"THINGS";K$:"WITH XXX'S, WHICH LOOK LIKE THIS:"1690T(6(1))1:X$"X":11501690"YOU710%(" AFTER ";GT;" TRIES.":1710r2 CRUNCHING,ZAPPING,WIPING OUT,PULVERIZING,SMASHING,DEMOLISHING,WRECKING< MAIMING,MANGLING,DEVASTATING,SACKING,CRACKING,LIQUIDATING,RAZINGFP INSTRUCTIONSZd'n11:"THE FLYING GAMMITS 1:868YY05/PYY:(T6)4:C$(YY)7YYTP6:(T6)4:" ";[Pl16:(T6)3X$"X"Ğ:BZ19:SD(NZ):BZX$"O"ğ:BZ15:ZB15:SD(NZ):ZB:BZ S$;:(T6)1:S$;:GT2ĺ" AFTER ";GT;" TRY.":1IN$X18321871,.(X)207111038XtB23:1:868:"GOOD GUYS WIN!";:I15:B$;:I:WYWY1:1310zLV NO WINNER, TRY AGAIN `jt~ CHANGE THE GAMMIT 380P414BZ12:SD(NZ):BZP1:I z680 # GAME OVER?):X18321871@Z LOOK FOR GAMMIT WIN`s(X)2161040zX GAMMITS WIN 23:1:868:"THE DOD GAMMITS WIN!";:I15:B$;:I:WGWG1:1310 LOOK FOR GOOD GUY WISS(NZ):X:NZ,0:470:6800 J((R6)1827);X$"O"D 910J*^4 IF A HIT THENr> ZAP GOOD GUYSxHRH(14(1))1\23:1:868:198:Y$(H)" #";R;" WITH ========> ";::"ZAP";::"#";I;S$;:B$:255:470:TR:1150f910pL0 W((F6)1827):X$(W)N 16:(F6)3::S$;:(F6)1:S$;::X$"X"y 23:1:" TO: ";:T$:T(T$):TF680 1150 E((6F)(1))1 I1E R(7(1))1R6Ģ23:1::" Z.Z.Z.Z.Z.Z.Z.Z.Z.Z.Z.Z.Z.Z.Z.Z.Z ZIP ";::X125:M REMINDER... "::11:2:"THESE ARE";:20:" AND THESE ARE"i FL1Ģ12:2:"GOOD GUYS";:21:"GAMMITS"o   START PICKIN' 'EM  23:1:868:"FROM: ";:F$:F(F$):GTGT1:F0Ģ23:1:868:"GAME OVER";:1310 L912:L:1:868:L:F(8)(8);:A$6 A$"Y"J1$(92):J2$(47):J3$(95)i :3:"NEED INSTRUCTIONS? (Y/N)";(8)(8);:A${ A$"Y"İ1350  & 0 PUT 'EM DOWN : DT16 N1150 XT3X$"O" bT lX16:21:(X6)2:X:X; vFL1Ģ9:1::"GAMMITS ( C$(0)S$J1$S$J2$S$A C$(1)X$X$X$X$X$Z C$(2)X$S$X$S$X$j C$(3)C$(1)| C$(4)" ! ! " C$(5)J3$"! !"J3$  Z1700:Z:  (1101)6A$"Y":510 "CAN YOUR APPLE DISPLAY LOWER CASE? (Y/N)";4) X$(88) "S$(32)* ,NZ16336J 6J1$(35):J2$J1$:J3$(94)U @T(1)1a JY$(14)w TX114:Y$(X):X ^380:13:X05:C$(X):X:10:13:"FLYING GAMMITS":Z12000:Z:20:13:"BY PAUL RAYMER":Z12000:Z h480 r | CREATE U d::n"x DOD GAMMIT8 A GAME WITH THEM FLYING GAMMITSSe PAUL RAYMERk PAUL'S ELECTRIC COMPUTER 3464 TOWNHOUSE DR LAS VEGAS NV 89121 I/VII/MCMLXXXIIB$(7) K$(3     / DUMMY TOUR-(4);"RUN TOURMENU"   678 5u:u!@:40);:::A"THE AIMING POINTS ARE:":("1-HELM"H"2-UPPER LEFT (OF SHIELD)"^"3-UPPER MIDDLE"s"4-UPPER RIGHT""5-LOWER LEFT""6-LOWER MIDDLE""7-LOWER RIGHT""8-BASE OF SHIELD"/u0u(22):20)"PRESS ";::"YOU ARE NOW READY TO TRY AGAIN.":1700:620\h:"SORRY, BETTER LUCK NEXT JOUST.":1670r::"HURRAH!! YOU ARE THE WINNER!!"|"HERE COMES THE BRIDE!":"WANT TO TRY AGAIN (Y/N) ";A$A$"Y"ė:255:380(4);"RUN PROGRAMS":::"YOU HAVE WON THIS JOUST.":::XX12500:XX:A"AK,16506:"TOO BAD YOU LOST!!":ZZ160:BZ(49200):ZZ@"HOPE YOUR INSURANCE IS PAID UP.":1640J:"TOO BAD, YOU BOTH LOST."T"AT LEAST YOUR HONOR IS INTACT.":1640.^YOUR LANCE")"BUT UNSEATED YOUR FOE."8T15:1510>s"YOU INJURED AND UNSEATED YOUR FOE.":T15:1510y"YOU BROKE YOUR LANCE""BUT UNSEATED YOUR OPPONENT.":T15ST1S01630ST11610ST11550ST11590%!)":T10:1510Fn:"YOU HIT HIS SHIELD BUT GLANCED OFF.":T10:1510x:"YOU KNOCKED HIM OFF HIS HELM (CHEERS!)":T10:1510:"YOU BROKE HIS LANCE (CRACK..)":T10:1510:"YOU UNSEATED HIM (CHEERS AND HUZZAHS)":T15:1510 :"YOU BROKE B1380,1410,1420,1380,1480,1390,1380,1390Z<B1380,1380,1390,1410,1380,1410,1480,1420FB1400,1410,1410,1390,1410,1480,1390,1430PB1420,1410,1480,1390,1380,1430,1390,1390ZB1380,1380,1460,1420,1410,1410,1390,1410d:"YOU MISSED (HISSOU (CLANG!)":S5"E((1)6)1LD1260,1270,1280,1290,1260,1280,1300`E41240:1310tE31240:1310~1310 E1E31240:1310E2E31240E1320,1330,1340,1350,1360,1370(B1380,1420,1430,1390,1410,1480,1390,1410+2j.t"HE UNSEATED YOU (THUD!)":S5:12404~O"HE BROKE HIS LANCE,"w"INJURED AND UNSEATED YOU (OUCH!)"S5:1240"HE HAS INJURED AND UNSEATED YOU (CRASH)":S5:1240"HE HAS BROKEN YOUR LANCE,""AND UNSEATED Y0,1050,1210,1070,1070,1070?C1110,1070,1150,1110,1150,1110Ee$"HE MISSED YOU!":S0:1240k.8"HE HIT YOUR SHIELD BIT IT GLANCED OFF.":S0:1240BL"HE KNOCKED OFF YOUR HELM!":S0:1240V`"HE BROKE HIS LANCE.":S0:1240000,1010,1020,1030,1040<C1050,1050,1050,1090,1130,1050aC1130,1110,1050,1110,1110,1050C1150,1130,1070,1110,1210,1190C1070,1050,1110,1070,1070,1130C1110,1210,1050,1110,1050,1110C1210,1070,1110,1210,1150,1110C107 LEAN,"R" 4-STEADY SEAT,"6\" 5-SHIELD HIGH,"Nf" 6-SHIELD LOW."Wp930lz"1-LOWER HELM,"" 4-STEADY SEAT,"" 5-SHIELD HIGH,"" 6-SHIELD LOW.":"WHAT IS YOUR CHOICE ";CD((1)8)1D970,980,990,1EAN,"" 4-STEADY SEAT,"7" 5-SHIELD HIGH,"R" 6-SHIELD LOW."[930p"1-LOWER HELM," " 2-RIGHT LEAN,"" 3-LEFT LEAN," " 4-STEADY SEAT,"*" 5-SHIELD HIGH,"4" 6-SHIELD LOW.">930H"2-RIGHT!!" b1700l7v"YOUR AIMING POINT (1-8) ";B:HA1A8620Nz"YOU MAY USE ONE OF THESE DEFENSES:":B680,720,770,840,680,770,680,890"4-STEADY SEAT,"" 5-SHIELD HIGH,"" 6-SHIELD LOW."930"3-LEFT L620- "YOU ARE DOING WELL ! YOUR THIRD"U "JOUST IS AGAINST THE RED KNIGHT."[ e 1700n &620 0"THIS IS YOUR FINAL TEST!!" :"IF YOU WIN ONE, THE PRINCESS IS YOURS." D N"THIS FIGHT IS AGAINST THE"X"FIERCE BLACK KNIGHT!!14 A410,460,510,560;  OFF WE GO TO THE JOUST \ "THIS IS YOUR FIRST JOUST." "YOU ARE UP AGAINST THE GOLD KNIGHT."  1700 620 "THIS IS YOUR SECOND JOUST." "YOUR OPPONENT IS THE SILVER KNIGHT."  1700 R MIDDLE" "4-UPPER RIGHT"2 "5-LOWER LEFT"H ""6-LOWER MIDDLE"] ,"7-LOWER RIGHT"u 6"8-BASE OF SHIELD"{ @ J"IF YOU BREAK A LANCE OR LOSE A HELM," T"YOU WILL BE GIVEN ANOTHER." ^:"GOOD LUCK, SIR!" h250: r30000 |ANG KNIGHTS !!":: "TO JOUST, YOU PICK AN AIMING POINT"e "FOR THE LANCE, AND THEN ONE OF FROM" "3 TO 6 DIFFERENT DEFENSE POSITIONS." 30000 :"THE AIMING POINTS ARE:": "1-HELM" "2-UPPER LEFT (OF SHIELD)" "3-UPPE16368,01 d:18:"WHAT IS YOUR FIRST NAME? ";A$7 nd x"SIR ";A$;", YOU ARE A MEDIEVAL KNIGHT" "IN A JOUSTING TOURNAMENT.": "THE WINNER'S PRIZE IS THE HAND" "OF THE PRINCESS IN MARRIAGE.": "TO WIN, YOU MUST BEAT" "FOUR STRO"  :100J40000::12)"SOFTYME JOUSTING"12);:40000:40000:34,5j:18:"BY: MARTY THALISON"(XX1304:BZ(49200)(49200)26:XX:"JOUST-->":6:868:BZ(49200):XX <255:22:(7);"PRESS TO CONTINUE...":16384,128:        sKTK176:. tKT1ĺ(4);"RUN HOME BUDGET"H uKT2ĺ(4);"RUN TOC"q x16368,0:K175K186SP30(K176) I1SP::90N"(KEYS 3-9 CONTROL SPEED.) ";:I11999::1:868h K:89)"SOFTYME FEATURE PROGRAM"88): PL40āIL140:A$A$" ": ZPP1:P40P1 d12:1:(A$,41P);:P1ĺ(A$,P1) nK(16384):K128130:868 o868 p16368,0 r ------------------------------- ADAPTED FROM BEAGLE BROS. TIP DISK #1 -------------------------------  :1000:SP50(A$"1 = RUN 'HOME BUDGET' 2 = MENU"2:3:A$:L(A$)<I312:I1:868:I:A$:J199::= F1:):"RETURNING TO THE TABLE OF CONTENTS......"Aj(4);"RUN TOC"GSE GROWING NUMBER OF PROGRAMS INCLUDED EVERY MONTH, WE ARE NOW PUTTING PROGRAMS ON BOTH SIDES OF THE SOFTYME DISK. BE SURE TO TRY THEM ALL!"PíOO$"ON"OO$"OFF":50020ZíOO$"OFF"OO$"ON"dL$(13)"TURN PRINTER "OO$:_-`:::(09EARS ON THE BACK SIDE OF THE SOFTYME DISK."M$(21)"WHETHER YOU HAVE A COMPUTER TO SELL OR A SERVICE TO OFFER, ADVERTISING WITH SOFTYME IS THE WAY TO GO! THE RATES FOR ADVERTISING SPOTS APPEAR ON THE BACK OF THE SOFTYME DISK."M$(23)"DUE TO THTHE BACK OF THE SOFTYME DISK. THE PRO- GRAM IS AN EXCELLENT APPLESOFT TUTORIAL WRITTEN BY JOHN BELTRAMI. BE SURE TO CHECK IT OUT!",M$(19)"'INFORMATION PLEASE' IS THE SECTION WHERE YOU'LL FIND ANSWERS TO OUR MOST FREQUENTLY ASKED QUESTIONS. IT APPENO REVIEW THREE NEW PRODUCTS: 'TAKE 1' BY BAUDVILLE, THE 'PRINT SHOP' BY BRODERBUND SOFTWARE, AND THE 'SYSTEM SAVER' BY KENSINGTON MICROWARE. SHOP "M$(16)"SMART WITH SOFTYME'S PRODUCT REVIEWS!"M$(17)"THIS MONTH THERE'S A BONUS PROGRAM ON SIDE OF THE SOFTYME DISK."|M$(13)"DO YOU BELIEVE IN ASTROLOGY? WELL, WHETHER YOU DO OR NOT, YOU'RE BOUND TO GET A CHUCKLE OUT OF THIS MONTHS HORO- SCOPES! THEY APPEAR ON THE BACK OF THE SOFTYME DISK."M$(15)"THIS MONTH DAVE HERSEY AND ROB LhM$(9)"THE INDEX TO ADVERTISERS APPEARS ON THE FRONT OF THE DISK. THERE'S NO TELLING WHAT YOU'LL FIND IN THIS SECTION - BUT IT'S SURE TO BE A BARGAIN!"rM$(11)"'YOUR INPUTS PLEASE' IS OUR 'LETTERS TO THE EDITOR' SECTION. IT APPEARS ON THE FLIPTH OF YOUR NETWORK. ^M$(7)"IN THIS MONTHS 'COMPUTER NEWS AND VIEWS' SECTION WE PRESENT PART 1 OF 'HISTORY OF COMPUTERS'. A FASCINATING LOOK AT THE EVENTS THAT LED TO THE DEVELOPMENT OF TODAY'S COMPUTERS. WATCH FOR PART 2 IN NEXT MONTH'S ISSUE."UDGET' APPEARS ON THE FRONT OF THE DISK AND ALLOWS YOU TO CALCULATE YOUR MONTHLY EXPENSES. 'SHAMROCKS' IS A CHALLENGING"KM$(4)" CARD GAME BY PAUL ZELMAN, AND APPEARS ON THE BACK OF THE DISK."TM$(5)"THIS MONTH'S EDITORIAL PAGE DEALS WITH THE GROWON THE FRONT IS NAMED 'TOC'. ON THE BACK OF THE DISK, IT'S CALLED 'FLIPSIDE TOC'. MOST OF THE PROGRAMS IN SOFTYME EITHER EXIT TO THEM, OR A MENU CALLED 'PROGRAMS'. xJM$(3)"THE FEATURE PROGRAMS THIS MONTH ARE 'HOME BUDGET' AND 'SHAMROCKS'. 'HOME BYOUR HOROSCOPE"/(NL$(8)" PRODUCT REVIEWS"M)NL$(9)" BONUS PROGRAM"q*NL$(10)" INFORMATION PLEASE"+NL$(11)" ADVERTISING RATES",NL$(12)" EXIT TO THE MAIN MENU"-NL$(13)" TURN PRINTER "OO$@M$(1)"THE TABLE OF CONTENTS 8:1000 N THE STRINGS @ !NL$(1)" TABLE OF CONTENTS"a "NL$(2)" FEATURE PROGRAMS" #NL$(3)" EDITORIAL PAGE" $NL$(4)" COMPUTER NEWS AND VIEWS" %NL$(5)" INDEX TO ADVERTISERS" &NL$(6)" YOUR INPUTS PLEASE"'NL$(7)" THEN CALL MENU ROUTINE <<# 1004 L12İ60000K L13İ50000:1000R 1g OO$"OFF"ĊSLOT 6:958:M2(L1)1:M$(M):M$(M1) 0 T 23:1:384:"YOU SELECTED ";L$(L);27(L$(L)));:380  20:10:"PLEASE PRESS RETURN...";:67 ] ABOUT THIS ISSUE: ["- 6:20000b LL112:L$(LL)::5::(L$(13),(L$(13))4): B(20):"THE ARROW KEYS MOVE THE POINTER. PRESS RETURN TO SEE YOUR SELECTION.";  >> THEN SET BEGIN AND LAST << BEGIN6:LAST18  >>ONE LINE << 6000 LL1:(LBEGIN)LLAST9 200? X X >> CLEAR '->' <<f b1:" ";l lr   << FIRST PRINT MENU ITEMS >>  << LEAVE COL. 1 & 2 BLANK >> ::" SOFTYME BOX 299 NEWPORT, R.I. 02840 ";:  " CHAR, MOVE '->' <<0 1C32ĭ(16384)127320Z 616384,128:C(16384)128:16368,0n @C32C21İ400 EC32āC30031: JC8İ500 T  >> MOVE DOWN ONE LINE << 600 LL1:LLASTLBEGIN 200   >> MOVE UP HSLOT1: PRINTER SLOT(OO$"ON"8::L$(15)DM$(26)N 1000ed ABOUT THIS ISSUEmC0~LBEGIN:200I01:300:I(C13)LLBEGIN1 >> PRINT '->' ON LINE 'L' <<1:L"=>"; , >> GET           SR$;::M$(A$,I,1):M$;:M$" "M$"."āJ125150(M$"."):` PM$" "āJ12:S(16336):p Z:868:: dA$"":I140:A$A$"-"::70:34,8:  :40)::C0 7? 8"PRESS 1 TO RUN AGAIN OR 2 TO EXIT. ";:S$:S(S$)R 9S:S1S256 :S2ĩ255:(4);"RUN INDEX TO ADVERTISERS" ;S1ĉ:: <:100:255:22: =S2ĺ(4);"RUN INDEX TO ADVERTISERS" A:100:255:22 E> FI1(A$)::CUR THE CONTROL CODES APPEAR IN YOUR PRINTERMANUAL.":70 6A$"SEND $7.95 TO: SOFTYME LABEL MAKER.....P O BOX 299 NEWPORT,R.I. 02840.........IT'S LISTABLE, COPYABLE, AND AS USUAL...........................................GUARANTEED TO PLEASE!":7TTERS AND VALUABLE KEEPSAKES? LET THE LABEL MAKER DO IT FOR YOUSAVING TIME AND LOOKING NEAT."> 570:A$"THE LABEL MAKER IS CONFIGURED FOR EPSON AND EPSON WORKALIKES. WE CAN RECONFIGUREIT FOR YOUR PRINTER.....IF YOU SEND THE CONTROL CODES WITH YOUR ORDER.GETSTANDARD, COMPRESSED, CUSTOM, FULL SIZE,AND.....YOU CAN SAVE YOUR VERY OWN MOST USED LABELS.":70n 3A$""] 4A$"IS YOUR DISK FILE FULL OF NON-STANDARD, HANDWRITTEN LABELS? DO YOU FIND YOURSELFWRITING YOUR RETURN ADDRESS OVER AND OVER ON DISKS, LE LABEL MAKER $ ::* 42000W:13)"[ LABEL MAKER ]"12):a2000vCURSR$"+>":210I1(CURSR$):CURSR$CURSR$(8):(7:100d 2A$"FINALLY.......AN INEXPENSIVE LABEL MAKERTHAT'S BOTH EASY AND FUN TO USE. YOU    EZ FI1(A$)::CURSR$;::M$(A$,I,1):M$;:M$" "M$"."āJ125150(M$"."):| PM$" "āJ12:S(16336): Z:868:: dA$"":I140:A$A$"-"::70:  :40)::CD ONLY FROM ....SOFTYME.":70# 7[ 8"PRESS 1 TO RUN AGAIN OR 2 TO EXIT. ";:S$:S(S$)n 9S:S1S256 :S2ĩ255:(4);"RUN INDEX TO ADVERTISERS" ;S1ĉ:: <:100:255:22: =S2ĺ(4);"RUN INDEX TO ADVERTISERS" A:100:255:22ANENJOY THE SAME QUIET AND COMFORT AS THE PROS. WE ABSOLUTELY GUARANTEE YOU THAT THIS DRIVE WILL BE THE QUIETEST AND BESTYOU'LL EVER OWN.":70 5A$"FOR II+, IIE, AND NOW FOR IIC. THE IIC NEEDS NO INTERFACE, AND COMES READY TO HOOK UP. ONLY $225.00 AN.............NOW WE ARE OFFERING THE DISK DRIVE THAT ELIMINATES THE CLUNKS AND CLATTERS. YES, YOU'LL NEVER BELIEVE HOW QUIET DRIVING CAN BE.......":70 3A$"" 4A$"THE FOURTH DIMENSION SLIMLINE IS THE DRIVE USED BY PROFESSIONALS. NOW YOU C  SILENT DRIVING ( :1 215;2000a:11)"[ SILENT DRIVING ]"11):k2000CURSR$"+>":255I1(CURSR$):CURSR$CURSR$(8):(4:100 2A$"YOU WON'T BELIEVE YOUR EARS ............YOU CAN'T BELIEVE YOUR EARS!!!   : SOFTGRAPH,SILENT DRIVING,THE PRINT SHOP,LABEL MAKER, BPC,CLASSIFIEDS,TOC B(A4)::"ENTER YOUR SELECTION THEN PRESS RETURN ";I::216,0:(IN)(I1)200Y 280 936:10:8:A$(I);" IS LOADING.":D$;"RUN";A$(I):216,0: 216,0:936:10:8:"THE FILE ( ";A$(I);" )":14:11:"HAS NOT BEEN FOUND."X "I12500:::5: 02840":T$:10)"INDEX TO ADVERTISERS":B$:I1N:A$:A$(I)A$:K(K1):N10K.5m d((I))1L2:120u nL1 x(20KL):I;") ";(A$,15);:K1ĺ (K1)(N19)ĺ N10A(37):: K0A(37) A21ĂI (A3):B$: 200N Y16298,0:: 30XB$"----------------------------------------":N188:A$:216,0::NN1:A$(N):K1:D$"":D$;"NOMONI,O,C"::N36Ģ10:2:"THERE ARE MORE THAN 36 MENU ITEMS":I0:J12000::210U 2T$"SOFTYME BOX 299 NEWPORT, RI!!!!!5.":D8"PRESS 1 TO RUN AGAIN OR 2 TO EXIT.";:S$:S(S$)MD9S:S1S256D:S2ĩ255:::(4);"RUN INDEX TO ADVERTISERS"D;S1ĉ:: S ENVELOPES, COLORED PRINTER PAPER AND OF COURSE A 100% NO QUESTIONS ASKED GUARANTEE FROM SOFTYME."D2:"USE THE ENCLOSED ORDER FORM OR WRITE TO SOFTYME, P O BOX 299 NEWPORT, RI 02840 OR CALL 401-849-4925. THIS PACKAGE HAS EARNED A SOFTYME RATING OF 9.HOP', AND YOU GET SO MUCH MORE WITH IT!"QB#:26)"PRESS RETURN";:678:936yB(:" SOFTYME ";::"SPECIAL OFFER "bC-:"REGULARLY PRICED AT $49.95, YOU GET 'THE PRINT SHOP' FOR ONLY $39.95 WHEN YOU ORDER FROM SOFTYME. THE PACKAGE IN-CLUDESETTERHEAD, GREETING CARDS WITH THE EASE OF KEYBOARD OR JOY-STICK CONTROL."RA*B"YOU'LL LOVE 'THE PRINT SHOP' FOR ITS HIRES GRAPHIC PRINTER DUMP CAPABILITY ALONE! YOU'VE SEEN OTHER SCREEN DUMP PACKAGES ONLY PRICED HIGHER THAN 'THE PRINT S@ :::120):@ L@"]]]]]]]]]]]] THE PRINT SHOP [[[[[[[[[[[[";:R@a@:120):l@34,10LA:"OUR FASTEST SELLING SOFTWARE PACKAGE ANDONE OF THE MOST USEFUL PACKAGES OF FUN YOU'LL EVER USE. YOU'LL BE MAKING SIGNS,BANNERS, POSTERS, L! ! ! ! ! ! F. HUTTON."3HB$(12)"COLLECT (401) 849 - 6300"9 ]"PRESS RETURN FOR MENU";:678c26)"PRESS RETURN";:678:936B 02840 "6 *B$(9)" GROWTH STOCKS FOR INVESTMENT" 4B$(10)"LEARN ABOUT INVESTMENT OPPORTUNITIES FOR THE FUTURE. THERE ARE EVER EXPAND- ING HORIZONS IN TODAYS INVESTMENT EN- VIORNMENT." >B$(11)"FOR A FREE BROCHURE CALL DENISE ROBERTS AT E." B$(7)"PACKED WITH INSTRUCTION FILES, AND COST-ING ONLY $7.50, LET THIS BE YOUR INTRO- DUCTION TO MACHINE LANGUAGE.....BEFORE YOU INVEST IN A HIGH PRICED ASSEMBLER." B$(8)"SEND TO: SOFTYME PO BOX 299 NEWPORT RI-800-272-1321"; B$(5)" MACHINE/ASSEMBLY LANGUAGE" B$(6)"YOU'LL ENJOY THIS INEXPENSIVE WAY TO BEGIN THE JOURNEY INTO THE WORKINGS OF MACHINE LANGUAGE AND ASSEMBLY CODE. TUTORIALS, UTILITIES, BINARY ENTRY MINI ASSEMBLER, AND MORE. B$(3)"PINPOINT COTTON OXFORDS, CLASSIC UNIVER-SITY STRIPE, AND THE TRADITIONAL DRESS SHIRT. ALL 100% GUARANTEED TO SATISFY COMPLETELY, OR YOUR MONEY BACK!" B$(4)"FOR A COMPLETE BROCHURE AND ORDER FORM, CALL 1-800-526-0988 EXT 118, IN NJ CALL 1ERS"   THE DASHP A$(1)"----------------------------------------"{ B$(1)" A CLASSIC INVESTMENT" B$(2)"100% COTTON OXFORD BUTTON DOWNS. CLASSIC AMERICAN MADE SHIRTS SHIPPED DIRECT TO YOU FROM BRISTOL TRADERS.  CLASSIFIEDS "B$(15)0::1000G14)"CLASSIFIEDS"Q#34,4^(:A$(1)u2B14:B$(B)::B<A$(1):F5000PB58:B$(B)::B:A$(1):5000ZB912:B$(B)::B:A$(1):50004000 (4);"RUN INDEX TO ADVERTIS""""""!!S" A:100:255:22 Ep FI1(A$)::CURSR$;::M$(A$,I,1):M$;:M$" "M$"."āJ125150(M$"."): PM$" "āJ12:S(16336): Z:868:: dA$"":I140:A$A$"-"::70:  :40)::C74157 LOS ANGELES, CA 90004":709 7:q 8"PRESS 1 TO RUN AGAIN OR 2 TO EXIT. ";:S$:S(S$) 9S:S1S256 :S2ĩ255:(4);"RUN INDEX TO ADVERTISERS" ;S1ĉ:: <:100:255:22: =S2ĺ(4);"RUN INDEX TO ADVERTISERE FIELD 'I LOVE MY APPLE' BUMPER STICKERS. II, II+, IIE, IIC, MAC, III AND LISA COMPATIBLE.":70:1 5A$"ONLY $2.00 EACH INCLUDING POSTAGE AND HANDLING. LET THE WORLD KNOW THAT YOU LOVE YOUR APPLE. ORDER YOURS TODAY! B.P.C. P.O. BOX  SILENT DRIVING & ::, 62000d:07)"[ B.P.C. BUMPER STICKERS ]"07):n2000CURSR$"+>":255I1(CURSR$):CURSR$CURSR$(8):(7:1002A$"":703SCSC1:SC350n 4A$"SNAPPY RED & BLACK ON A WHIT" " """ "UNABLE TO EXECUTE:"# 19)) 4 A$(B): K P12000:PQ XAGE"# A$(2)"INSIDE COVER PAGE "? A$(3)"FEATURE PROGRAM"T A$(4)"PROGRAMS"n A$(5)"THE FLIP SIDE" $A$(6)"EDITORIAL PAGE" .A$(7)"COMPUTER NEWS AND VIEWS" 8A$(8)"ABOUT THIS ISSUE" BA$(9)"INDEX TO ADVERTISERS" K  12B(B$) 6 21:1:868:4:"#";B;" SELECTED"C B0130[ D$(4): CONTROL Dd 255 2B1:5:"LOADING =>";::17:A$(B):: (4);"RUN ";A$(B)   ========= DATA HERE =========  THE STRINGS  A$(1)"COVER PR  2000d49168,0"n280-x:230c::"SOFTYME VOL. X, NO. 6 TABLE OF CONTENTS";:23:1:"SOFTYME BOX 299 NEWPORT, RI 02840";3:1X19::X".";::17:A$(X)::X255:5:"SELECT A NUMBER";::" ";:B$ """ " "