LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)r GRAFIXMO  !!۪%'MENU.40!! TYPE.CMD!! MAIN.80!!!/.PEEK.POKE.CALL7EXAMPLE.10gpp,ON.THIS.DISK} .O4EXAMPLE.11sq!4HELLO.TEXTO1O4,BASIC.SYSTEM(!! Ѳ 'STARTUP !!$'MENU.80n!5EXAMPLE.4-nnEXAMPLE.5/nnEXAMPLE.61nnEXAMPLE.7YppEXAMPLE.8[ppEXAMPLE.9appIII.BSB.15u' )BGRAF.INV(n!L+DISKNAME.DATn *MENU.MAKER  GnEXAMPLE.1'n!(EXAMPLE.2)nnEXAMPLE.3+ >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LGA3/1.01/LIN  `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.h   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN.GRAFIX jj# \\JHFD=;9210-,+*)!   v Q )``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @``` kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`hIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kLhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSE RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITEWBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'SOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK =+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM > selects; sets Prefix to .D1; aborts."12);::"80C";a$;:d$=DISKNAME$$=23:=0::"80C";d$;::12)1,180,22F=3:=14:"This /// SIG Disk is \^ 1991, Washington Apple `, Ltd."=4:B$(1)="":B$(2)="""A$ !"#$%&%(511),C$(20),name$(20):=10:=0n: GOSUB 1120 x=+B$(I),16,B)140 PREFIX$=.D1 #1, ž#1180I=0I=I+1:#1;A$(I):170#1 L=I-1j=1:same=0:/#9,".D1/DISKNAME.DAT":#9;DISKNAME$:#9Ta$="{,|,~,}; J/2)=4:=+1:ۙ=44PB$(J);:J=J+1ZI:8dA$(1000),B$(1000),CAPPLE ][ - APPLE /// GRAPHICS YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F ="BASIC 0":40,A$="TEXT 0":406A$="CAT 0":40@A$="FONT 0":40JA$="FOTO 0":40TA$(L),"BLOCKS")370*^=27:=19:"FREE MEMORY AVAILABLE: ";h=7:=20:"80C";A$(L);$r:=5:THPOS=4:I=1:IBOTM=J-1:480|Q=:=26:=21:1400 =Q:WW=0A=:A=21A=9oldprefix$=A=31110A=27:=".D1":980A=13630=THPOS:B$(I);A<8A>11400A-7500,520,550,580:=THPOS:B$(I);:380: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THP(EXAMPLE.1vn' 'A3.T 3Tn !'A24_n!!'A2.H5`n!!.'A3.T2 6n!p'RANDOM.A27n!!'RANDOM.A3 800:X::RELEASE:#530%& Menu.Maker v. 4.55.1 (side two)d.inv"C$=B$(I),16,B)array$="C%"name$=34)+C$+34)getfont(@name$,@array$)loadfont(@array$)30#5,".GRAFIX"".D1/BGRAF.INV"D$=B$(I),16,B)name$=34)+D$+34) GLOAD.D$16);1) GRAFIXONX=120);", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1580$"П,2))=0"12";џ,6);:ٟ;$,П,2))=>12" PM-":" AM-" 61630@WW=1390J=26:=21:1400 T1400 ^:WW=1:h |: CHANGE THE FONT".D1/downloa="FEBRUARY":1550M$="MARCH":1550M$="APRIL":1550M$="MAY":1550M$="JUNE":1550M$="JULY":1550M$="AUGUST":1550M$="SEPTEMBER":1550M$="OCTOBER":1550M$="NOVEMBER":1550M$="DECEMBER":1550826);"-";M$;" ";Ѡ,2)8=11010<9F=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING":P2,280,2 Z1310dn"x ..... "DATE.TIME.LINE" ....M=Ҡ,4,2))BM1430,1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540M$="JANUARY":1550M$SH$ SLOW FLASH :120#w=w+.5*(w=0):I=1(w*1000):: Halt Subroutine::=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING.": 1300(=23:=0::"79C";"CONTINUE...?":'(<>89<>121<>78<>11013202=70#4,B$(I),16,B)#5,".PRINTER" $ž#4120 .#4;a$ 8#5;a$ B1070LV:=24:=0::-`#8,".D1/FLASHNAME.DAT":#9;FLASH$:#8%jFLASH=110: FLASHER SUBROUTINEtSLOW=110~FLASH/2=FLASH/2):۴ =11:=07 FLA:=".d1":=12:=0:120=+B$(I),16,B)1408A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0 :120;::=23:=0::"79C";"WOULD YOU LIKE A HARD COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1010C$="N"C$="n"12C$<>"y"C$<>"N"C$<>"n"850\C$="N"C$="n"1000;f:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": p840z2,280,21K:=23:=0::"79C";"TO PRINT OR RETURN TO MENU, HIT THE SPACE BAR":C$:C$<>" "930:ۺ1000 $(I),16,B)$=01:=0::"80C";A$;::12)E=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING"::2,280,21 840#2,B$(I),16,B) ž#2910*#2;A$:A$:12304810 >:120*H:=23:=0::"79C";"CONTINUE...?":0RC$:C$<>"Y"B$(I),"BASIC 0")700B$(I),"TEXT 0")740B$(I),"CAT 0")960B$(I),"FONT 0")1660B$(I),"FOTO 0")1730400A$="RUNNING "+B$(I),16,B)"79C";A$;:=0B$(I),16,B):A$="LISTING "+BOS=44:I/2<>I/2)I=I+1&I2=-1:I=I-2:NIBOTM<30XTHPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:0b=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1lvB=B$(I),16)," ")-1n!p'RANDOM.A3.2 9Rn!p'RANDOM.A3.3 :Xn"p'A2.TEXT{_;;'RANDOM.A2.2!(!(''0EXAMPLE.5vn'  'CYPRUSIn&!/MONTEREY.PINEJn&!:/$FERNLn&!5 /*CYPRESS.BB On&t /,MONT.PINE.BB Rn'l /'FERN.BB U-.EXAMPLE.4vn' ',PAGE.FLIP.A2Dhn%!3-,PAGE.FLIP.A3 Gn%p-+,EXAMPLE.3vn' 'A3 ?Ln$!+A2.L@n$!5+A2.HAn$!+A3.ALT Bun$p+)*EXAMPLE.2vn' 'A2;n#!0)"A3 p n#x )A3.ALT =}n#p)A2.H>on$!)n'l!//  ::22<"RANDOM LOW-RESOLUTION GRAPHICS PLOTTING"HH039T(V039f2C((1)16)o7V,Hv<C}FVPHZOVETO(%0,%10)_PENCOLOR(%15)!d#1;"PRESS RETURN TO QUIT";X$ nGRAFIXONsX$x:RELEASE#1".D1/MENU.MAKER"  GRAFIX MODE 3 (192X140)  ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%3,%1)(FILLCOLOR(%0)-PENCOLOR(%13) /FILLPORT2MOVETO(%0,%191)<LINETO(%279,%191)FMOVETO(%70,%191)PLINETO(%70,%0)ZM 30,0279,00140,0140,159P("PRESS TO END";X$X2:^<  130,390(0,3920H("PRESS TO END";X$P2:]<STARTUP )!d#1;"PRESS RETURN TO QUIT";X$ nGRAFIXONsX$x:RELEASE#1 ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1)(FILLCOLOR(%0)-PENCOLOR(%13) /FILLPORT2MOVETO(%0,%191)<LINETO(%279,%191)FMOVETO(%140,%191)PLINETO(%140,%0)ZMOVETO(%0,%10)_PENCOLOR(%1512EXAMPLE.6vn'  'JOYSTICK.A2Wn'!11JOYSTICK.A3 Xn' 1'A3.TEXT==1 ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1)(FILLCOLOR(%0) 2FILLPORT7 <GRAFIXON FX=191K160 PH=0279 ZV=X0dC=(1)*16)sPENCOLOR(%C)xDOTAT(%H,%V)VHH>279H=279 16);0);28);6);2"BGRAF.INV"<GRAFIXMODE(%1,%1)FINITGRAFIX:FILLPORTP#1,".GRAFIX" X=1) GRAFIXONI%=1300A=A+1:A=15A=1PENCOLOR(%A)X%=280*1):Y%=192*1),DOTAT(%X%,%Y%)@"MOVETO(%0,%10 I01803$(I,I+238<279I,I?FI_P"PRESS TO END";X$gZ:md O(%65,%175)PENCOLOR(%15)!#1"PRESS TO END";X$GRAFIXON:X$:RELEASE#1".D1/MENU.MAKER" ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1)(FILLCOLOR(%0) 2FILLPORT 7GRAFIXONPPENCOLOR(%15)ZMOVETO(%0,%191)nLINETO(%279,%0)PENCOLOR(%5)MOVETO(%279,%191)LINETO(%0,%0)MOVETA=1xA=1:X=279:Y=191 I=1200PENCOLOR(%A)MOVETO(%X,%Y)LINETO(%X,%Y) X=X-1:Y=Y-1:A=A+1:A>15A=1MOVETO(%65,%175)PENCOLOR(%15)!#1"PRESS TO END";X$GRAFIXON:X$:RELEASE#1".d1/menu. ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1) (PENCOLOR(%0):FILLCOLOR(%0) 2FILLPORT 7GRAFIXON<A=1:X=0:Y=191 FI=1200PPENCOLOR(%A)ZMOVETO(%X,%Y)dLINETO(%X,%Y) nX=X+1:Y=Y-1:A=A+1:A>15 I039%((I)15I).(I,I@2((I)15I)L<39I,ISFIsP"PRESS TO END";X${Z:d 8)PENCOLOR(%15)%#1;" MODE 1 RANDOM GRAPHICS "G$::".D1/MENU.MAKER" ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1)(FILLCOLOR(%0) 2FILLPORT7 <GRAFIXON AX=191FMOVETO(%0,%X)KC=(1)*16)ZPENCOLOR(%C)dLINETO(%279,%X)nX=X-1:X=9160x70MOVETO(%0,%8)PENCOLOR(%15)#1;" MODE 3 GRAPHICS "G$::".D1/MENU.MAKER" ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%3,%1)(FILLCOLOR(%0) 2FILLPORT7 <GRAFIXON AX=191FMOVETO(%0,%X)KC=(1)*16)ZPENCOLOR(%C)dLINETO(%279,%X)nX=X-1:X=9160x70MOVETO(%0,%:X=X-180MOVETO(%0,%8)PENCOLOR(%15)5#1;" RANDOM MODE 1 GRAPHICS PLOTTING "G$:".D1/MENU.MAKER"):PENCOLOR(%15)#1"RETURN TO QUIT";X$X$::RELEASE::#1:" A2 LORES RANDOM STAR MAKER( 5I0200IAA1:A15A1P(Ah2X40(1):Y40(1)q<X,YwFP"PRESS TO END";X$Z:dFHOR(%0):FILLCOLOR(%12) ZFILLPORTdMOVETO(%31,%131)nLINETO(%51,%191)xLINETO(%51,%31)MOVETO(%31,%31)LINETO(%71,%31)PENCOLOR(%9)3I=31191:MOVETO(%140,%I):LINETO(%200,%I):IGRAFIXON:D=1T:D SET GRAPHICS PAGE 2: PAGE FLIP EXAMPLE) SET TIME DELAY AND SET COUNT TO 0 T=500:COUNT=0 #1,".GRAFIX"".D1/BGRAF.INV" RELEASE(INITGRAFIXF< DRAW FIGURE (MODE 1 16 COLOR ) FGRAFIXMODE(%1,%1)!PPENCOL# xCOUNTCOUNT1:COUNT200ī200? } LOOP BACK TO LINE 100H 100] END GRACEFULLYg ::CE50140,130140,160200,160: Z1:I0160:31,I71,I:Ig _ SHOW PAGE 1 AND DELAY FOR A COUNT OF T d16300,0:D1T:D i SHOW PAGE 2 AND DELAY FOR A COUNT OF T n16299,0:D1T:D s INCREMENT COUNT AND CHECK TO SEE IF IT HAS REACHED 200 / SET TIME DELAY AND SET COUNT TO 0AT500:COUNT0GW:16302,0i# DRAW FIGURE(1:31,3051,051,160-31,16071,16022:I0160:140,I200,I:I7<A DRAW FIGUREF2:140,30160,0180,0200,30 P200,%)@"MOVETO(%0,%10):PENCOLOR(%15)#1"RETURN TO QUIT";X$X$'::RELEASE::#1:".D1/MENU.MAKER" 16);0);28);6);2".D1/BGRAF.INV"<GRAFIXMODE(%1,%1)FINITGRAFIX:FILLPORTP#1,".GRAFIX" X=1) GRAFIXONI%=1300A=A+1:A=15A=1PENCOLOR(%A)X%=280*1):Y%=192*1),DOTAT(%X%,%Y%)6LINEREL(%X%,%Y$ A2 HIRES RANDOM STAR MAKER* 7I0300JAA1:A7A1Q(Ak2X280(1):Y160(1)t<X,YzFP"PRESS TO END";X$Z:dGRAFIXMODE(%1,%2) DRAW FIGURE #2!PENCOLOR(%0):FILLCOLOR(%12) FILLPORTMOVETO(%140,%161)LINETO(%160,%191)LINETO(%180,%191)LINETO(%200,%161)LINETO(%140,%61)LINETO(%140,%31)"LINETO(%200,%31),PENCOLOR(%9)1NPGRAFIXON J=1NU=140+M*XC-M*XV=95-M*YC+M*YU<0U>279200V<0V>191200DOTAT(%U,%V)260XN=R*X*A)-S*Y*B)+HYN=R*X*A)+S*Y*B)+K X=XN:Y=YNJ"G$:RELEASE:".D1/MENU.MAKER" Z=1)R=.8:S=.9:A=0:B :"CYPRESS":"NUMBER OF POINTS ";N"MAGNIFICATION ";M ("CENTER COORDINATES ";XC,YC2"START AT ";X,Y<".D1/BGRAF.INV"F#1,".GRAFIX" PRELEASEZINITGRAFIXdGRAFIXMODE(%1,%1)!nPENCOLOR(%15):FILLCOLOR(%0) xFILLPORT 0:B0:H0:K0 KMXNRX(A)SY(B)H4 YNRX(A)SY(B)KB XXN:YYNI JO Z Z(1) R.85:S.85:A.0436:B.0436:H0:K1 Z.2R.3:S.37:A2.0944:B.8727:H0:K.44 Z.1025R.3:S.34:A.8552:B.8552:H0:K1.6 Z.005R.0:S.16:A REPRODUCTION% ::(21):3@"NUMBER OF POINTS ";NZ"MAGNIFICATION = ";M~("CENTER OF COORDINATES ";XC,YC2"START AT ";X,Y<J1NFU140MXCMXPV95MYCMYZU0U279ī120dV0V191ī120nU,Vx1000 XNRX(A)SY(B)H4 YNRX(A)SY(B)KB XXN:YYNI JO Z Z(1)y R.9:S.7:A0:B0:H0:K20 Z.4R.4:S.4:A1.4:B1.3:H0:K5 Z.25R.4:S.4:A1.4:B1.3:H0:K5 Z.1R0:S.8:A0:B0:H0:K0  REPRODUCTION% ::(21):3@"NUMBER OF POINTS ";NZ"MAGNIFICATION = ";M~("CENTER OF COORDINATES ";XC,YC2"START AT ";X,Y<J1NFU140MXCMXPV95MYCMYZU0U279ī120dV0V191ī120nU,Vx1000 XNRX(A)SY(B)H4 YNRX(A)SY(B)KB XXN:YYNI JO Z Z(1)y R.8:S.9:A0:B0:H0:K20 Z.4R.3:S.4:A14:B1.3:H0:K5 Z.25R.3:S.4:A1.4:B1.3:H0:K5 Z.1R0:S.8:A0:B0:H0:K0  REPRODUCTION% ::(21):3@"NUMBER OF POINTS ";NZ"MAGNIFICATION = ";M~("CENTER OF COORDINATES ";XC,YC2"START AT ";X,Y<J1NFU140MXCMXPV95MYCMYZU0U279ī120dV0V191ī120nU,Vx1000 6I=31191:MOVETO(%31,%I):LINETO(%71,%I):I@GRAFIXMODE(%1,%1)JGRAFIXON:D=1T:DTGRAFIXMODE(%1,%2)^GRAFIXON:D=1T:D"hCOUNT=COUNT+1:COUNT>100500r320::G$:".D1/MENU.MAKER"=0:H=0:K=20(Z<.4R=.3:S=.4:A=1.4:B=1.3:H=0:K=5+"Z<.25R=.3:S=.4:A=-1.4:B=-1.3:H=0:K=5#,Z<.1R=0:S=.8:A=0:B=0:H=0:K=06 ::16302,0:3UX(0)0.9142857: PUT WITHIN HI RES SCREEN LIMITPAUSE15:PAUSE: SLIGHT DELAY BETWEEN PADDLE READINGS MAKES THEM MORE ACCURATEY(1)1.3333333: PUT WITHIN HI RES SCREEN LIMITX,YM (16287)127:K=11Z<.2R=.3:S=.37:A=2.0944:B=-.8727:H=0:K=.442Z<.1025R=.3:S=.34:A=.8552:B=.8552:H=0:K=1.6&Z<.005R=0:S=.16:A=0:B=0:H=0:K=0TVAFIXON <J=1NFU=140-M*YC+M*YPV=95+M*XC-M*XZU<0U>279120dV<0V>191120nDOTAT(%U,%V) x1000XN=R*X*A)-S*Y*B)+HYN=R*X*A)+S*Y*B)+K X=XN:Y=YNJG$:RELEASE: Z=1))R=.85:S=.85:A=-.0436:B=-.0436:H=0:"FERN":"NUMBER OF POINTS ";N"MAGNIFICATION ";M "CENTER COORDINATES ";XC,YC"START AT ";X,Y ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1)!(PENCOLOR(%15):FILLCOLOR(%0) 2FILLPORT 7GR=20(Z<.4R=.4:S=.4:A=1.4:B=1.3:H=0:K=5+Z<.25R=.4:S=.4:A=-1.4:B=-1.3:H=0:K=5#Z<.1R=0:S=.8:A=0:B=0:H=0:K=0QSORT 7GRAFIXON <J=1NFU=140+M*XC-M*XPV=95-M*YC+M*YZU<0U>279120dV<0V>191120nDOTAT(%U,%V) x1000XN=R*X*A)-S*Y*B)+HYN=R*X*A)+S*Y*B)+K X=XN:Y=YNJG$:RELEASE: Z=1)R=.9:S=.7:A=0:B=0:H=0:K:"MONTERREY PINE":"NUMBER OF POINTS ";N"MAGNIFICATION ";M "CENTER COORDINATES ";XC,YC"START AT ";X,Y ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1)!(PENCOLOR(%15):FILLCOLOR(%0) 2FILLP(16286)127ī1500: IF EITHER BUTTON PRESSED, CLEAR SCREEN & START OVER i (16384)12827ī1700 "X(0)0.9142857 ,PAUSE15:PAUSE 6Y(1)1.3333333 @X,Y J1550: KEEP LOOPING THROUGH UNTIL A BUTTON OR ESC PRESSED :: ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1)!(PENCOLOR(%15):FILLCOLOR(%9) 2FILLPORT 7GRAFIXON<Y=1)*.74902: 192/255 PX=0)*1.09804: 280/255 ZMOVETO(%X,%(191-Y))d0)>050i1)>0^`(%RIGHT,%UP)xLINEREL(%RIGHT,%UP-(9*UP)))LINEREL(%RIGHT-(RIGHT*9),%UP-(9*UP))"LINEREL(%RIGHT-(RIGHT*9),%UP)%L=L+5:U=U-1:RIGHT=RIGHT-5:UP=UP+1A=A+1:B=B-1:A>15A=1B<1B=14MOVETO(%10,%175)PENCOLOR(%2)#1;"EGYPT"  ".D1/BGRAF.INV"#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%3,%1) (PENCOLOR(%0):FILLCOLOR(%0) 2FILLPORT <GRAFIXON%FA=1:B=14:L=0:U=70:RIGHT=90:UP=100 PI=160 ZPENCOLOR(%A):FILLCOLOR(%B)dMOVETO(%L,%U)nLINEREL:".d1/menu.maker"(511),C$(20),name$(20):=10:=0n: GOSUB 1120 x=+B$(I),16,B)140 PREFIX$=.D1 #1, ž#1180I=0I=I+1:#1;A$(I):170#1 L=I-1j=1:same=0:/#9,".D1/DISKNAME.DAT":#9;DISKNAME$:#9T RELEASE#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%1,%1) (FILLCOLOR(%9):PENCOLOR(%5) 2FILLPORT 3X=0:Y=04X=X+1:Y=Y+17X=100300<MOVETO(%X,%Y)F#1;"APPLE /// FOREVER" dGRAFIXONn52,X=1300:X^g$:[\EXAMPLE.8vp'  '(EGYPT.A3 _$pp7[MANDELBROT.GRAF } !#[YZEXAMPLE.7vp'  ''MOVE.A3 kpp(Y)MOVE.A3.2 n_p3p6Y50 s170xY=1)*.74902<X=0)*1.09000: SMOOZED A BIT FOR RIGHT EDGE OF SCREEN LINETO(%X,%(191-Y))100=2750:ۺ300,::RELEASE6#1:".D1/MENU.MAKER"":G$::".D1/MENU.MAKERhEXAMPLE.10vp' 'MANDip!gMAND.GRjp!1g/MANDELBROT.GRAF "n g H((1)40)1V((1)40)C(C((1)16)J2CS<H,V]FXX1mPX200ī110ud20n22:"STARS IN LORES MODE"G$::   H((1)280)3V((1)160)D(C((1)6)K2CT<H,V^FXX1nPX300ī110vd20n22:"STARS IN HIRES MODE"X$,::  *** POINTS ***")32(X,YC2X999X200L<X,Y^PDL1500:DLfZ40yd 35,70,175,40n 165,10,230,45x 230,45,195,110 195,110,185,80 185,80,50,110 50,110,35,70 999,0,0,0 *** POINTS ***")34(35,70@2175,40L<165,10XF230,45eP195,110qZ185,80}d50,110nG$::abEXAMPLE.9vp'  'POINTScp!aPOINTS2dp!aSTARSep!aSTARS2fp!aA3.STARS |\x"ag-1j=1:same=0:/#9,".D1/DISKNAME.DAT":#9;DISKNAME$:#9Ta$="{,|,~,}; mo1300:X^G$::".D1/MENU.MAKER8 TRY MAKING LINE 52 JUST Y=Y-1 AND SEE WHAT HAPPENS(511),C$(20),name$(20):=10:=0n: GOSUB 1120 x=+B$(I),16,B)140 PREFIX$=.D1 #1, ž#1180I=0I=I+1:#1;A$(I):170#1 L=I RELEASE#1,".GRAFIX" RELEASEINITGRAFIXGRAFIXMODE(%3,%1) (FILLCOLOR(%9):PENCOLOR(%5) 2FILLPORT 3X=0:Y=1004X=X+1:Y=Y-17X=1503008Y=80Y=Y+1<MOVETO(%X,%Y)F#1;"APPLE /// FOREVER" dGRAFIXONn52,X=a$="{,|,~,}; N>]l J  ::(21)XC0!YC0*(M6042I130@<J039SFYO(45J)MYC_PI039rZXO(I60)MXC~dX0:Y0nK1I1xX1XXYYXOY2XYYOXX1ZXXYYOZ4ĂK0KI1K2(K2)Ġ3I,J II J  ::(21)XC0!YC0*(M6042I130A<J0180TFYO(90J)MYCaPI0240uZXO(I120)MXCdX0:Y0nK1I1xX1XXYYXOY2XYYOXX1ZXXYYOZ4ĂK0KI1K2(K2)Ē3I,J TO END";X$P2:]<STARTUP NEXT 190 GOTO 140 200 GET G$:TEXT:HOME:END 50 REM "LINES" FROM ON THREE MAGAZINE 60 REM REWRITTEN FOR THE APPLE 2. 100 GR:HOME:VTAB 22 120 PRINT "LOW-RES LINES" 130 XDIST%=40:YDIS%=40 140 FOR A%= 0 TO 1000 150 LET C = INT(RND(1)*16) 160 COLOR = C 170 PLOT INT(RND(1)*XDIST% TO INT(RND(1)*YDIST% 180" 1010 ON KBD GOTO 1000 1020 RETURN COMMANDTIONLOCATION,VALUEACTIONry 03-ategory 04-ategory 05-ategory 06Conversion Notes-ursor backward (LEFT) one space.,CALL -998 {$FC1A}Move Cursor up one line.CALL -958 {$FC42}=Clear screen from Cursor to lower right corner of the screen.-(Same as Escape F...clears to end of screen).Use Print CHR$(29)ECALL -936 {$FC59}Clear sFAA6}Re-Boots disk system.<CALL -1184 {$FB60}'Clear screen (HOME) and print Apple ][.KCALL -1052 {$FBE4}#Beep Apple speaker for 1/10 second.Use PRINT CHR$(7);CALL -1036 {$FBF4}&Move Cursor forward (RIGHT) one space.;CALL -1008 {$FC10}&Move C58 {$F666}Enter Mini Assembler.3CALL -1998 {$F832}Clears LO-RES screen to black.aCALL -1994 {$F836}(Clear top 20 lines to @ if in Text Mode.#If in LORES clears screen to black.5CALL -1953 {$F85f} Increment LO-RES color by three.*CALL -1370 {$ fillcolor is Black).CALL -3082 {$F3F6}Clear hi-res to recent HCOLOR.8Use PERFORM FILLCOLOR (%c): PERFORM FILLPORT (see HCOLOR?for the correct value for c. It should be the same as the last/PENCOLOR to have the same effect as CALL -3082)*CALL -24f memory used (amongGother things) by Basic to keep track of For-Next loops and Gosub-Return"combinations. (Nibble Magazine...)(Remove from your Business BASIC program.kCALL -3086 {$F3F2}Clear hi-res screen to black.7Use PERFORM FILLPORT (assuming theEGER Basic Trace.6CALL -3318 {$F317}!EXEC INTEGER Basic "CON" command.1CALL -3305 {$F317}Resume from Applesoft ONERR.*CALL-3288BFixes up the stack so that a program can continue without a RESUMEFstatement. The stack is a special 256-byte area output a carriage return.(CALL -8117 {$E04B}List INTEGER Basic.=CALL -7036 {$E484}(Do Applesoft Garbage Collection Routine.'CALL -6090 {$E836}Run Integer Basic.1CALL -3727 {$F171}Turn on INTEGER Basic Trace.2CALL -3722 {$F176}Turn off INT).2CALL -550 {$FDDA}Print hex value of A-register.qCALL -468 {$FE2C}Memory move after poking -B60-61, old start; 62-63 old end; 64-65, new end; 66-67, new start.CALL-42350CATALOG&CALL-23186 {$A56E}To catalog disk..CALL -9477 {$DAFB}OFB40}GR,CALL -1205 {$FB4B}Set normal text window.+CALL -875 {$FC95}Clear entire text line.-CALL -678 {$FD5A}Wait for carriage return.;CALL -676 {$FD5C}'Ring bell and wait for carriage return.1CALL -657 {$FD6F}Input (commas and colons okCALL -3106 {$F3DE}HRGCALL -3116 {$F3D4}HGR25CALL -2613 {$F5CB} Hi res cursor coords to 224-226.0CALL -1728 {$F940}Print hex of X&Y registers.+CALL -1321 {$FAD7}Display all registers.CALL -1233 {$FB2F}TEXTCALL -1216 {$  !P nCVS--------CONVERT))))))))))))))))))  creen (HOME).Use HOME in Business Basic.@CALL -926 {$FC62},Send Carriage Return and Linefeed to screen.CALL -922 {$FC66}?Move Cursor down one line without changing Horizontal Position.(Same as Control J...Line Feed)Use PRINT CHR$(10)8CALL -912 {$FC70}$Move all text in window up one line.WCALL -868 {$FC9C}Clear Cursor to end of line.(Same as escape E)Use Print CHR$(31)BCALL -856 {$FCA8}.Time delay. POKE 69,XX to set amount of delay.'CALL -756 {$FD0C}Wait for key press.+CALL -3the language that is active.9(0=INT 64=FP 128=FP on tape or disk) (Same as ADR-21834).PEEK (46064/$B3F0)%Returns the number of sectors on disk0currently being used (16 = DOS 3.3 13 = DOS 3.2)(Same as ADR -19472)./PEEK(74/$4A)+PEEK(75/$4B)*256Curren.8Same effect as X=ERRLIN, but different error numbers are%used in AppleSoft and Business BASIC.>PEEK(36/$24).Read Cursor Horizontal Position (VALUES 0-39).<PEEK(37/$25),Read Cursor Vertical Position (VALUES 0-23).sPEEK (43702/$AAB6)$Returns . But if it is aCsyntax error, which could be caused by mistyping, the line helps indebugging (Nibble Magazine)..+For Business BASIC Conversion: Use X=ERRLINPEEK (222/$DE)-Returns error code which identifies the error"which caused an ONERR to be takpplesoft line number where an erroroccured if an ONERR was taken.EFor Example: PEEK(218)+256*PEEK(219) tells you the program line where8the error was encountered. When a disk error occurs, itNusually doesn't matter where in the program the error occuredPEEK(115/$73)+PEEK(116/$74)*256Current Applesoft HIMEM.BPEEK(175/$AF)+PEEK(176/$B0)*256 :Pointer to Applesoft program.ZPEEK(202/$CA)+PEEK(203/$CB)*2567Returns memory location of 1ST line of Integer program.PEEK(218/$DA)+PEEK(219/$DB)*256$Adled using the ON KBD statement.rPEEK(-18070/$B96A).If 150 is returned then you are using DOS 3.3.-This PEEK works for both Applesoft & Integer.gPEEK&(-21902/$AA72)+PEEK(-21901/$AA73) *2569To find starting address of last BLOADED program or data.;8 THEN 1000: POKE -16368,0&could be written in Business BASIC as:1000 GET A$: A=ASC(A$) + 128HThese locations can also be used in either Applesoft or Integer BASIC toLallow a program to be interupted by pressing a key. In Business BASIC, this+is best hanboard. If value is >127 then a key was pressed./This PEEK should be followed by a POKE-16368,0.;These locations are used to simulate a GET statement, whichinteger BASIC does not have.)For example this Integer BASIC statement:61000 A=PEEK(-16384):IF A<12Use X=BUTTON (0)PEEK(-16336/$C030),Toggle the speaker once for every two PEEKS.Also: POKE -16336,0=To convert to Business BASIC, you must use the .AUDIO driver.7PEEK(-16352/$C020)!Toggles the cassette output port.>PEEK(-16384/$C000)7Read key -3082).VPEEK(-16285/$C063).Read PDL(2) switch. If value >127 = Swithc On.Use X=BUTTON (2)VPEEK(-16286/$C062).Read PDL(1) switch. If value >127 = Switch On.Use X=BUTTON (1)VPEEK(-16287/$C061).Read PDL(0) switch. If value >127 = Switch On. error when2you really have memory left. (Same as ADR -10621).KCALL-62450 {$F3F2}5Clear current HIRES screen to black. (Same as -3086).{CALL-62454 {$F3F6}(Clear current HIRES screen to the HCOLOR">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""I򭱻LLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<m. This, howeverHwill not usually cause a problem as it is not too difficult to determineLall of the window parameters, even if only one is changed. Also, since theIApple /// has an 80 column screen, the text should be reformatted anyway,Eand the text wmand.POKE 32,X {$20}.Sets left side of text window. (0-39 NORMAL=0)4This and the next four pokes set up the text window.IBusiness Basic has a statement, WINDOW, which sets all four of the windowIparameters. There is no easy way to set just one of the,Y &2 "LINES" FROM ON THREE MAGAZINEG< REWRITTEN FOR THE APPLE 2.Sd::22gx"HI-RES LINES"u}A01000C((1)7)C(16384)12827ĀX((1)279)Y((1)171)X,YX((1)279)Y((1)171) X-16151,0 {$C0E9}!Turns on Slot 6, Disk motor only.1POKE-16136,0 {$C0F8} :Turns Slot 7 motor off.8POKE-16135,0 {$C0F9} Turns on Slot 7,Disk motor only.cPOKE-21912,X {$AA68}-To select disk driver on a 48K system withoutactually executing a com0 {$C056} :4Clears HIRES Graphics Mode and returns to text mode.1Low resolution graphics can't be done on the ///.PPOKE-16297,0 {$C057}Sets HIRES GR Mode.#Remove from Business BASIC program.1POKE-16152,0 {$C0E8} :Turns Slot 6 motor off.9POKEdecide on one the /// can use.lPOKE-16300,0 {$C054}#Switches from page two to page one./Use PERFORM GRAFIXMODE (%1,%1):PERFORM GRAFIXONbPOKE-16299,0 {$C055} :Sets display to page 2./USE PERFORM GRAFIXMODE (%1,%2):PERFORM GRAFIXONPOKE-16298,to text mode.Use PRINT CHR$(15)\POKE-16302,0 {$C052}Clears Mixed Graphics Mode.'Remove from the Business BASIC program.POKE-16301,0 {$C053},Sets Mixed Graphics Mode. (4 lines of text).5The Apple /// doesn't have this mode so you will need!to 0 all manipulate graphicsGmode in the //. On the ///, you will have to have INVOKED BGRAF.INV andHinitialized it. Also, the value POKED does not matter, and PEEKS to the$same address will do the same thing.PPOKE-16303,0 {$C051}$Switches from graphics H06172839h` v97L75v^a ?/( va?L9LLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b ,S0 @ lLޭBV G>S 1⻽2$I2 U)VJ T)`l⻩8`a HbIJhjǾȾɾ p٭b=a>m>` im8iɻnjʻki»ljûoɻi>?Ek?>Q>> L> \/ e>>?͸?ޱ>ȥpn͏ @p;폻=po:Q>>>Ͷͷ `` \>Ͷ ͷ `e>>?͸?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`;=:<:<=;`ͳm;>:8o>oȑ>ppȑ>> :op` DKJپھ pHJh` D!hgtp `tp8nnitpi͵tso8pinii>j?kͻ>pIiͳͻ l - `>i>LK8L933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B?8`[ K  LK ҟ ҟ p KK`JJJJ8`轐K)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p /H־Ǿh۰8L־Jjjj67ﻭɾ)Ⱦ8  OLӜ ΤLLX>(F󻩍`ڻ־ؾپھ׾` bɄ KDEF vLl v lL9 bKɍKL?`  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj6ﻝ7 `O>0O v PODEF޾ p ޾ p($ذ v (0 C( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ CB94 l% bʽ  ՚,S` H TLC-T VV仩 D$ZA@L8 `-U -W b WWǹ)仹ǹJJ DT$K f0IDK D D5K 0.)K D廽滙XK`LCLh DK m仨Y߹ ܩ 8仨ѹjK` T,, ( 5Ố ` T, Ố ` T, `)a)_`0:8 `)H"H ᪢h}滝I hm滍滐8`0 :AG8 `) ᪰ 滍`..`SI-SRmȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLO־ǾҾ,G 8`׾ؾ  p ۥs׾tؾE` g ( о(־Ǿ,G 8`_`W)H־Jjjjh6ۻ7ܻ p̭ܻۻ L)Ǿ黎껠 ..8ۻܻ 黍滈ۭ (ۻ8黪ܻ껨>Ie f`8` gP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ɵ 5W) )W)@! pZ}ȾȾ󰹩 p` gʻʻhʻһHһһhһ p' L,N HCNh`M`M Nһ `޾Lp gh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ۻ滭ܻ绩軍黍ȾɾʾNfne}ȾȾI pH Lh8`jGM˻оӻM  G5):_6`7蹀7:`V)8`MN;һ ;һ`;Cڻ N8` 5G)̀#:6ۻ7ܻ蹀7:`V)R g޾ʻ,N0MHϾһоڻ־ǾҾ_` 3Ӿ pW) jLC`C Nһ `9V) ` V) g޾ p` g (8` 8`8`(W)`_V)Ij!؍Í`_ PjЭW)`_ Ͼp о־޾Ǿ` 8` 8`ɾ)ɾﻐ ɾɾ0miȾ p pY)`lP g*,N!ǾȾɾʾ pǾ~H Ch8`8`,C C  8` ȾɾM$ mHʻʻһǾ phϾ pH Lh8` v])Y 񩢍`Ⱦɾ0Ǿ p)󻩯  v6 A= 9& 98Hh 9` 豰6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ V)@W0!XY A໭X6Y7` A YX`X:Y;τ<:: <`:8` : Ce eվ'OV)Jj f a v &ji Τ Ƀ B , ܯ / ` p,Wp !Lܯ pLܯjÍ PN I ܱ9 䯰1Ż׾ƻؾȻǻ 䯰 p p ! ܯH |h(`׾ؾ` ܱ ௰߭Ż׾t8ĻmؾƻŰŻtƻ ௰ ܯLz8` ˌھپLp໩ kjV) P 8` - *`l׾ ܱXYW0V)?W׾ؾ,Wp_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSԩ p`S,WpW)0پȾھɾ pɾʾg׾hؾ 䯰 p ܯhgͺ칾`L!V)jC mMjà Lp `VJJ°LCLp )< L/  L/W)8VJưϥ3 `F`4W)ɐ/XY$L? :  kimljn` ܱ pg׾mȾXhؾmɾYtѮȾɾ ௰ ܯ kYX`8g@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I K$.K0:J15:K$(C$,J,1)KJ:K$P:K530,515,580,680,725:490lD$"PR#3":EIGHTY1:340| CATALOG :EIGHTY1ĺD$"CATALOG":540D$"CAT":G1$;:EIGHTYĺ!G3$;&K$:K$"M"K$"m"340+K$(13)550072OUT THIS DISK"=S$(4)"START THE MENU SELECTION PROGRAM"WS$(5)"EXIT TO BASIC"hS$(6)" "13:C((G2$))(HT22):G2$:J15:HT20:" ";(C$,J,1);" - ";S$(J)::7(HT22):"PLEASE ENTER YOUR SELECTION: "; GET CHOICE :3605Y::41);:J18:40:2);::40:41):H^ PRINT TEXT h3:S$(1)T1$:S$(2)T2$:S$(3)" FROM":S$(4)WAP$:K4:70r MENU |C$"S8RME": COMMANDSS$(1)"SEE THE DISK CATALOG"S$(2)"USE 80 COLUMN DISPLAY"S$(3)"READ ABS$(3)"A BACKUP COPY OF THIS DISK": 'S$(4)"--------"e ,S$(5)"THE COLLECTION AND ARRANGEMENT" 1S$(6)"OF THE PROGRAMS ON THIS DISK" 6S$(7)"ARE COPYRIGHTED, "Y$", BY" ;S$(8)WAP$ @4:K8:70:80 J PRINT RECTANGLE T:EIGHTY1ĺ"AND PRESS THE RETURN KEY"' G7$""B VARIABLE LABELS P Y$"1991"e T1$"III.GRX.30" T2$"APPLE ][ AND APPLE /// GRAPHICS"  COPYRIGHT NOTICE S$(1)"IF YOU HAVE NOT ALREADY DONE SO" S$(2)"IT IS SUGGESTED THAT YOU MAKE"% "01) 654-8060"F CURRENT$""h G1$"PRESS 'M' FOR MENU, OR " G2$"SELECT ONE OF THE FOLLOWING:" G3$"PRESS THE RETURN KEY TO EXIT TO BASIC: " G4$"TO RESTART THIS DISK, TYPE" G5$"-STARTUP" G6$:::! PHT6:EIGHTY1HT26b U22:HT)"PRESS ANY KEY ('ESC' TO EXIT) ";:K$:(K$)27725h Z d GENERAL LABELS nWAP$"WASHINGTON APPLE PI, LTD." xADDR$"7910 WOODMONT AVE., SUITE 910" CITY$"BETHESDA, MARYLAND 20814" PHNE$"(3W$"4"W$"8"157 W$"8"EIGHTY1::(4)"PR#3"u ::D$(4):C(J)21J2:KS16368:KS,0: KS=$C010 D$;"PREFIX":"";PREFIX$ (D$"-TYPE.CMD": 2100 < SUBROUTINES FHT21:EIGHTY1HT41 KJ1K:HT(S$(J))2:S$(J){ WAP HELLO BY DAVE WEIKERT & TOM WARRICK WITH MODIFICATIONS BY TOM DEMAY AND DAVE OTTALINI (WAP /// SIG 2/16/90) ::9:10)"WELCOME TO III.GRX.30":12:"PRESS (4) FOR FORTY COLUMN DISPLAY":13:"OR (8) FOR EIGHTY COLUMN DISPLAY: ";:W$:W$:LLLLL9<߻)M߻ `6I߻8` ԠŬLL>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~T٭   LiLMTR5: DISK DESCRIPTION D:"TO START/STOP SCROLL, PRESS THE "(34)"S"(34)" KEY WHILE HOLDING DOWN THE "(34)"CONTROL"(34)" KEY..."ILN39:EIGHTY1LN79NX1LN:"-";::34,3:EIGHTY1Ĺ34,2SS$XD$"TYPE /III.GRX.30/READ.ME +l:"PRESS ANY KEY...";:S$:S$::340F START MENU PROGRAM tMENU$"MENU.40":EIGHTY1MENU$"MENU.80"D$"-"MENU$ EXIT PROGRAM HT0:EIGHTY1HT21:4:HTC((WAP$)));WAP$:HTC((ADDR$)));ADDR$:HTC((CITY$)));CITY0 CCWĺBL$:7507*CC20:T(1)LCC20:BL$@4750S>V6ĺBL$:750bHVV1:750vRV19ĺBL$:750\VV1:T(1)LVV1:BL$f750&p3:"Command: ":22:"Dos commands: ock nlock erify ename elete "Use I, J, K & M TO MAKE A SELECTION. PRESS TO EXECUTE THE FILE... ";:V6:C1550:F0T$(T(1))"DIR"ĺD$"PREFIX"F$(T(1))::210F0F$(T(1))""ė:D$"-"F$(T(1))F780,800,830,850,880,1010 C1ĺBL$:750CC20:7520:J15:PASS2:420DANEA2CJ29:PASS3:420:J43:PASS4:420SLJī720CW((L1)14)1:LCLCW146:CW(CW1)201A2CANEĹIT,0:22:"Use arrow keys to select an item then press to execute program":V6:C1:750^IT,0:22:A$"j"F1:.bA$RA$A$"K"A$"k"F2:NlA$UA$A$"I"A$"i"F3:nvA$DA$A$"M"A$"m"F4:A$"D"A$"d"F5:A$"Q"A$"q"ė:A$(27)F6:BL$LA$;:590 THE ACTUAL PROGRAM: FIRST PINT FILESJ1:PASS1:4 DRAW A LINE2A2Cĺ(15);(27);NCP:A1VW10:DSP$;:eA2Cĺ(14);(24);kz&V:IT,C10:F$(T(1))" "T$(T(1))(8);::590:DV:IT,C1:F$(T(1))" "T$(T(1)):N20:A$RE$A$"-"F0:XA$LA$A$"J" I, J, K, M"L 3:"Press , OR "U 680z  PRINT THE FILES ON THE SCREEN V6 IJ(J13) V:IT,(PASS2020) F$(I)""VV1:" |":480 F$(I)" "T$(I)"|" VV1D$"CLOSE"+ T STRIP OFF USELESS JUNKT ^MXI1:I1MX:F$(I)(L$(I),2,15):v hI1MX:T$(I)(L$(I),18,3): rCP1:500:2:IT,0:"Prefix: ";L1$VW(L1$)24)"Free Space: "(L4$,14,4):CP4:500 |CP23:500:CP21:500:22:"Press Arrow Keys or "- D$;"OPEN "PREFIX$",TDIR"E D$;"READ ";PREFIX$] L1$: READ NAME w L2$: READ TITLE L3$: READ BLANK LINE I1255:F$(I)""::I1 "L$(I):L$(I)""310 ,II1:290 6LI1:DL0 @L4$: FREE SPACE J"SSSSSSSSSS":VW80:FL8011 ANEVW80:FL801j D$"PREFIX":PREFIX$:MAIN$(PREFIX$,((PREFIX$)1)) L$(255),T$(255),F$(255) IF A2C OR ANE THEN ?D$"PR#3" D$"PREFIX":PREFIX$ CP1:500:CP4:500:2:IT,0:"***** BUSY ***** C1 P(49048)192A319 Z(49048)127A2CANE1P d(49048)64APLUSp nA2CA3ANEAPLUSTWO1 xANEA2Cĺ(4)"PR#3" IT36 ANEA2CIT1403 INITIAL SETUP FOR THE SYSTEM D$(4):DSP$"__________":VW40:FL800:A2CDSP$ :::40)X(16384):X12820DA$(XK2):16368,0:(BL$(7):RE$(13):LA$(8):RA$(21):UA$(11):DA$(10):K2128:K1491522T(X)(V5)((C1)20)14< DETERMINE WHAT TYPE OF APPLE THIS IS FA2C0:(64435)6(64448)0A2$:HTC((PHNE$)));PHNE$:HTC((CURRENT$)));CURRENT$:13:HTC((G4$)));G4$:15:HTC((G5$)));G5$:18:HTC((G6$)));G6$20:HTC((G7$)));G7$:KS,0:Press a key... ";:3:IT,9:20>zA$"q"A$"Q"ī210A$"l"A$"L"ĺD$"LOCK"F$(T(1)):3:IT,0:F$(T(1))" Locked";:210A$"u"A$"U"ĺD$"UNLOCK"F$(T(1)):3:IT,0:F$(T(1))" Unlocked";:210 A$"v"A$"V"ĺD$"VERIFY"F$(T(1)):3:IT,0:F$(T(1))" Verifies":210A$"d"A$"D"DL1:3:IT,0:"Delete "F$(T(1))" Are you sure? ";:20:A$"y"A$"Y"210A$"y"A$"Y"DLĢ3:IT,0:D$"DELETE "F$(T(1)):F$(T(1))"Deleted ";:210indow can be adjusted accordingly. When converting theFnumbers above, keep in mind that the Apple // window starts at 0 while!the Apple /// window starts at 1.MPOKE 33,X {$21}+Sets width of text window. (1-40 NORMAL=40)See Poke 32,X.KPOKE 34,X {$2  STARTUP&2 "LINES" FROM ON THREE MAGAZINEG< REWRITTEN FOR THE APPLE 2.Sd::22fx"LO-RES DOTS"t}A01000C((1)16)C(16384)12827ī230X((1)40)Y((1)40)X,YX((1)40)Y((1)40) X,YC1 P(49048)192A319 Z(49048)127A2CANE1P d(49048)64APLUSp nA2CA3ANEAPLUSTWO1 xANEA2Cĺ(4)"PR#3" IT36 ANEA2CIT1403 INITIAL SETUP FOR THE SYSTEM D$(4):DSP$"__________":VW40:FL800:A2CDSP$ :::40)X(16384):X12820DA$(XK2):16368,0:(BL$(7):RE$(13):LA$(8):RA$(21):UA$(11):DA$(10):K2128:K1491522T(X)(V5)((C1)20)14< DETERMINE WHAT TYPE OF APPLE THIS IS FA2C0:(64435)6(64448)0A2آ !-ټ!(R!!PQS!!TU`8LstξϾ pL о־!!׾ؾپھ ɛ p! о޾ p`L ɍɬɠ`;!! m tL 8 9!:!  <=< /< <Ș LD  < < Lg <= >? BC ,  ` m `e<<=i=`!!ŢĠנŮ1:320 <DIR0A @CH115:1000:B$B$(C):CH:1:868:B$h JDIRĺD$"PREFIX ";PR$(B$,2):100x TD$;B$:100 C1(CV8):C2CVC18:P1024128C240C1CH:C(P)128:d868:K5Ā( K6ĺD$"PREFIX/":10[ "PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD"n K2B$"LOCK" K3B$"UNLOCK" K4B$"DELETE": B$;:198::K$:K(K$)48 ,K17KT16130 6CVSTK16 8CH17:1000 :(C)"D"DIR:TT1:SCV xCV:24H yA$"TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 "{ zA$A$"UNLOCK=3 DELETE=4 EXIT=5 RESTART=6...." 1:(A$,39);:A$(A$,2)(A$,1):K(16384) K128āK175:K:D$"FRE":130 B$RN$:16368,0:KK176:K1K6300 1: PRODOS MENU PROGRAM3 BY BILL HARKINSU PUBLIC DOMAIN - DOWNLOADEDl FROM THE SOURCE (4)"PREFIX":PR$d::D$(4):RN$"-":D$"CAT":B(37)2:B22B22nT0:CH27:CV023:1000 oC58C47ĹP6,219:P5,T193:P4,221A$"r"A$"R"ī210GR$"":3:IT,0:"Rename "F$(T(1))" to :";]20:R$R$A$:A$;A$RE$R$(R$,((R$)1)):D$"RENAME"F$(T(1))","R$:210R$""R$RE$210970PREFIX$MAIN$::D$"PREFIX"PREFIX$:210 2}(Sets top of text window. (0-23 NORMAL=0) See Poke 32,X.OPOKE 35,X {$23},Sets bottom of text window. (0-23 NORMAL=23) See Poke 32,X.APOKE 36,X {$24} Sets Cursor Horizontal Position. Use VPOS=X+1.>POKE 37,X {$25}Sets Cursor Vertical Position. Use VPOS=X+10POKE 48,X {$30}Sets color for LORES graphics.&POKE 50,randomScramble text output.POKE 243,X {$F3},Where X=1 TO 255 this POKE will usually make9listings un-readable, with the exceptions of X=64 OR 192.6(X=63 IS ALL "?" IN LIST)$2 "LINES" FROM ON THREE MAGAZINEdœ".D1/BGRAF.INV"ninitgrafix:(xxdist%=140:ydist%=192:mode%=3:buf%=1'grafixmode(%mode%,%buf%):grafixon fillport 1000a%=01000pencolor(%1)*16)&moveto(%1)*xdist%,%1)*ydist%) same$locations (same as -21031 & -21030).=POKE 47102,216,Restore motor turn-on time to standard time.-POKE 47102,236Shortens Motor turn-on time.[RNDPEEK(78/$4E)+PEEK(79/$4F)*256)6Provides 'TRUE' random number generation in Applesoft.ble Automatic Verify that occurs after every SAVE or BSAVE command.@POKE47617,12 {$BA01}(Speeds disk access (same as ADR -17919).?POKE44505,234 {$ADD9}&Shows up deleted files in the catalog.bPOKE44506,234 {$ADDA}$Normalize with 48 and 74 in the5:POKE 1015,214 Make "&" LIST(POKE1014,165 {$3F6}Will Make & List.+POKE1015,165 {$3F7}Will Make & Catalog.(POKE1015,214 {$3F7}Will Make & List.JPOKE46732,32:Re-enable Automatic Verify that occurs with SAVE or BSAVE.WPOKE46732,76GDisa,96:CALL 768(Remove from your Business BASIC program.;POKE%1010,102:POKE 1...1,213:POKE 1012,112Make RESET RUN=POKE1010,102-Makes POKE 1012,112 {$3F2/3F3/3F4} Reset run.=POKE1011,213-Makes POKE 1012,112 {$3F2/3F3/3F4} Reset run.+POKE1014,16phics Screen 2POKE49239,0Hi-Res GraphicsPOKE768,104@Beginning of a series of POKES used to set up a machine-language5subroutine to clear up a problem with error handling.F: POKE 768,104:POKE 769,168:POKE 773,154:POKE 774,72:POKE 775,152:POKE776Turns Applesoft into 'RUN ONLY' mode."USED FOR PROTECTING SOME PROGRAMS.@POKE214,2551Make disk program RUN when any command is issued.POKE49232,0GraphicsPOKE49234,0 All Graphics%POKE49236,0Show Graphics Screen 1%POKE49237,0Show Gra50,128 {$32}&To make letters going to video blanks.MPOKE 50,255 {$32}Sets NORMAL VIDEO Mode!Same as NORMAL in Business Basic.9POKE82,128+Make cassette program auto-RUN when loaded.*POKE1014,10 {$3F6}Will Make & Catalog.]POKE 214,128 {$D6}%ORMALA 1180 PRINT FLASH$: REM set Hpos and Vpos here before printing! 1200 NEXT SLOW:NEXT FLASH 1220 NORMAL:GOTO 1503 1230 FLASH$="Insert Message of Your Choice Here" 1240 GOSUB 11502POKE50,128$Make listings and catalog invisible.:POKE acter. Normally it is a CTRL-D (same as ADR -21838).POKE 50,127 {$32}Sets FLASH Mode&Try this subroutine in Business Basic:0 1150 FOR FLASH=1 TO 10:REM FLASHER SUBROUTINE 1160 FOR SLOW=1 TO 108 1170 IF FLASH/2=INT(FLASH/2) THEN INVERSE:ELSE N drive to X. (SAME AS ADR -21912).ePOKE43626,X {$AA6A}-Where X=0 thru 7. Will set/change the current slot to X. (SAME AS ADR -21910).POKE43698,X {$AAB2})Where X=ASCII of DOS CMND character. For/example POKE 43698,64 would make @ the DOS CMND9chart repeatedly.VPOKE230,32(Enables you to draw on Graphics Screen 1Use PERFORM GRAFIXMODE (%1,%1)UPOKE230,64(Enables you to draw on Graphics Screen 2Use PERFORM GRAFIXMODE %1,%2)dPOKE43624,X {$AA68}#Where X=1 or 2. Will set/change the)currentesoft error flag. Disable "ONERR GOTO".'(That is, it turns off error trapping.) Use OFF ERRCPOKE33,336Scrunch listing and remove spaces in quote statements.2POKE 50,63 {$32}Sets INVERSE Mode Use INVERSE.6POKE2049,1(Make first program line lis. To fix it, just POKE 243,0.8POKE 51,0 {$33}&Defeat 'NOT DIRECT' command sometimes.-POKE 72,0 {$39}Resets the Status Register.9POKE 214,0 {$D6}&Cancels the Applesoft "RUN ONLY" mode.POKE216,0 Cancel ONERR~POKE 216,0 {$D8}6Resets the Appl&lineto(%1)*xdist%,%1)*ydist%)200&=27:G$:::".D1/MENU.MAKER" 100010 INVOKE".D1/BGRAF.INV" 20 OPEN#1,".GRAFIX" 21 PERFORM RELEASE 22 PERFORM INITGRAFIX 30 PERFORM GRAFIXMODE(%1,%1) 40 PERFORM PENCOLOR(%15):PERFORM FILLCOLOR(%9) 50 PERFORM FILLPORT 55 PERFORM GRAFIXON 60 Y=PDL(1)*.74902:REM 192/255 80 /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030ELBROT.GRAF BasicFile (Thanks to Richard Altman) -: Example.11 (subdirectory) -: - LINES.TEXT AsciiFile -: - A2LINES.TEXT AsciiFile -: - A2.LINES AplSoft Prg -: - A3.LINES BasicFile - POINTS2 AplSoft Prg -: - STARS AplSoft Prg -: - STARS2 AplSoft Prg -: - A3.STARS BasicFile -: EXAMPLE.10 (subdirectory) -: - MAND AplSoft Prg -: - MAND.GR AplSoft Prg -: - MAND.TEXT AsciiFile -: EXAMPLE.7 (subdirectory) -: - MOVE.A3 BasicFile -: - MOVE.A3.2 BasicFile -: EXAMPLE.8 (subdirectory) -: - EGYPT. A3 BasicFile -: EXAMPLE.9 (subdirectory) -: - POINTS AplSoft Prg -:ft Prg -: - FERN AplSoft Prg -: - CYPRESS.BB BasicFile -: - MONT.PINE.BB BasicFile -: - FERN.BB BasicFile -: EXAMPLE.6 (subdirectory) -: - JOYSTICK.A2 AplSoft Prg -: - JOYSTICK.A3 BasicFile -: - A3 AplSoft Prg -: - A3.ALT BasicFile -: EXAMPLE.4 (subdirectory) -: PAGE.FLIP.A2 AplSoft Prg -: PAGE.FLIP.A3 BasicFile -: EXAMPLE.5 (subdirectory) -: - CYPRUS AplSoft Prg -: - MONTEREY.PINE AplSo -: - A2 AplSoft Prg -: - A3 BasicFile -: - A3.ALT BasicFile -: - A2.H AplSoft Prg -: EXAMPLE.3 (subdirectory) -: - A3 BasicFile -: - A2.L AplSoft Prg -: - A2.H BasicFile -: - RANDOM.A2 AplSoft Prg -: - RANDOM.A3 BasicFile -: - RANDOM.A3.2 BasicFile -: EXAMPLE.1 (subdirectory)(continued) -: - RANDOM.A3.3 BasicFile -: - RANDOM.A2.2 AplSoft Prg -: EXAMPLE.2 (subdirectory) about this disk. Side Two: -: ON.THIS.DISK : The programs and files you'll find on this disk. -: EXAMPLE.1 (subdirectory) -: - A3.T BasicFile -: - A2 AplSoft Prg -: - A2.H AplSoft Prg -: - A3.T2 NETO(%X,%(191-Y)) 160 GOTO 100 170 IF KBD=27 THEN GOTO 50:ELSE GOTO 300 300 TEXT:HOME:PERFORM RELEASE 310 CLOSE#1:RUN".D1/MENU.MAKER X=PDL(0)*1.09804:REM 280/255 90 PERFORM MOVETO(%X,%(191-Y)) 100 IF BUTTON(0)>0 THEN GOTO 50 105 IF BUTTON(1)>0 THEN GOTO 50 115 ON KBD GOTO 170 120 Y=PDL(1)*.74902 140 X=PDL(0)*1.09000:REM SMOOZED A BIT FOR RIGHT EDGE OF SCREEN 150 PERFORM LI0 WELCOME! Public Domain Library Disk 3BSB-15 Category: A2-A3 Graphics Disk Format: Self-booting both sides This is a disk you'll find interes COLOR ANS OR NOT.I%=1XMAX)"I = ",I%&J%=1YMAX)0790=: IF ANS NOT EQUAL TO 0, THEN DRAW A DOT AT THE POINT I,JDANS<>0660 NANS=0XJ%bI%lX=11000:X:1060 A"GET CLOSEUPS OF CERTAIN AREAS.":"SET XL0: ":XLO"SET XHI: ":XHI"SET YLO: ":YLO"SET YHI: ":YHI:5"XMAX = MAXIMUM NUMBER OF POINTS IN X DIRECTION"5"YMAX = MAXIMUM NUMBER OF POINTS IN Y DIRECTION"&:"SET XMAX (13CAN CHANGE TO$n GET CLOSEUPS OF CERTAIN AREAS.x".d1/BGRAF.INV")::"MANDELBROT GRAPH PROGRAM":::G"XLO,XHI,YLO,YHI ARE BOUNDARIES OF THE BOX TO BE DRAWN ON SCREEN."F"BEST STARTING VALUES ARE -2,2 FOR BOTH SETS. THEY CAN CHANGE TO"%ROGRAM92 IN THIS LANGUAGE. RUSS B. ALTMAN 11/5/85<?F UPGRADED A BIT BY DAVE OTTALINI, WAP /// SIG, MARCH 1989.PEZ XLO,XHI,YLO,YHI ARE BOUNDARIES OF THE BOX TO BE DRAWN ON SCREEN@d BEST STARTING VALUES ARE -2,2 FOR BOTH SETS. A ***** MANDELBROT SET PLOTTING PROGRAM FOR APPLE /// *******E ***** PROGRAM REQUIRES "BGRAF.INV" TAKES 1-2 HOURS TO COMPLETE= AN IMAGE (SEE SCIENTIFIC AMERICAN, OCTOBER 1985).B( PLEASE FORGIVE BAD BASIC FORM, I DON'T USUALLY Por A2 to A3 where graphics were concerned. It ended as a "work in progress" but one that you may well like to spend some time with. ProDos and SOS bootable. ting, and perhaps a bit challenging. It contains a number of Apple /// graphics programs - and their Apple ][ equivalents. But not entirely. This disk began as a learning exercise to see what was involved in "translating from A3 to A2 T AT? POINT I,J OF COLOR ANS. MAKE SURE ARGUMENTS TO FUNCTIONS4 ARE RIGHT DATA TYPE (STRING, INT, REAL ETC...) XINT%=I% YINT%=J%+ MAKESURE WE HAVE AN INTEGER FOR COLOR A%=ANS)C PENCOLOR SETS THE COLOR OF THE DOT TO BE DRAWN (ON APPLE ///)2 DOTAT ACTUALLY DRAWS A DOTAT XINT,YINT = I,JPENCOLOR(%A%)DOTAT(%XINT%,%YINT%)HITS%=HITS%+1A HITS JUST KEEPS TRACK OF HOW MANY NON-ZERO DOTS--EXPENDABLEC THIS SUBROUTINE ACTUALLY CALCULATES ANS, OR HOW LONG IT TAKEROGRAM ON THIS SIDE TO PRINT IT." KEY$'KEY$="A"KEY$="a"RELEASE:,1007KEY$="B"KEY$="b"RELEASE:::".D1/MENU.MAKER"B$="y""WHERE WOULD YOU LIKE TO SAVE IT?" VA$:@`"PRESS 'A' TO RERUN PROGRAM. PRESS 'B' TO RUN MENU.MAKER."*j"ANY OTHER KEY RETURNS YOU TO BASIC."tB~"REMEMBER YOU CAN USE MENU.MAKER TO LOOK AT YOUR SAVED GRAPH";"OR THE ALLDUMP.INV PES WE CALCED MOD2 *AND*: THE COLOR WE ARE GOING TO USE TO PLOT ON THE SCREEN. ANS=N$B$="N"B$="n"::1120.GSAVE.A$:::1120J8:"IF YOU WOULD LIKE TO SAVE THIS GRAPH, TYPE 'Y'; IF NO, 'N'";B$:B$BB$="N"B$="n"8LB$="Y"850@ IF WE HAVEN'T REACHED MOD2 BY THE TIME WE HAVE USED UP ALL? POSSIBLE COLORS, THEN WE JUST DRAW BLACK (RETURN ANS = 0) ANS=0E WE SET ANS TO N, SO THAT WE KNOW WHAT COLOR TO DRAW. NOTE THATA N AND ANS REFER TO THE NUMBER OF TIMROUTINECp ELSE, WE WANT TO CALCULATE A NEW SET OF X,Y'S AND RECALC MOD2zMOD2=X*X+Y*YMOD2>=41040 oldx=x oldy=y x=oldx*oldx-oldy*oldy+firstxy=2*oldx*oldy+firstyE LOOP BACK UP AND TRY CALCING MOD2 AGAIN TO SEE IF REACHED LIMITS6  FOR A NUMBER TO BE SQUARED AND REACH A LIMIT (4)X=I%*DELTAX+XLO Y=J%*DELTAY+YLO *FIRSTX=X 4FIRSTY=Y<> N IS A COUNTER FOR HOW MANY TIMES WE HAVE CALC'ED MOD2HN=0 RN=N+1\N>MAX%9907f IF MOD2 > 4 THEN WE ARE DONE, SO LEAVE SUB