3b54c6o#o"i"5"5ie556d#d"n"5"5L edc4b3 a e334oȱojȱokpok4j3 ej34aaf jb%<de Lfi"af0,%<deeDLa;;Ȇ<dLH 9e 9LF<e9H:iHHȱ9ȱ99:Lihɍ iLhIhJhIh:h9L; deLaL; de Laȱ9Lȱ9e-dȱ9e.eȱ9e-lȱ9e.me9j:ikjdƠ9e-G9e.H eidL{Lkj$"jzȹ"ȹ:,8jaL +Lw edLLedc4b3 ea34a edLbc#"eda4 3eYJe dcdbdaL$;_0ȱ_pL IJdeLpL p aIȥf %bIȥcIȥdIȥeI;LereYJaHc4b3L<' YLq). "C L9:LCLᧅĭL0L0Yɀ7LL0$ o  槥Lz L BITTE NUR FLOPPY ANSCHALTEN x7Lrst  ) ݩh`)L ZKR$ VP$ K LiP% EEEE LL "1L<EEEE 4Z VP$LQ VP0P 8GL :LU Rw, 3238 / o M - W   ii o M - E   L. ,ݢ**fjfI` R ,ݢ**fjf 215160192032189255032192255096013048048032049048032048032050058049085035 048017017017017017018018018018018018019019019019019019019021021021021021 0210210210210210210210210210210210211471641641641641641641641641641641640 1641641641640130203192166252189217192133251032107n  192173203192201057208008169047141203192238204192238203192198251208231173  206192201057208008169047141206192238207192238206192198252016194032204255  16900203219525516901503219525509616201503220125516001118t ,H yhʠ ,Α o I  Ц`0΍1`ihd fpx~dSʕ/YNZt>ْ?*Te[VU_*}kJS}fՒwYwde+u>J}gwYUݒw]ZgOVԔ*Mo.J[)R9*o*J[^R_')Jġ[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD:;RMGXLSTFHDP,Aj] ~%MBj~6$ PC SR AC XR YR SP)꽵ZZʕjTZT+yonVRnJk+մ%_R)J  >L  v !LP( ` } Hh8?Jnn   …0ۆ(&&u& *)7w *0! Lj* 0* е Ы Ц( $L `  JJL ,ͅ o M - W    i i ꥺ o M - E  )x ,! , yΠ ,Α ͽ  &   ݩ L~ B` "  `꓎DYNALOAD V2.00 FILENAME $ LOAD TERROR! I01 PP 8GLi :Li*    Ц  C _P 5L BYTES FREE **** (C) CBM-64 HYPRA-LOAD **** MIO SOFT 1984 H 62,002,165,167 v󯵚=eYOkYW$SUN}$OjVh=h<DCBX>)LN ,HP<[k=Zc^[_SH0NHҮB%HHL' % $)K )=< H)$N " Lh JMHF_^:SL[ \]^_@H ) n U( ( )c %H7Ш)) xT . /)L* ' # % #:wL=% ' ) 'L% A(f ( O0O8?Jnfne )": % |(0eeَTVKV "XU6/ e%. e%MX0 b%X. e%. e% b% b%TK  $ , o" %Њ =) ( H) -H "h "MX e"X. %. %` {"Ș e"J (J`M z"`8e`J J") J.JJJJ).X)M) JJJ Ȉ` e" MȐ`.T6/U` ` v ޮ?? L Y``H'h'`ä8 ()LBä8¨` }  > }&d 7_  k 7eÅØeą &= 74 L } } v & >  [ v 2å…   } 7&3 >.: U L    v L  ?x9H:H;H<=>@?l@ 8" " )L , )d"SUPER 64-MON1n" Kx" ..JIM BUTTERFIELDf((43)256(44)127)-".#7$8%"#""<"#""!&"#""e$&e%H787h7H787h7O7384l7O YMJ,),#($YX$$#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD PC IRQ SR AC XR YR SPABCDFGHLMNQR(TWX,:;$#"+-OIJ%&EV)>)(2$/'!!!&!)#L'&P)+!&*, # $ - o"N, "L"L /) }*L,ɑх҅^ T.:,$^i(ݍI .LI:$' -8 # .Lp - *Lh- -^8^ - o" ^MM #N, C) "Lh-L" -膭 H)Lͽ +A H) ( *Lh  + ++ "+ =+ H)(` ) 0 :)`hh`L` HH&&hehe&ee` +UHH H) H)h ( H)h * H) *Lh + H) ( * *Lh  + ++ + "+ +LH)J&&` ( `ԩԩDԎԌLe =<`K H) ( /)K` g(i /)K`>` V`H %h. ( L (v/ ; =)< (= ( H)C (D ( $) (Lh L` A( ( R(DC $)K ( )  ( `e 'IS ) ' ))"У " ܎ܭ) ܩߢ%DCBxDC (<H=H>H?@A@L` A(Z[\] R(\]Lh 'bc R(OP R(QR ) WN 1(V N ". Lh M3M8OȱPQȭRmbȱmc /)0 A( R(TU (1(M/Uɝ o*S8`ʊMVAw % o" x} %yz %{|Lh e%JKe hhVL$L` KJ`0G`8`N`HJJJJ '(h)L'( ,  `?h)>@Ahi=hi<H ( hAh@h?U.T*i? LH) ' #,L1%/ `  Ĥ>å ͽ  &   ݩ L=# BLh ,HwHHHHl`KH ( )hILr" $V  # L" %.: ( H) ( ( # H)  H) h kLL } } v v' v "  Ɲ  ]  U Y k&В >L …!(  o  L, Y U Y H $h :* 兺 `l0l2 ԩ )L ,п } ,в … } Н L \HJJJJ th) tH hL 0:i`H•h`  `* v v ` * v *8`:i)`,&` v Xh>h=h<h;hh8:9? ]B* kR*&` hh& . k v. ݷ HH`L:9` Y \ k` L k`;©`H ]h.Lk ; 9 \: \#)t**h++,E*` <*+7,!,),#` ` ӻ  PRESS ANY KEY NEW DEVICE-NR (8-11) DEVICE NOT PRESENT #ǩ ٠  :Ơ #*#L1ƍ L+ƍ EL1ƍ Ő h L4ǭƐ ŐLEөз ŐĩƮǬ````ϨƐ Ű njLNL1, H h L1 8 h_`:Ì;àH)jjjj 5h) 5')m:Í:Ð;Ҫƍ:;`(abh_` LƽϠH,0 A@ahH) h)jjjjƑ_` ƽ a a È_ _` L ` Lí)jjjƅ_ƅ`j)ƅaƅbH)ea xL  `  ߢ%ɑ# `a (u `.HdX=< %B*LM)? , %. NVd (. $ݐ/I //lL`  V`N " H)`HShS`TUL 8S1,210,2,141,213,2,169,255,141,198,2,141,201,2,141q 204,2,141,207,2,169,50,141,1,208,169,24,141,0,208,160,0,177,252,240 250,32,210,255,132,212,165,211,56,233,40,176,2,165,211,24,105,3,10 10,10,141,0,208,42,41,1,141,16,208,165,214,10,10,10,0,208,245,162,0,32,18,225,201,13,240h x 8,157,0,201,232,224,17,144,241,138,133,254,169,1,133,167,169,8,133 168,169,8,162,8,160,8,32,186,255,165,254,162,0,160,201,32,189,255,230 252,169,167,166,252,164,253,32,216,255,76,0,192,0,0,0,0,11,8,202,16,250,169,255Z 2 141,192,2,141,195,2,141,210,2,141,213,2,169,255,141,198,2,141,201,2 < 141,204,2,141,207,2,169,50,141,1,208,169,24,141,0,208,32,228,255,240 F 251,201,133,208,3,76,160,192,160,0,145,252,32,210,255,234,234,165,211> P 56,2lͬ$ǹxΙw"ǐw`%"Lj0$ǐwΙxΩ wΈ`HIh``ؙؙٙ`9JZ5mkt+yMzV*թ=n\T֪+{kdչҔYmۙ+TڞԔYmݾ%e*Odrr'Juu+9j&ɲK4NҔSovZrr+/k\)J" $ L˩ п  `$C [ʩ& `w*$ tLL@ t ʩ Lm̢w yLL̩ xL̠ @ ` ɠ) )ǝw `HHOwΈhh` ̅wH )0` ) ɹ) `Hǩ8Ǎh ɬǹ) `H hLhHhIHIʭ L?ʭIHHH`bʌcʭ` bc  L  K K K΍wέL΍xΩy ?ˎǠKK`K` &&`"ǩ e  [ 7B-P:13 0  E 7U1: -ʢ -ʮǩ -ʮǩ -   ` 8`ǩ ٠  7B-P:13 0   7B-P:13 0  7U2: -ʢ -ʮǩ -ʮǩ - ` ƮǠ ƐގƢ ƮǠ ̭wǎƮƬ Űƍǭƍ ` ŐL1 h L4 ŐL1 L4 t ʩ ĠK  ` t b LnƠ! 7 ` 7I0:L#0123456789(Pxabh) e__``ɝ `Lɑ `í8L `íiL  `L4,0 ƝL0L:80LoGA7****Įƽ)  `  `L40:80Įƽ) LNGA7LĠƙ؈L 7ANTAL TRACKS (35-41) S`W ' % 1(  Y! /)Vn See Y! Q VFW ( H) *` ' )V ` d(K |!K /)L` Lh t! (' (e ) Y o(֝e ) g( J %e J h! /) |! ,24,105,50,141,1P 208,238,39,208,169,15,141,24,212,165,162,24,105,4,197,162,208,252,140 24,212,230,252,208,186,230,253,208,182,255,69,78,84,69,82,32,78,65 77,69,58,0,0,0,0,0,255,2g)jfyg)ofkRuwnR9*kg)6rfkfog)6ke)J196,7G 158,50,48,54,52,0,0,0,0,0,0,162,0,142,32,208,142,33,208,232,142,134 2 ,169,147,32,210,255,169,0,133,252,169,9,133,253,169,11,141,248,7,169 1,141,39,208,141,21,208,162,63,152,157,192,2,202,16,250,169,255,141' 192,2,141,195,2,1433,40,176,2,165,211,24,105,3,10,10,10,141,0,208,42,41,1,141,16,208 Z 165,214,10,10,10,24,105,50,141,1,208,230,252,208,196,230,253,208,192 d 169,0,160,0,145,252,169,147,32,210,255,169,0,141,0,208,141,1,208,162 n 0,89,175,193,232,32,210,255,201, Y49152 49600: D: Y,D: Y:49152y 162,0,142,32,208,142,33,208,232,142,134,2,169,147,32,210,255,169,0,133 252,169,9,133,253,162,0,189,0,193,157,1,8,232,208,247,169,11,141,248 ( 7,169,1,141,39,208,141,21,208,162,63,152,157,192,2,h֤L ʩ $ͬ"Lj0 w Ș Ǣw` ʩ $ ?˰H h`%ǩ$ǠǠw , "ǐ$  $ ΢70 ;Ǎ|ͽ<Ǎ} L3 `%0LN:$"ǰ$ǙwL3ްɠ^ ذ$$`$"ǰw% ww  # ʥHH heheei؅"ǭ, 0wΈȌ ǥ8m`'Ǎ(Ǎ ǹwK)H.'.(. ǭ(H'H.'.(. .'.(. hm'Ǎ'hm(Ǎ(h m'Ǎ'ǭ(i(ǰа 'ǭ(`8`     4  5 "S[TT I DISKETTEN SOM SKA BLI SKYDDAD"O"TRYCK P] EN KNAPP"bA$:A$""30l(B$""F15,8,15:15,"I0":1,8,3,"#":15,"U1:3"0",18,0"dND$"PROTECTED"(34)(0)(0)iND$ND$(CX)B$nND$(ND$" ",16),)L$(9)"":: " I19:1,(15)S$L$(I)(8):L$(I)""::w # 31,JANUARI,28,FEBRUARI,31,MARS,30,APRIL,31,MAJ,30,JUNI $ 31,JULI,31,AUGUSTI,30,SEPTEMBER,31,OKTOBER,30,NOVEMBER,31,DECEMBER%g7rl䗦Nuz{Izd5͖gJv)JӶ)J FREDAG";5 1," L\RDAG S\NDAG":1:DD1:D023Y  I1 D:S$S$" ":{  I1 7D: 27:: 34:S$""  I1 7: 27:: 34  XA 24  1: XX1: XA  T$"":X$(X):L(X$)1:T$T$(X$,L): J1  BB1 B(B):* CC1:AM%(C):CM98 BBA: 7R Y1800 Y1900 12k C2Y4(Y4)A29 C2Y4(Y4)BB1 BB1:DB(B70.1)7 "VILL DU G\RA ANTECKNINGAR";Q$: Q$"J"18 "VILKEN DAG";X:X1XA14*  I1!LƹϢ!LƢ !L ! ƍ, 7ASC,0 7HEX` _` ؆abƍ Эƍ!Щ #έ 7Πƙ(ؙ_Ƒa_i(_`_a`) ؅b`ե_ϭƍ! 7TRACKSECTORBYTEPOS_ 13-14"jCS(1)1121569"*ERROR LINE 18-27"GkCS(2)1858147"*ERROR LINE 31-43"7Awur%w\)s]usܧ%w\)w]usܧew\)w]usܧeJYmJL5wUw\yv9v'9r]Mr%tg)v'=v)v])ryw\Uv)r]Ur9rURUVMR9*MR)JJCOMB@E@OMJI@HB@NMQ) OLNFBNNFBNNFBNJ@@@JEBNHEOKAHFI@CHEBNHEOMHDOJHDOLHHKAOJIAOLHHL@OOM@OGLF* OKLFOMJEOKLI@GM@NMJBOOKMDFONIM@@@HKM@@OLIMCE@HKM@@OMIMCE@IKME@OMIMFE@I+ LJN@OOM@NCJIDDJBDEHMCE@HHNCF@HJBEKJI@@IM@@@JNHM@OJJE@BHMOO@JDLADON, ,JEOKCHNEBNLI@AM@LBF@JB@DJ@@@KIFD@DIEDKLHLJA@OGF@JICEHE@AB@CNONJI # @KHMAAM@HMB@M@JICDHE@AF@J@@@HDOJJI@HHEOKHD@BKAOJDE@BHE@BLHM@@BNFOKLDBM $ M@OAJEOKLEBNM@NKF@JMOO@JDHB@KAOMB@NKOLB@AOOMB@E@OMB@LEOMFHDHLE@BO@AFB@% JCOMJIJEHMALOMB@E@OMJI@HHMNLOFNGFHB@AFNGLFEAC@MMLIB@I@MILIH@I@@HLIJ@I@MALIN@K@LMz  B@FI@ENFEAJEEALI@HM@LBGHJICEHE@AF@B@AFNGJI@@HEMDF@JI@KHM@@OMJI@HHM@COM  J@@@IHBI@GJJKMFD@DEI@@AAII@@AALHM@O@NN@COMNN@@OMJM@@OMCHNEBNLI@AM@N@JE  BNCHNI@CHEBNF@JB@DKMFD@DIEDKLJA@OHF@ GKON  ------------------4  CODER, $FC00-$FD29M  ------------------_  64512,64809  B@B@DCDODDDEEBB@@BAIB@DODNDEB@@I@NB@DM@AAIB@CACICHCIEI@OAEABB@AC@E@CAB  @EADB@DCDODDDECJB@BMBMBMBMBMBMBMBMJB@@HJHMB@M@HMBAM@IM@@MHIM@@MIIM@@MJF N x15,"B-P:3,144":1,ND$;:15,"U2:3"DV",18,0"H I$"I"((0),2):15,I$ TRILOGIC S.E. V3DISK-MUSICGOLDEN GATEDISK-PROTECT] T4915249166:A:T,A::Y 169,19,32,210,255,169,132,141,218,0,32,101,233,96,0 9L:T$T$" "? :T$T$"":L$(1)L$(1)"":L$(2)L$(2)T$y L$(3)L$(3)" ":L$(4)L$(4)""N$(X,1)"" L$(5)L$(5)" ":L$(6)L$(6)""N$(X,2)"" L$(7)L$(7)" ":L$(8)L$(8)""N$(X,3)"" !L$(93:"RAD"I" ":X$"":"";X$L N$(X,I)(X$" ",9):  "VILL DU G\RA FLER ANTECKNINGAR";Q$:Q$"J"14  1,4,0:X0:X$M$(M)(Y) 1,(14)(40(X$))2)X$:1 1,(15)" M]NDAG TISDAG ONSDAG TORSDAG R EAD W RITED RIVEL INK @ DOS E DIT T RACKA SC H EX CRSR KƝؽ)?  L DISC MONITOR V 3.0 ` (ab,0 @@a)eaab֢ Ь!ЭƌƍƭƭЍƩφ N ~$0(ƬƭƎ Ќ!ЍƍƍЩ $` H ~h݋  LET@DWRLAH!0NmyWFƦHƍ  hH 7ʁ$hH)jjjj h) @LǢ!LǢa -----------------b DATA READING PART7c -----------------IdS,E:S.105eA$:C1(A$)2:W16(((A$,C))64)((A$,C1))64fS(C1)2,W:CS(N)CS(N)WC::SS(C1)2gSE101hNN1:100iCS(.)8072"*ERROR LINELB@NKOLDLNIOMJB@@KMBBONIM@@@ENHM@OGDL@@@Ej& JICGHE@AEHB@J@NEB@FCJFJIICJBIJHMGG@BHNGH@BJI@BHELFFL@B@CJIAKHMAAM@DLCD' OL@@@J@HLE@GINCBC@CFCA@@@@@@LFJOLFJOLFJOJB@@KMCE@HIM@@OLKMCE@IIM@@OMNH( M@OAKMFE@IIME@OMNHM@OGJICEGHHE@ADLNEOMB@LEOMB@KAOMB@ ------------------$  CODER, $FD50-$FEF1=  ------------------O  64848,65265 JI@HHEOKJ@@@HDOJJEDLBI@GHEDLJEDNBI@GHEDNKAOJAHFEDKHEE@JFDLN@@@O@@HJEE@ ! @JBFE@LJM@OHJEE@DEDMHEE@JFDNN@@@O@@HJEE@DJFFE@LJM@OHJEE@CHNEDOIAOJLHM@6 " LMNFOK IM@@MKNHM@OAJBAIKM@@OLIM@@@DJI@AIM@@MHKMAJOLIMEB@DJI@AIMEBMHLJA@NGJB@@  KMGJOLIM@@@ENHM@OGJIAGHMAHM@DL@@@EJICGHE@AEHJI@AHMHF@BJIACB@AFNGJIAAB@  AFNGB@AFNGJBACJIAMB@AFNGLJA@OJJI@@HEEAJ@@@HHM@OMB@CNOALIADM@AGJEEAO@O@-  JIIMDHB@AFNGJIBMB@A  ------------------3 THE FABULOUS CODERL BROUGHT TO YOU BY:e ONE! IN MAY 1989!!~ ------------------"";:100 ------------------- START ROUTINE $07E8 ------------------- 2024,2031  GHJICDHE@ADL ͽ ! H )h@ L A L ~  ө  - N]Y+  @"@"A @ d L SP@6  $L L  - 12,  x{3L 2240 j k g h /mΌɝmΌ37XLWkZ׵W9vZ+v]|)u^s䧹zvd*ֵj}RJw+_TkSd|W]ryw}u)J ` !` !` ` '1) TAPE TO TAPE 2) TAPE TO DISK 3) DISK TO DISK 4) DISK TO TAPE SELECT MODE! INSERT SOURCE DISK INSERT SOURCE TAPE " PROGRAMNAM `hh  L(/) U. STAHL (0201/790596) 1) TAPE TO TAPE 2) TAPE TO DISK 3) DISK TO DISK 4) DISK TO TAPE SELECT MODE!   '  PROGRAMNAME: $INSERT SOURCE DISC INSERT SOURCE TAPE TURBO (?50,54,48,32,20,20,20,20+ 20,20,20,20,20,205 -17jٮyٮvjdndrg)sRfR9wٮv٪MyM)MM6r)Vm)396r6ky6k)6r6snJ՛JL湾sg)MdvfMMi6re)KV%)3M9Mi6k6rfjU)J <192,153,0,8,136,16,247,160> F61,185,102,192,153,167,8,136] P16,247,160,21,169,0,153,0 Z8,200,192,167,208,248,32,253 d174,160,0,177,122,201,34,208 n13,200,177,122,201,34,240,9 x153,20,8,76,81,192,76,226 252,230,46,108,2,160,3CH ONE SEPERATED ? NEXT FILE : cUp -T)r]9g2yf)~dIsܗyWU*J*J*Jv]שu_g=Β'J}|*J*J*J*J)]WUu]\J̤w)u]uw*Jur)+2ez-es7|u]\J̤Mz)v\=WUuw=򒟗U|-|)JLU LK L ? SINGLE DRIVE COPY C64 & 1541 ---------------------------- (C) 1984 BY ST. BUEHNE IMPROVED BY VIPER  1 SEND COMMAND  2 DISPLAY DIRECTORY  3 COPY FILES ENTER YOUR ANSMMAND : DOU YOU WANT TO ...  1 ... DISPLAY A DIRECTORY  2 ... VALIDATE A DISK  3 ... BEGIN TO COPY INSERT DESTINATION DISK INTO DRIVE VALIDATING ... WRITING READING ,X,RUI-,X,WUI+ END OF COPY ! DOU YOU WANT TO` 0L L L ̠  - LL   ~ LK  `N:  Y (Lՠ  - YNL $L;  L B &B &BABiB`  L  3 ... OR PROCEDE READING COPY IT  - 3/21` ;LL V  IL `   -    A  " A@"@@=@ `"#)Щ      Y % 2062!Х Щ  14 3L1LC D   L " " ͽ !   $ ة - L D  - $ $     " " ͽ !   $ $ E: DMM OM  頠   _ i i  i  _    i _ _i   _i _i SAMMY LIGHTFOOT U. STAHL (0201/790596) Y/N)? INSERT DESTINATION DISK INSERT DESTINATION TAPE BACK TO BASIC? (Y/N) RESTART FROM BASIC: SYS 50944! ` -` f` 800` h ` ` ` ` 0 M%(12),M$(12): I1 12: M%(I),M$(I):j N$(31,3): I1 31: J13:N$(I,J)" ":: "VILKET ]R";Y: Y1753 Y2100 2 "VILKEN M]NAD";M: M1 M12 3 I1753 Y:AY1753:BA365.25: A47 BB1  A147 32,89# 166,76,174,167,169,167,141,2> 3,169,2,141,3,3,160,0Y 185,0,9,73,85,153,0,8| 200,208,245,238,187,2,238,192 2,173,192,2,201,160,208,232 76,167,2,160,45,185,167,8 153,167,2,136,16,247,76,173 2,0,165,8,0,0,158,50  LISTSKYDDY:Y04=49152X,Y:XX1:SSX:2RS16653"FEL!"Xw 160,0,185,0,158,73,85,1530,159,200,208,245,206,4,192206,9,192,173,9,192,201,8(208,232,169,158,141,4,192,1692159,141,9,192,160,32,185,161WER ?I$ INSERT SOURCE DISK INTO DRIVEYES/NOYES NO ^ FILE TOO LONG FOR COPYING.  ILLEGAL FILE TYPE LIST FOR COPYING IS FULL DO YOU WANT TO COPY THE PROGRAMS ...  1 ... CONTINOUSLY  2 ... OR EA CONTINUE ?L `  L , L HH 8hh`  L ,   <  H $ $h O ( (` Щ Π  - 3@128$0   ~  - YNL  Y/N ? x4` ""#7X` "L  ` $ LO L ) W )W`HJJJJ X h)i0L Щ  - Y`NL>   A `L)Щ  Ƞ L  TRY AGAIN ? ENTER DISK CO   ( ` "#&} #i`)Щ LQ Lj  -    A  " A@"@@=@ ) `"#$% $"%# Y  SOFTWARE-RESET7 T4915249177:A:T,A:BBART:B2854"DATAFEL"w120,169,13,141,20,3,169,192,141(21,3,88,96,173,141,2,201,5,24023,76,49,234,76,226,252& AΘ >8<eÅ?e(= vťEL ő- ēEׅĥŮ寐 }ȄXL  }Ąשݢ & Ľ ň` &ƣ`, ݎHhJJ` <=8><5 cʩ0r   i:i; P0 P0L cʢP O LǢp  cʢ  YeN cʢ  =>8?=5@>6=m5?>m6@cʢ  YSN cʩ 8­m:m;8 jک6­:; g7R cʩ :;ƭm: ƭm;8 Ʃ6 ĩ7 cʢ < YNLL Ѝ!Щ ϝ` H:"DO ANOTHER ? Y/N N";:CH$* CH$"Y" 1400"OR" TS% " INCHES TOO SHORT!!!"p*:Z13000:4 "TO MAINTAIN YOUR CURRENT WEIGHT OF";CW:>"YOU NEED";CD;"CALORIES PER DAY"::HCDCD500RWA$"NEVER GO OTS%OW53 RWCW"OH OH TUBBY!,YOU ARE"OW"LBS. OVERWEIGHT ":^ "OR" TS% " INCHES TOO SHORT!!!"p*:Z13000:4 "TO MAINTAIN YOUR CURRENT WEIGHT OF";CW:>"YOU NEED";CD;"CALORIES PER DAY"::HCDCD500RWA$"NEVER GO O0L L ݭ r  &(&  &(&  &(&  &(&I`` ,… ,…Åą`$L `  JJL , o M - W    %2065 JYS6LK 㢥 (l l L    n 莀 LP,n Sn 莀  Ie 0f e  @#  n bde cbdcele f l   k L IMOMR]D","REDAN DIMENSIONERA" "DIVISION MED NOL","EJ DIREK","STR[NG/VARIABE","STR[NG F\R L]N" "FILDAT","UTR[KNING F\R KOMPLE","KAN EJ FORTS[TT"& "ODEFINERAD FUNKTIO","VERIF","LOA3 **100**B " -FEL. "O **110**[ "RA,1)):A,B:AA1: xA41859:A$:J15:B((A$,J,1)):A,B:AA1: }A44284:A$:J114:B((A$,J,1)):A,B:AA1: A44300:A$:J116:B((A$,J,1)):A,B:AA1: "KLAR.."' **60-80**i "F\R M]NGA FILE","FIL \PPE","FIL EJ \PPE","F 2061x48.%-.a=HL&Ʌ- .7X YLʅVȈV-"SVENSKA FELKODER":53280,6:53281,6M"FLYTTAR ROM TILL RAM. ";j I4096049151ķ Ģ Ę Ąע걬 ĢʥŮ寐 ĢȄXL)x` Ģ ƫ Ģ`Eׅש) Ģ  Ģƣ` `,+, Å `z` ať ƅí= P ?=6<m5>=m6?<``62, FILE NOT FOUND,00,00 ]@vv _c' ^WHBe @TUTT@w{k@b@d@@@ 0ʢm + â g Q cʢF  ʊȠ cʭ0Y   ]:;8 cʢ +, Åĩ ĥ:; cʭ  cʩz  6 ;: 7 ʭP0 P0L cʢP O LȢ  800` (5 ` $9  0ʢmi . cʩ F л `OƩ OƙPȌO  L $  ` , S ת S ͽ S˪ N A DIET OF LESS THAN 1300 CALORIES"0\ CD1300 WA$:880of "REDUCE YOUR INTAKE TO";CD;"TO LOSE ONE POUND PER WEEK"wp:z" EXERCISE TO LOSE MORE THAN 1 POUND PER WEEK":"DON'T CUT MORE CALORIES !" i i  o M - E  )x ,! , y  ,‘ ,H yhʠ ,‘ o I  Ц` `  CSID OBRUT  8 } ĥi Ģ Ģ ͩÄą ʆ`1 PP 8GLi :Li*    Ц  Li Li,,0* * * * * * * * `  sD:"h **120**u "STOPP" "**125** ,"F\R M]NGA SVAR" 6**130** @"?SIFFROR, TACK! " J1,54u_7[۔R|׽JsIs-{^Jvg-{)6RuJr^]-Is^Jz)v]y[ߔR|:Jsݩ){yo)6R{-uJs)JIL EJ FUNNE" "ENHET EJ FUNNE","EJ INFI","EJ UTFI","FILNAMN FATTA" "FELAKTIGT DEVICENUMME","NEXT UTAN FO","SYNTA","RETURN UTAN GOSU": "SLUT P] DAT","FELAKTIG KVANTITE","F\R H\GT TA","SLUT P] MINN"y "RAD EJ FUNNE","UTANF\R D :I,(I):)"KLART..":"F\RSVENSKAR. ";2A41374:P41768<I129:A$:H(A256):LA(H256):P,L:P1,H:PP2FJ1(A$):B((A$,J,1)) PA,B:AA1::< dA41833:A$:J17:B((A$,J,1)):A,B:AA1:o nA41841:A$:J14:B((A$,J 50Dr1381D|"READY."D19,54:A$DR5427254296:R,0:D54296,15:54277,0:54278,240:54275,8:54276,129 E54272,12E54273,1KE"INTERNAL MICRO-QUAKE!"vEO5X((1)101):OO(X2):54273,OEO10Y OR."B"IS THAT FRUSTRATION OR WHAT?"BA$:A$""5260BA$"M"10BA$"U"5300B5260B1381 C"READY."+C19,54:A$:A$"":53207CL(A$)ICP((1)L1)ZCC$(A$,P,1)lCH$((C$)1)C:P1)"";H$C:" RNMENT DEFENSE SYSTEMS **"@"PASSWORD:";@19,54:A$@:"LOGON COMPLETE."A"WELCOME, OFFICER NETTLES."A"COMMAND:";*A19,54:A$:KA"MISSLE SILOS ACTIVATED."[AD11000:A"LAUNCH CONFIRMATION RECIEVED."AD1 >"BROKE INTO THE DEFENSE DEPARTMENT">"WITH YOUR MODEM."?"IF YOU DON'T HAVE A MODEM, THEY'LL"#?"THINK YOU HAVE ONE."7?A$:A$""4860G?A$"M"10X?A$"U"4900b?4860l?$1381?8R5427254296:R,0:?B5429OL"<"ITSELF."<"IT WILL SEEM LIKE IT'S WRITING"<"AND EXECUTING A SMALL PROGRAM."=A$:A$""4560 =A$"M"101=A$"U"4600;=4560E=1381S="READY."b= 19,54:A$=:A$"LET ME TAKE OVER NOW."=4650= IR THE USER HITS RETURN.":&"IT WILL ALLOW UP TO 10 LINES.":0A$:A$""4400::A$"M"10;DA$"U"4431;N4400F;O"YOU HAVE UP TO 10 LINES OF TEXT FOR"o;P"YOUR MESSAGE. HIT RETURN TO SKIP";Q"REMAINING LINES. START ENTERING:NACTIVE",l AL$"C" "MODERATELY ACTIVE"Vv AL$"D" "VERY ACTIVE" AL$"E" "STRENUOUSLY ACTIVE"::646,1"ENTER CURRENT WEIGHT";CW AL$"A" CDCW13 AL$"B" CDCW14 AL$I: F6 TT12 S$"F"450) S$"M"520> Z13000::580b RW100T5: RECOMMENDED WEIGHT{  FR$"M" RWRW10  FR$"L" RWRW20 "AT"F"FEET"I"INCHES "YOUR RECOMMENDED WEIGHT ="RW  : RW110T5: RECOMMENACTIVITY LEVEL"& 9)"A) VERY INACTIVE"E 9)"B) SLIGHTLY INACTIVE"d 9)"C) MODERATELY ACTIVE"} 9)"D) VERY ACTIVE" 9)"E) STRENUOUSLY ACTIVE" : 15)" BE HONEST !" "AL$:AL$""290 , AL$"E"290 6:"PLEASE SEL d140PnTHE FOLLOWING WAS INSPIRED BY THE MAY 1987 ER'S DIGEST ARTICLEsENTITLED "HOW TO STAY THIN AFTER 25" THE MULA RECOMMED WEIGHT xCALIE AKE ARE TAKEN FROM THE ARTICLE. (I ADDED THE FRAME SIZE AFTER0 }MANY COMPLAS OF MY ((1)101)20:OOY:54273,OE53270,X:53265,Y:5530Ep(808)2376040Ez""25)"DISABLE STOP"F808,237:54296,15:54296,0$F290MF""25)"ENABLE STOP "mF808,234:54296,15:54296,0vF290FXM$"M ?SYNTAX ERROR"C5310C902C""YOU ALWAYS WANTED TO HAVE AN"D,"EARTHQUAKE OCCUR ON YOUR COMPUTER"%D6"SCREEN, RIGHT? HERE IT IS."ID@"8.2 ON THE RICHTER SCALE."]DJA$:A$""5450mDTA$"M"10~D^A$"U"5490Dh54950:A "LAUNCHING NUCLEAR WARHEAD #";((1)50001)4000AD11000:A:5070AP902BZ"EVERY TIME THE USER TYPES A"ABd"COMMAND, THE COMPUTER WILL MIX"kBn"UP ONE OF HIS/HER CHARACTERS AND"Bx"GIVE 'EM A SYNTAX ERR6,15:54277,0:54278,240:54275,8:54276,65?`"READY.":19,54:A$ @j:"DIALING NORAD DEFENSE SYSTEMS...":54272,12@tI14:J1254@~54273,50:54273,60Z@D125:::54273,0:D1750::z@"CONNECT ON -- 9600 BPS"@"** US GOVE1(A$):(A$,I,1);:D1200=":::=*4640:D1300:=4:A$"10 PRINT"(34)"HELLO"(34)>>4640>HA$"20 GOTO 10"">R46407>S:A$"RUN":4640H>\:D1750:U>f"HELLO"_>p4710h>902>"SCARE 'EM INTO THINKING THEY"";R19,54:I010:M$(I)::;S"HIT ANY KEY TO START";TA$:A$""4436;X1381<{G<902o<"THIS WILL FREAK 'EM OUT BY"<"ALLOWING YOUR COMMODORE CONTR"C" CDCW15 AL$"D" CDCW162 AL$"E" CDCW17:: RWCW"VERY GOOD SKINNY, YOUR HAVE GOOD WEIGHT CONTROL":810 RWCW760 Z13000:OWCWRWCWRW5 "NOT BAD, YOU ARE ONLY"OW"LBS.OVERWEIGHT!":810 DED WEIGHT "AT"F"FEET"I"INCHES2  FR$"M" RWRW10K & FR$"L" RWRW20n 0"YOUR RECOMMENDED WEIGHT ="RWt : D"" N 53281,4: 53280,4:646,13 X AL$"A" "VERY INACTIVE" b AL$"B" "SLIGHTLY IECT YOUR FRAME SIZE"7 @:"SMALL MEDIUM OR LARGE"N J FR$: FR$""330Y T"" ^"PLEASE ENTER MALE OR FEMALE" h S$: S$""360 rS$ "M"S$"F"390 | 360 "ENTER HEIGHT-PUT COMMA BETWEEN FEET AND INCHES";F,I TOVER 40 FRIS) THIS IS LY AN ATTEMPT BE USED ASl A HUMOUS GUIDE BE USED AS A SERIOUS DIET PLAN!!!r 53280,14: 53281,1 "" : 13)"CHUBBY CHECKER": 20)"BY": 12)"PATRICK M. WAGNER":: 7)"ENTER A X I M U M O V E R D R I V E"FbC1""M$:D1100:FlC2""M$FvC3""M$GC4""M$GC5""M$0GC6""M$=GC7C0SGCC1:D125::(1)101):OO(X2):54273,OEO10Y 54272,12/o ""12)"INTRUDER ALERT!!"0p 54296,15:54277,0:54278,240:54275,8:54276,65&0r 54273,1<0x 53280,0:53281,0T0 I1100:54273,I:j0 53280,2:53281,20 I10011:54273,I:0 26800 9020 "THERE IS " (C)1985 COMMODORE ELECTRONICS, LTD.". " (C)1977 MICROSOFT CORP."+. " ALL RIGHTS RESERVED"1. :. 902f. "WITH 'INTRUDER ALERT', YOU CAN". "MAKE SURE EVERYONE KEEPS FAR". "AWAY FROM YOUR COMPUTER.". 12:D1100:+L 53280,11:53281,11:D1100::53280,0:53281,0,V "":,` 902;,j "THIS WILL MAKE YOUR C64 SCREEN"f,t "LOOK EXACTLY LIKE A C128 SCREEN,",~ "BUT ACTUALLY BE IN C64 MODE.", "AFTER THE 'STARTUP' MESSAGE IS" "(OR C128) IS GETTING SLEEPY. SEE"*"WHAT HAPPENS WHEN THE UNSUSPECTING"2*"USER TRIES TO WAKE IT UP."O*"ZZZZZZZZZZZZZZZZZ"c*A$:A$""2210s*A$"M"10*A$"U"2250*2210*1381*"READY."*19,54:A$* )2:D110::'902("THIS IS GUARANTEED TO FOOL EVEN"2("THE MOST INTELLIGENT OF ALL NERDS."_("THEY WILL THINK THEY'RE COMMODORE"("IS BROKEN. HAVE PLENTY OF TISSUE"("PAPER READY."("THIS JUST MAKES YO :54296,15:54296,0::%""% R5427254296:R,0:& 54296,15:54277,0-& 54278,240:54275,8F& 54276,65:54272,237T& 54273,50k&53296,15:I1250&53280,11:53280,12&&53280,6:53280,4&053280,14:53280,0&:53280,6:532 "40508A$"M"108A$"U"409084050813818"READY."819,54:A$ 953280,0:53281,0>9""COMPUTER MALFUNCTION"X9,R5427254296:R,0:9654296,15:54277,0:54278,240:54275,8:54276,659@54272,12 E?"6 "THIS WILL GET RID OF 'EM."6 A$:A$""32906 A$"M"106 A$"U"3330 7 32907 1381:"READY.",7 19,54:A$`7 :"OUCH!! DON'T HIT MY KEYBOARD SO HARD!!"7 :"I'M GOING TO PUNISH YOU BY TAKING"7 "AWAY YOUR A ZONE!"4N ""4X I1(A$):(A$,I,1);:D1100::54273,2555b 54273,200:5l I25501:54273,I:E5 54273,50:I150:53280,0:53280,5:o5 54273,60:I150:53280,0:53280,6:5 54273,70:I150:53280,0:53280,2::53280,0 | 19,54:A$2 :"BYE DEAR, TALK TO YOU LATER, EH?"2 19,0:2 9023 "YOU ARE ABOUT TO ENTER A"E3 "DIFFERENT DIMENSION - NOT ONLY"r3 "OF SIGHT AND SOUND BUT OF MISCHIEF."3 "DOO DE DO DA..."3 A$:A$""30503 A$ NOTHING WORSE THAN A"0 "COMPUTER TRYING TO FLIRT WITH YOU."1 "TRY THIS ONE ON YOUR FRIENDS AND"I1 "THEY WILL BE IN FOR A BIG SURPRISE!"]1 A$:A$""2800m1 A$"M"10~1 A$"U"28401 28001 13811" "READY."1, 19,54:  "YOU CAN MAKE UP SOME WILD STORY"/ "EXPLAINING YOUR NEW SECURITY"/( "SYSTEM."3/* "TURN THE VOLUME WAY UP!"G/2 A$:A$""2610W/< A$"M"10h/F A$"U"2650r/P 2610|/Z 1381/d "READY."/n 19,54:A$:I5427254296:I,0:: , "DISPLAYED, THIS PROGRAM WILL END" - "SO BE CAREFUL WHAT KIND OF DISK"%- "COMMANDS YOU USE."9- A$:A$""2440I- A$"M"10Z- A$"U"2480d- 2440- "":53280,13:53281,11- " COMMODORE BASIC V7.0 122365 BYTES FREE"- :"DON'T WAKE ME UP. I'M SLEEPING."*"READY."*19,54:A$!+ :"I SAID TO LEAVE ME ALONE!"/+ "READY.">+ 19,54:A$o+$ :"GOODNIGHT, I'M TURNING THE LIGHTS OFF!"+. D13000:+8 53280,15:53281,15+B D1100::53280,12:53281, UR COMPUTER"("IGNORE EVERYTHING YOU TYPE. IT")"IS SIMPLE BUT EFFECTIVE."*)A$:A$""2040:)A$"M"10K) A$"U"2080U)2040i) 1381:"READY."x)419,54:A$)>:2100)f902)p"FOR THE FIRST TIME, YOUR C64")z 80,0&D:53296,0&N53281,1:53280,1:D1100:'X53281,15:53280,15:D1100::1930H'b53281,12:53280,12:D1100::1930q'l53281,11:53280,11:D1100::1930'v53281,0:53280,0:D1100::1930'"":54296,0:'54273,(542729J54273,109TI1509^I);" ";:54273,15:54273,259h:54273,20:53280,1/:D1100::"COMPUTER MALFUNCTION":53280,0:41808:902c:"WITH THIS, YOU CAN ENTER YOUR":"OWN PERSONAL MESSAGE TO BE SEEN":"AFTE VAILABLE RAM MEMORY."7* I389110174 ""I7> 79028"SCARE 'EM INTO THINKING THEY"@8"DESTROYED YOUR COMPUTER."n8"PREPARE TO RECIEVE KINDNESS AND/OR"8"LOANS FROM YOUR VICTIMS."8A$:A$" 5 XX5427254295:XX,0::54296,15:54277,8:54278,2556 54276,23:YY4:ZZ13:54287,YY:XX1150:54273,XXC6 53280,6:53280,5:YYYY.01:::54278,15M6 3230V6 9026 "ARE YOU GETTING SICK OF ALWAYS"6 "SEEING 38911 BYTES FRE "M"103 A$"U"30903 30503 13813 "READY."3 R5427254296:R,0:24 54296,15:54277,0:54278,240:54275,8:54276,65@4 54272,12O4& 19,54:A$_40 I125::z4: "":53280,0:53281,04D A$"YOU HAVE JUST ENTERED THE TWILIGHT A$16 :"MY, WHAT BEUTIFUL FINGERS YOU HAVE!":"READY."1@ 19,54:A$-2J :"I LOVE THE WAY YOU STROKE MY KEYS!":"READY."<2T 19,54:A$p2^ :"TOUCH ME LIKE THAT AGAIN PLEASE":"READY."2h 19,54:A$2r :"YES, I LOVE YOU TOO":"READY."2 1000"":"Ϸ";)$""38)"";_." CHANGE INSULTS ";q8""38)"";B"̯";L"[F1] FORWARD [F2] REVERSE"V" U=USE M=MENU" 0902:11)"C=CHANGE INSULTS"^"THIS WILL CAUSE YOUR COMPUTER TO""INSULT THE USER WHENEVER A COMMAND""IS TYPED.""EFFECTIVE COMMANDS: LOAD, SAVE,""PRINT, PO "92635"X"REMEMBER THAT THIS PROGRAM IS IN"AY"THE PUBLIC DOMAIN. I ENCOURAGE"lZ"YOU TO SPREAD THIS AROUND TO ALL"["OF YOUR FRIENDS FREE OF CHAGRE."\"LATER, DUDE!"]A$:A$""861f10937"Ϸ AROMI OF DIGITAL WIZARD CO."/"SPECIAL THANKS TO 'QHAWK' OF THE"X "CLARK COUNTY COMMODORE COMPUTER"*"CLUB FOR HAVING THE BEST USER GROUP"4"IN THE WORLD.. AND TO 'SYSOP FM'">"FROM QUANTUM LINK FOR DOING SUCH"H" HERE THE FUN PART"'"COMES IN. FOR THE FIRST TIME YOU"U"CAN WATCH YOUR FRIEND JUMP 40 FEET."^720qA$:A$""690"":I17:" ":""I17:" ̯";K0"THIS PROGRAM IS DESIGNED FOR HAVING"y:"SOME TOTALLY RAD FUN. THERE ARE 15"D"DIFFERENT FAKING MODES. EACH OF"N"THESE BEGIN BY SIMULATING THE BASIC"X"ENVIRONMENT. AFTE "UNSUSPECTING FRIEND WILL."$|"THIS WILL MAKE IT SEEM LIKE YOUR"3$"COMMODORE IS SUICIDAL."R$"TURN UP YER VOLUME!"f$A$:A$""1680v$A$"M"10$A$"U"1700$1680$1381$"READY."$19,54:A$$:"?SU (A$,4)"PEEK"::I$(7,1):1400"(A$,3)"NEW"::I$(8,1):1400:"(A$,3)"CLR"::I$(9,1):1400e"(A$,7)"RESTORE"::I$(10,1):1400"(A$,2)"NO"::I$(11,1):1400"(A$,3)"YES"::I$(12,1):1400"(A$,2)"FU":: ";:I180:" ";:) Z"";:N$:I$(TN,1)N$:12603 d1399t e53280,14:53281,6:"**** COMMODORE 64 BASIC V2 ****" n" 64K RAM SYSTEM 38911 BASIC BYTES FREE":SKP0: w1381 x"READY." 19, N THAT NEEDS RESTORING" "NO","YES!!" "YES","NO!!"A "FU","DIDN'T YOU HAVE ENOUGH LAST NIGHT?"b"#"TN" """I$(TN,0);:I138(I$(TN,0)):" ";:"" ""I$ [F5] CHANGE [F7] DONE"1`I113:A$:B$:I$(I,0)A$:I$(I,1)B$::TN1:SKP51380Rj "LOAD","LOAD IT YOURSELF!"~t "SAVE","WHY DON'T YOU DO IT INSTEAD?"~ "PRINT","ISN'T PAPER GOOD ENOUGH FOR YOU?" "LIST","THE LIST IS IN YOUR POCK KE, PEEK, LIST, RUN, NEW,""RESTORE, AND CLR."<"PRESS 'C' TO MODIFY THE INSULTS,"g"OR 'U' TO USE THE BUILT-IN ONES.""TYPE FINISH TO END."A$:A$""1000A$"M"10A$"C"1050A$"U"SKP5:1120 "; I116:""38)"";:R"̯";"Ϸ";I13:""38)"";:"̯";" A TOTALLY RADICAL JOB WITH THE"!R"SOFTWARE LIBRARIES."TS690:"IF YOU LIKE THIS PROGRAM, OR HAVE"T"ANY COMMENTS OR SUGGESTIONS, PLEASE"U"SEND A POSTCARD TO:"V"DAN KOMAROMI":"251 ALTURA DR.":"FULLERTON, CA"W  ":690:"AFTER YOU SELECT A FAKING MODE,"f"IT WILL DESCRIBE WHAT IT DOES AND""ALLOW YOU TO EITHER USE IT OR""RETURN TO THE MAIN MENU.""THIS PROGRAM WAS WRITTEN BY DAN" "KOM R THAT, SOMETHING"+b"STRANGE WILL HAPPEN.. DEPENDING ON"Ml"WHICH MODE YOU SELECTED."xv"IT IS SUGGESTED THAT YOU SELECT A""FAKING MODE, LEAVE THE COMPUTER ON,""AND WAIT UNTIL SOMEONE TRIES TO USE""IT. THAT'S W PER SYNTAX ERROR"$D1200:54296,15:54296,0:%"":53280,0:53281,0E%"SELF DESTRUCTION 00 % COMPLETE"s%I199:""I%""16)"DANGER";%""16)"DANGER";%D15 I$(13,1):1400"((A$,2))0:1410#A$"FINISH"::"":19,0:10?#A$""::"?SYNTAX ERROR":1400I#,1410R#@902s#J"SELF DESTRUCTION..."#T"HAVE YOU EVER SEEN A COMPUTER"#^"DEMOLISH ITSELF? WELL, YOU'RE"#h 54:A$:A$""!(A$,4)"LOAD"::I$(1,1):1400+!(A$,4)"SAVE"::I$(2,1):1400S!(A$,5)"PRINT"::I$(3,1):1400z!(A$,4)"LIST"::I$(4,1):1400!(A$,3)"RUN"::I$(5,1):1400!(A$,4)"POKE"::I$(6,1):1400! (TN,1);:I138(I$(TN,1)):" ";:%""]X$:X$""TNTN1:54296,15:54296,0:TN10TN10(X$""TNTN1:54296,15:54296,0:TN1TN12X$""1360<X$""1380F1260P19,54:" ET YOU FOOL" "RUN","YOU RUN, WEAKLING!"0 "POKE","GO POKE SOMEONE YOUR OWN SIZE"V "PEEK","GOT A STARING PROBLEM?" "NEW","THINK YOU CAN ERASE ME, HUH?" "CLR","CAN'T YOU SPELL OUT THE WHOLE THING?" "RESTORE","IT'S YOUR BRAI : OVERDRIVE : IGIAN : OMAROMI HIS IS ACTUALLY A REVISED, ENHANCED, UPDATED, ELONGATED, AND TURBOCHARGED VERSION OF MY POPULAR "AKER'S IT" PROGRAM. HAT THIS DOES IS CREATE TE!'S AZETTE, "OFFEE REAK!" IN EBRUARY 1988 HOY!, 1ST PLACE WINNER IN THE LINK AME RITER'S CONTEST, GRAND PRIZE WINNER OF THE LINK CHALLENGE, AND OWNER OF IGITAL IZARD OMPANY.) M CANNOT BREAK OUT OF IT. T ALSO CONTAINS BUILT IN KERS I FORGOT TO MENTION.":"HIT ANY KEY"X 53280,5:53280,6:53280,4:A$:A$""9y 53280,0:53281,0:I$(13,13) I5427254296:I,0: "Ϸ"; ""38)""; (" M A X I M U M O V E "; ^""38)"";O _" BY DIGIDAN SELECT A-R ";a `""38)""; b"̯"; d"" n"" x"A":"B":"C":"D":"E"" "F " ""21)""> 21)"J":21)"K":21)"L"g 21)"M":21)"N":21)"O" 21)"P":21)"Q":21)"R" 21)"" 25)"MALFUNCTION" 25)"MESSENGER":25)"SELF CONTROL"' 3A$"D"21504A$"E"2400$5A$"F"254056A$"G"2750F7A$"H"3000W8A$"I"3250h9A$"J"4000y:A$"K"4350;A$"L"4500<A$"M"4800=A$"N"5200>A$"O"5400?A$"P"6000290 "Ϸ R16C06]) , 1,725 14, 4, 1,246.23 14, 5, 1,99.23 14, 6, 4,SUM[R14C03-05] 15, 2, 3,======== 15, 3, 3,======== 15, 4, 3,======== 15, 5, 3,======== 15, 6, 3,======== 16, 1, 3,TOTALS 16, 2, 4,SUM[R03-14C02] 16, 3, 4,SUM[R03-14C03] 16, 4, 4,SUM 200 14, 3, 1,725 14, 4, 1,246.23 14, 5, 1,99.23 14, 6, 4,SUM[R14C03-05] 15, 2, 3,======== 15, 3, 3,======== 15, 4, 3,======== 15, 5, 3,======== 15, 6, 3,======== 16, 1, 3,TOTALS 16, 2, 4,SUM[R03-14C02] 16, 3, 4,SUM[R03-14C03] 16, 4, 4,SUM , 2, 1,0 9, 3, 1,725 9, 4, 1,110.33 9, 5, 1,75.56 9, 6, 4,SUM[R09C03-05] 10, 1, 3,AUG 10, 2, 1,0 10, 3, 1,725 10, 4, 1,114.76 10, 5, 1,98.14 10, 6, 4,SUM[R10C03-05] 11, 1, 3,SEP 11, 2, 1,1200 11, 3, 1,725 11, 4, 1,124.87 11, 5, 1,44.23 . ................ ............ .... ..................... ......................... ANY OF THEM CONTAIN SUPERB SOUND AND COLOR TEXT EFFECTS. VERY ONE OF THEM IS COMPLETELY D  . HAT ARE THESE, YOU ASK. HE OMMODORE BASIC ENVIRONMENT IS THAT FAMILIAR BLUE SCREEN WITH THE "." PROMPT. OU CAN FINALLY GET REVENGE AT YOUR FRIENDS - FOOL THEM INTO THINKING THE COMPUTER IS , THEY IT, INSTRUCTIONS AND DETAILED DESCRIPTIONS OF EACH FAKING MODE. HIS PROGRAM IS 100% PUBLIC DOMAIN, NOT EVEN SHAREWARE. EEL FREE TO GIVE COPIES TO FAMILY, FRIENDS, OR EVEN YOUR PET IGUANA. IGIAN (UTHOR OF "RAPH ESIGNER" IN ULY 1987 OMPU "":53280,5:53281,06"GREETINGS TO:"d"QHAWK, SYSOP FM, THOMAST2, BONNIE,""DJSENTERP, DICKA2, KEL, EXPLOITED3,""CNET REP, QGUIDE SAS, IANT, THE RAD""HEAVY METAL BANDS, AND ALL THE OTHER", "COOL QLIN R D R I V E ";! 2""38)"";S <"̯"; F"Ϸ"; PI111:""38)"";: Z"̯"; \"Ϸ ";:"G":"H":"I":""X "INSULTING":"DESTRUCTION" "UNRESPONSIVE":"WAKE UP":"128 LOOK-ALIKE" "INTRUDER ALERT":"FLATTERING" "TWILIGHT ZONE":"BYTE THIEF 25)"NORAD":25)"FRUSTRATING":25)"SCREEN QUAKE"A25)"DISABLE STOP"Y25)"INSTRUCTIONS"n25)"QUIT":C1"A$:7000:A$""290,A$"Q"500.A$"R"53280,14:53281,6:"";:0A$"A"9001A$"B"16002A$"C"1950 ";%I116:""38)"";Y:"̯";"Ϸ";""38)"";"  INSTRUCTIONS HIT ANY KEY ";!""38)"";&" [R03-14C04] 16, 5, 4,SUM[R03-14C05] 16, 6, 4,SUM[R16C03-05] 17, 1, 3,AVERAGE 17, 2, 2,INT(([R16C02])/12) 17, 3, 2,INT(([R16C03])/12) 17, 4, 2,INT(([R16C04])/12) 17, 5, 2,INT(([R16C05])/12) 17, 6, 2,INT(([R16C06])/12) 18, 6, 2,([R16C02]-[ 11, 6, 4,SUM[R11C03-05] 12, 1, 3,OCT 12, 2, 1,1233 12, 3, 1,725 12, 4, 1,159.98 12, 5, 1,56.56 12, 6, 4,SUM[R12C03-05] 13, 1, 3,NOV 13, 2, 1,1309 13, 3, 1,725 13, 4, 1,174.88 13, 5, 1,14.23 13, 6, 4,SUM[R13C03-05] 14, 1, 3,DEC 14, 2, 1,1 IFFERENT. HIS PROGRAM WAS DESIGNED TO BE EXTREMELY USER FRIENDLY (BUT NOT FOR THE VICTIM, OF COURSE) AND IS MENU-DRIVEN. T CONTAINS A FEATURE FOR DISABLING SO THE VICTIM CANNOT BREAK OUT OF IT. T ALSO CONTAINS BUILT IN THEY TRIGGERED YOUR FANCY SYSTEM, AND MANY OTHER INTERESTING AND UNIQUE MODES SUCH AS: ................. ......... ......... 128 -....... .. ........... .. .* SCREEN CONTINUE MSSG *08******************************JB"CONTINUE(Y/N)"aLZ$: Z$"" 1100rV Z$"N" ` Z$"Y" 1100j"TRACK" T " SECTOR"S "":t******************************~* DISK BYTE TO HEX P LL BE OVERWRITTEN BY THE LOADED FILE. OADED FILES ARE NO CALCULATED. 4 AVE: AVES CURRENTLY DISPLAYED SHEET TO DISK FILE. OU ARE PROMPTED FOR A FILENAME. ILL NOT OVERWRITE A FILE WITH THE SAME NAME. 6 RINT: LLOWS BOTTOM. 1 ALUES: LOATING POINT NUMBER. 8 CHARACTERS MAX INCLUDING DEMIMAL. 2 ORMULAS: TANDARD SYNTAX. 79 CHARACTERS MAXIMUM. ELL REFERENCES ARE PERMITTED. 100 FORMULAS MAX PER SPREADSHEET. 5 EXT: 8 CHARACTERS MAXIMUM ORM ABOVE MUST BE THE ONLY FORMULA ENTRY IN A CELL. :URSOR KEYS ARE USED ONLY TO MOVE THE CURSOR FROM ONE CELL TO ANOTHER. : F ANY, CELL CONTENTS ARE DISPLAYED BELOW THE FUNCTION KEY MENU AND IN THE C  1. ELL REFERENCES CANNOT BE MADE TO BLANK OR TEXT CELLS. 2. SE NO SPACES WITHIN THE BRACKETS. 3. AKE SURE EACH CELL REFERENCE IS TO VALUE CELLS OR TO CELLS WHICH CAN BE CALCULATED FIRST. 4. !!!!!!!! IN THE CELL AFTER A CALC ERENCES IS ONE WAY TO COPY DATA FROM ONE CELL TO ANOTHER. HE COMMAND SPECIFIES A RANGE OF CELLS TO BE ADDED TOGETHER. OR EXAMPLE: [0814-25] OR [01-2509] N THE FIRST EXAMPLE WE ARE ADDING ALL THE VALUES (OR C : NE OR MORE OF YOUR CELL REFERENCES CALLS A BLANK CELL OR TEXT CELL. : HIS MESSAGE MEANS THAT ALL CELL REFERENCES ARE TO OTHER FORMULAS, AND NONE TO A VALUE CELL. :  SPREADING OUT BUT NEVER CLOSING BACK ON ITSELF. 20 : NE FORMULA CELL CALLS ANOTHER, WHICH IN TURN CALLS ANOTHER, ETC. HIS HEIRARCHY OR BRANCHING IS LIMITED TO 20 LEVELS MAXIMUM. HIS IS AN 5 ELF. 20 : NE FORMULA CELL CALLS ANOTHER, WHICH IN TURN CALLS ANOTHER, ETC. HIS HEIRARCHY OR BRANCHING IS LIMITED TO 20 LEVELS MAXIMUM. HIS IS AN R03C03-05] 4, 1, 3,FEB 4, 2, 1,1975 4, 3, 1,650 4, 4, 1,275.22 4, 5, 1,58.26 4, 6, 4,SUM[R04C03-05] 5, 1, 3,MAR 5, 2, 1,1200 5, 3, 1,650 5, 4, 1,202.44 5, 5, 1,109.22 5, 6, 4,SUM[R05C03-05] 6, 1, 3,APR 6, 2, 1,2356 6, 3, 1,650 6, 4, 1, RINT *******************************7A1(N16):A$A$(HX$,A11,1)]A2(N16A1):A$A$(HX$,A21,1)mA$A$SP$:******************************* DISK BYTE TO ASC DISPLAY ** CHARACTER ******  PRINTING TO YOUR PRINTER. 8 : AKES ENTERED DATA AND FORMULAS, CALCULATES THE RESULTS AND DISPLAYS THEM ON THE SCREEN. ==== ==== MSGS: TANDARD DISK ERROR MSGS. . 7 ELP: ISPLAYS THIS FILE ON YOUR SCREEN. AKE SURE YOUR SYSTEM DISK IS IN DRIVE 8 FIRST. 2 OAD: ILL LOAD A PREVIOUSLY SAVED SPREADSHEET FROM DISK. OU WILL BE PROMPTED FOR A FILENAME. : URRENT SHEET WI ELL ITSELF, (UP TO 8 CHARACTERRS). :ORMULAS ARE DISPLAYED BELOW THE FUNCTION KEY MENU. HE OF THE FORMULA IS DISPLAYED IN THE CELL. ARE ACTIVE WHENEVER THE FUNCTION KEY MENU IS DISPLAYED AT THE SCREEN - ULATION MEANS THE VALUE CALCULATED IS TOO LENGTHY, (HAS TOO MANY DIGITS), TO FIT IN THE CELL. RY USING THE () FUNCTION TO DROP ANY DECIMALS. 5. HE COMMAND BE INCLUDED WITH ANY OTHER FORMULAS. HE F ALCULATED VALUES) IN ROW 8 BETWEEN, AND INCLUDING, COLUMNS 14 THROUGH 25. IMILARLY, IN THE SECOND EXAMPLE ROWS 1 THROUGH 25 IN COLUMN 9. OLUMN AND ROW NUMBERS CAN BE IN ANY ORDER, (ROWS BEFORE COLUMNS OR COLUMNS LISTED BEFORE ROWS). NE FORMULA CALLS ANOTHER FORMULA CELL, WHICH IN TURN CALLS ANOTHER, WHICH EVENTUALLY REFERS BACK TO THE ORIGINAL FORMULA CELL. ELL REFERENCES HAVE TO END SOMEWHERE. HINK OF CELL REFERENCES AS BRANCHES IN A TREE,  ARBITRARY LIMIT SET TO SIMPLIFY THE PROGRAMMING. T SHOULD BE PLENTY. : HE SYNTAX OF A FORMULA OR COMMAND IS NOT CORRECT. HE OFFENDING CELL IS IDENTIFIED FOR YOU. 1, 2, 3,INCOME 1, 3, 3,RENT 1, 4, 3,UTILITY 1, 5, 3,PHONE 1, 6, 3,EXPENSES 2, 2, 3,======== 2, 3, 3,======== 2, 4, 3,======== 2, 5, 3,======== 2, 6, 3,======== 3, 1, 3,JAN 3, 2, 1,2400 3, 3, 1,650 3, 4, 1,253.55 3, 5, 1,34.33 3, 6, 4,SUM[ 205.33 6, 5, 1,18.22 6, 6, 4,SUM[R06C03-05] 7, 1, 3,MAY 7, 2, 1,4500 7, 3, 1,650 7, 4, 1,175.33 7, 5, 1,23.44 7, 6, 4,SUM[R07C03-05] 8, 1, 3,JUN 8, 2, 1,1000 8, 3, 1,725 8, 4, 1,109.89 8, 5, 1,44.33 8, 6, 4,SUM[R08C03-05] 9, 1, 3,JUL 9w************************* (C$)32 C$" ":7 (C$)128 (C$)159 WC$(SS$,3((C$)127),3):100rV Z$"N" ` Z$"Y" 1100j"TRACK" T " SECTOR"S "":t******************************~* DISK BYTE TO HEX P .@M 2 ⢀kF@~)N<BnAw䩌O3v#Ъ:0 k0 }+ɀ) IWELi V@ ~˿?A?3`8 ͠@$D DꊃfBF̾A/f@'@#F@$F SECTOR *******************************J"NEXT TRACK AND SECTOR"NB(1)NB(2) ""s"DO YOU WANT NEXT TRACK AND SECTOR" Z$: Z$"" 940 Z$"Y" TNB(1):SNB(2):470 Z$"N" 460 940**************************  I: JJ$"S" A$B$ J:890:******************************^* READ & PRINTER DISPLAY *******************************K1:NB(1)(A$(0))  J0 15 IK 15 #2,A$(I): A$(I)"" A$(I)NL$* K1 I2 15,"M-R"(0)(7)(0#15,A$(0):A$(0)""A$(0)NL$:: JJ$"S"580LD JJ$"P"740pN******************************X* READ & CRT DISPLAY *b* REST OF THE DISK BUFFER *l******************************vK1:NB(1)(A$(0) "D$: 1000 4,4# 2,8,2,"#": 1000G******************************k* LOAD TRACK AND SECTOR ** INTO DISK BUFFER *******************************"TRACK, SECTOR";T,S T0 T35 15,"I"D$:2:4:15 RAM CONSTANT *4******************************`SP$" ":NL$(0):HX$"0123456789ABCDEF"FS$"":I64 95:FS$FS$""(I)"": ISS$" ": I192 223:SS$SS$""(I)"": I" ** VIC OR C64 ?,(58630)40320 : VIC6 %d******************************In* DISPLAY ANY TRACK $ SECTOR *mx* TO SCREEN OR PRINTER ** ** C64, EXPANDED VIC-20 OR ** PLUS/4 OR C16 EQUIPPED ** WITH A 1541 OR 1551 DISK *  %R$ +&% &,K `O   L '')() @((Z VP$` 8`Ђw _ (2064)x4B-2,12H{@m8/H*)LI)CLCyX;?)- `:ũA ) "C,$A09/L" q  ` a ,`(a`N='LLE UE BSER DEM ZIE( S?AW@ALTEN SIE DAS QUELL-LAUFWERK ]KEINVORHAND& * GERAET # N YPEQ LGA & B VJOMA` ) }7EEYi̭H1 h8  eȢP\ P IU[P 8ĠL0  )`_ɾ}$$ƽ C Ŋ)C `L 0@P@P 0`pР#`E1 0 LL2#VL K   ɀJ : `UŰ@, 6L    "i  I  Y[ ***** SUBROUTINES *6******************************Z* ERROR ROUTINE *~******************************15,EN,EM$,ET,ES: EN0 "DISK ERROR"EN,EM$,ET,ES$******************************  NB(2)(A$(I)) 4 I:K02>A$"":B$":":NJ16: 1140:A$A$":"hH I0 15:N(A$(I)): 1140: Z$"N" J40: 890RC$A$(I): 1200:B$B$C$\ If JJ$"P" 4,A$B$p J:890z******************************* NEXT TRACK AND )' J0 L1: JL2 1060: Z$"N" JL3: 7306 IK L4[#2,A$(I): A$(I)"" A$(I)NL$| K1 I2 NB(2)(A$(I)) I:K0A$"":B$":":NJL5: 1140:A$A$":" I0 L4:N(A$(I)): 1140C$A$(I): 1200:B$B$C$ :"END":) JJ$"S" "TRACK"T" SECTOR"S""U JJ$"P" 4:4,"TRACK"T" SECTOR"S:4q15,"U1:2,"D$;T;S:1000******************************* READ BYTE 0 OF DISK BUFFER *******************************15,"B-P:2,1"& L163:L232:L380:L43:L54:330;@L131:L216:L340:L47:L58NJ A$(15),NB(2)YTD$"0"^" SCREENOR PRINTER"hJJ$: JJ$"" 360r JJ$"S"" SCREEN"| JJ$"P"" PRINTER"15,8,15,"I !* DRIVE. *E* REV. 10/24/84 *i******************************" ""DISPLAY BLOCK CONTENTS"" "******************************* SET PROG;/B0-.9DN,7X L,/--e-.C./e/0i0L`!N`GKL AŢE $L JN _  iwtKӝ=nzgYUʞk*uתܵkeRkIK_95Jm9˪6vWZse%.JU)J ICHT ANGESCHLOSSEN dw)M-W` M-EZxv>A6) G" G  G 7C)7B G! ə qL*LoX0x`W2B) F @0` J D,JJJJf (f  `EEEJ3 J La sBȘ)A`ర@P`p00 p`0pة7 Щ !_`N n 81bX6i 溥 cLrC> 10.DB B@@@7,k} Ѝ 9\} C IhaR`  N1 I  Li ө * `AI`@%$ $C  kb;?"H, &@)#EA" ۂŪ )}L 0LIIU) O)AJ` w @ B@~~ǿCAAD ȉAA} $£#A!a-x'8K_s-NqBtZ,{'Q77 W N nhn9F "$'^)+r.81&4B7:>AEI NRW\pbLhnu|p@p@xXȹĘ0 .(ʀ A@0 $ ac!F !QQSS QS! ! ! !1133 13! ! ! !qqss qs!I!aR(`H`(!#AC"bac13QS2rqsғ 604COPY SPSGBY DDOF TEXIAX !! N THE YEAR 2022. FORMA `;VERI `hhL  LLR<\ WXYe YWXXWI`4ɾEׅԪ]^ 4ͫ57,pF$ŠNS/ +DDQ5.>Ǣ@j`-%$S˹0$8>  4a8Hezɢ*h L _g_:C&9C ,QE= G'`^LZA [ <  IڥZZk˦$$CPݢ((((((=7\\[ :[$ `3 , [2K^  X JA BBSfDi}@)0`HAfBHDө Fh) IE$8ӥ ewVA ɐ'KS )i Ѝ ȱL )yblH텴L  @&:@ B\ .'3B1      P -64./ $L'   +   .)  !b! . >        ! 1 , !!7 '-Š- ߀0 `&'-˩`%=FЩ$G ")``5` !Щ 0 0`#4pA@fo%¡"* RO D>7B% oSo/?¢` "4BB A!Eo%D4%@%+M "$ !%TEXIAX 2022$LA VF9Ѝ(Ѝ)Ѝ*Ѝ+Ѝ, /^  [ DLPJ& *#挥8ƭ y L8` 0 L!!`{x ik]X`!) 0SȌ'1Z" #L1 FЩDEU#( Lzq(%>S346-541|yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#! `d !#%'*,.136FCFILOQTWZ]`cgjmpsvy| *fuG|BR@~f 0@<+Af>f<F!*0I0#>E/p EpA@£$F8@+ (| A% Axlf/lx~~``x`)0>/9`)$!!)))L@ 0.&C$&-02,,$,((%[,,03s5`1 FY:N!t@PAIRINGvS :J!HOW MANY FLOPPYS 1:1(VSOURCE `_DDESTINATI2I!PUT DISC INTO DRIVE ]!>$ERR&CON TR&E `+"WRITE PROJJ*CTOR * BACKUP READY. `& BLOCKS FREISEQPRGUSRREL$4%Ƥa   L;ȿL)'4 EL'nIjj`DEJJ)D @ )0Ld :ЩܩX`:DA-  &(&꥽I`' ^,p$ŢDFjJJ E`$@P- 0`p' . !!# H!#! ! ! !aacc 7(` L K  @$** *ajH dZ, J^h94 L 6Ff^jIh$`ʨN̰ 45^L HUh_"_'PU` g `##b& B : !J_I Ci  L `, L GT HF1D&yVآ..* 00%~ ɅhhL : 0`x `)Nʝ J,`> 12iʰn`>YB^ ^ L:  "PO!NbmKL `ŢE0$L ) _ _ ACk M ) ]b n 1LʞOʨ/IОeL E[\X ]UCR Va?X aa8 [A e %MLB/ B -eW `J 3Q -=> 60 .FM .2 <=-  R S P k! `2N  E G   M  ! < DADP : -A H,T 14N -4700 N !- )D  !` e  H B I `W(%" 0!$'+/269=?N.FA@>;852/-*,/')+.147;>ADGIKLM/LKIGDA>;741.+)'&.')*-/258;>@BDEF0EDB?=962/+'$!`V "%ƸƸ1 '$"" "$" -`p`#Ő}ξo$4`nyN~f"<`T< Ў!нu؝ٝڝLx4*б7XL## f#<c-kwcff<58A J|Bz[A ChɀL HȘh ZI)XBL,}M Α@HJ`\~ShHL)J4K@@8_>Y{  pʩLV;LHChA5Խ8&bAJbS8V@H) Vh)JGT) hH) nhe %Ù%]#mA!"2tJ@9`-ϟbᙀL@0@+AF!*ϟ#:YÙ؝(``$Ԃ a``+ ƣ) E %  n/ŝP؝x؝`&%`< `a`(%j&`:6Xj˨;Π/@  eIF/6B!!!!!!!e!!Y.fj#`5@ @ @*)`&YfeXd$SY(.1A  "¦#¦êŤ"10012066x0*3L.m8.].BK p )?0/0!ee 4L L?0)?  8 LA Lr8 e8` eE VALUES FOR ANOTHER CELL. ESULTS OF ONE CALCULATION CAN BE USED TO CALCULATE VALUES FOR OTHER CELLS. CALL THIS FORMULA 'NESTING'. === === :ELLS ARE REFERENCED BY ROW AND COLUMN, USING THE FORM [ --- NSCREEN ELP --- BY ICK OWA SPREADSHEET IS SIMPLY A GRID OF ROWS AND COLUMNS. T THE INTERSECTION OF EACH ROW AND COLUMN IS A . OW NUMBERS ARE DISPLAYED ALONG THE LEFT SIDE OF THE SCREEN, (EX:01,02.16562122,72,165,123,72,1696<0,133,122,169,2,1336F123,32,121,165,169,07P133,122,169,2,133,123*7Z32,158,173,104,133,123F7d104,133,122,162,79,189\7n60,3,157,0,2,202n7x16,247,96,-1t7:7 SEQ FILE READER7AD4915249194::4BCS0: CHECKSUM4LOS49195: OBJECT START4V:4`RD01: DATA LOOP4jB5tB0OS,B:OSOS1:CSCSB75~RD(B0): UNTIL B<0?5RDE5:p5CS10928 "***CHECKSUM ERROR***":v5:5 785,43:786,1925 **CALL EXPEVAL WS ANY KEY";:2"INFINITE LOOP CELL REFERENCE ERROR"2"PRESS ANY KEY";:*3"NESTING EXCEEDS 20 LEVELS ERROR"D3"PRESS ANY KEY";:l3"CHECKING FORMULA NESTING...";:3"SCANNING FORMULAS...";:3"SYNTAX ERROR IN CE2/D#Y? )Hhȱ LPL(qɀH(Gh*E)CL)MLh8MP]ԍԍԩJ`3`!$.0PV$@$9,"0@&3s,*F @:H5`@8Hɭ,) #B /)&#2L [[@L}DPO@@5@LJC4Aȹ} ȌSHMA&@hAփIL:DLXȘe p$q'0ɀH}}6@8 >RfVD^K  _\SM}i"` V))  ! $`< 'VVLȱ`6"  `)34Y 5)3MH)xJ`8h)LL,0odO0kG) JJb0 M bYF/CLFC,ÙT@8@+p( A% A9/2)_3@!8D#+:&*FR&"4K߁""#IO-G*F@9*UE+σϝ!#Á'π"`#nJ@A?Bǘ1F"%"LM` 4`Hh`hh7XL#/~v%<<`.Nv 8p~0Fn~p| L@p|~v 805Gvv<n@;.@:@*=_&@f 0113]. HEN THE REFERENCE IS TO ANOTHER FORMULA, THE CALCULATED VALUE OF THE OTHER FORMULA IS USED. HESE REFERENCES ARE USED WITHIN MATHEMATICAL EXPRESSIONS JUST LIKE ANY VARIABLE. OR EXAMPLE: 3*[1306]/3.14 SING CELL REF..). OLUMN NUMBERS ARE ALONG THE TOP EDGE, (EX: 01, 02....). ACH CELL IS EITHER BLANK OR CONTAINS DATA OF SOME SORT. LANK CELLS ARE IGNORED DURING CALCULATIONS AND ARE NOT SAVED TO DISK. ATA STORED IN ONE CELL CAN BE USED TO CALCULATDA:AD,DA:AD:7169,14,32,210,255,16070,162,2,32,198,255732,207,255,141,42,192832,183,255,208,15,1733842,192,32,210,255,201N813,208,235,200,192,21i8208,230,32,204,255,96813,32,253,174,32,158,2406(169,0,157,0,2,ITH:5 'USR(0),STRING VARIABLE'5:5532,253,174,32,158,173 632,143,173,160,0,177&6100,170,200,177,100,133C6251,200,177,100,133,252[6  160,0,185,0,2,153t6 60,3,177,251,153,062,200,192,80,208,2406(169,0,157,0,2, LL R"R"C"C"":47903:4 *DATA LOADER FOR "EXPEVAL" DYNAMIC EXPRESSION EVALUATION%4 BY CHRIS ZAMARAF4 TRANSACTOR VOL 5, ISSUE 04g4 TRANSACTOR PROGRAMS ARE IN4$ THE PUBLIC DOMAIN, FREE TO4. COPY, NOT FOR SALE.48 EASE WAIT..." R1NR:C1NC TY(R,C)0:::X(0)+ :"ENTER FILENAME";D FI$:(FI$)162820a 15,8,15:2,8,2,"0:"FI$ 15,E,E$:E02:15:""E,E$"";:" 2,R,C,TY(R,C),FX$(R,C), ST 64 28806 2850@ 2:15 /l:/v POSN CRSR AT CR,CC (ROW,COL)/781,CR:782,CC:783,0:65520:0:0 HANDLE DELETE10L1" ";:LL1:M0LML1" ";:LL1:h0LML1" ";:LL1:n0:0 HANDLE GOOD CHARACTER0LML1LL1:A$;:0LML :X(0)-3850-:- EXTRACT CELL REFERENCES & CHECK SYNTAX!.B$(A$,J,2)(A$,J4,1)(A$,J7,1)I.X1((A$,J2,2)):X2((A$,J5,2))_.X10X20ER5:s.B$"[RC]"4330.B$"[CR]"4340.ER5:.RX1:CX2:.RX2:CX1: B$"SUM[R-C]"4160+ER5:RR(I):CC(I):IN(FL):3850: SYNTAX ERROR-,"RA(I)X2:RB(I)X3:CA(I)X1:CB(I)X1:4170[,,RA(I)X3:RB(I)X3:CA(I)X1:CB(I)X2:4170,6RA(I)X1:RB(I)X1:CA(I)X2:CB(I)X3:4170,@RA(I)X1:RB(I)X2:CA(I)X3:CB(I)X3:417LOOP ERROR)PFLFL1:FL21ER4:3960: EXCESSIVE LOOPS ERROR*Z3740 *d:/*n HANDLE CELL REFERENCE ERRORSF*x4440: CLEAR MENUj*ROCR:COCC:4480: MOVE CURSOR*ER4740,4760,4780,4800,4840*A$:A$""3990**:*:* PACC(I):JL:IN(FL):3840(TY(R,C)0TY(R,C)33820: BLANK/TEXT CELL REF TEST@(ER1:RR(I):CC(I):J(A$):IN(FL):3840(FL(R,C)FL1FL(R(I),C(I))FL:3840: CURRENT CELL LEVEL IS OK(FL(R,C)FLFL(R(I),C(I))FL1:JL:N(FL1)N(FL1)1P FORMULAS THAT ONLY REF VALUE CELLS &` ENTRY:NF = TOTAL # OF FORMULAS>&j TY(R,C)=0 FOR ALL TEXT & BLANK CELLSh&t FL(R,C)=1 FOR ALL VALUE CELLS&~ FL(R,C)=2 FOR ALL FORMULA CELLS& EXIT: FL(R,C)>=3 FOR ALL CELLS CALLING J)RB(J):NCA(J)CB(J)# FXFXFX(M,N)# ::$ :#$ ANALYZE FORMULA NESTING ANDA$ DETERMINE CALC SEQUENCEx$ ISOLATE FORMULA CELLS FROM VALUE AND BLANK CELLS$ ER0: ERROR FLAG$ NF0: # OF FORMULAS$ FL0: CURRENT FORMULA NES0:" "TF;! J:I! 1480! :" RE-GENERATE SPREADSHEET/" : "LOADING COMPLETE."Z" "RE-GENERATING SHEET, PLEASE WAIT..."n" R1NR:C1NC" TY(R,C)13370,3380,3410,3430,3450"* 3460: SKIP BLANK CELLS"4 DX$(R,C)FX$(R,C)::4:& 4:4:14900 : : F8 - CALCULATE SPREADSHEET D 4440: N 3560: ANALYZE FORMULA NESTINGP X ER0ER0:1490Z b 4440{ l CR21:CC0:2090: POSN CRSR v "FORMULAS TO CALCULATE:";TF I2FL: FORMULA LEVELS TO CALC J1NF:J 3330T :^ SAVE A SPREADSHEET TO DISK#h "SAVE A SPREADSHEET"::r "ENTER FILENAME";S| FI$:(FI$)162930d FI$""3050 15,8,15:2,8,2,"0:"FI$",S,W":Z$"," 15,E,E$:E02:15:"E,E$";: R1NR:C1NC 1A$"";:0:0 GET IN$ FROM SCREEN0CR21:CC0:2090:1,3:IN$""1I0L!1 #1,A$:IN$IN$A$:A$""'101 1:61*:<14:B1>:W1H MENU AREA TEXT1R"F1NUMS F3FORMULA F5ALPHA F7HELP"1\"F2LOAD F4SAVE F6PRINT.:. CONVERT ENTERED FORMULA TO. MACHINE USABLE FORMULA /I1(IN$):I1$""&/&(IN$,I,1)"[":l/0IN$(IN$,I1)"FX("(IN$,I2,2)","(IN$,I5,2)")"(IN$,I8)t/::z/D:/N CLR MENU AREA/XX2024:781,X:59903:/b0,JMRA(I)RB(I):NCA(I)CB(I),TTY(M,N)0TY(M,N)34200/-^ER5:MRB(I):NCB(I):RR(I):CC(I):IN(FL):4230X-hFL(M,N)FL1FL(R(I),C(I))FL:4230m-rFL(M,N)FL4230-|FL(R(I),C(I))FL1:MRB(I):NCB(I):N(FL1)N(FL1)1:4230-:RSE SUM STATEMENT/EXTRACT CELL RANGE*L154120+B$(A$,5)(A$,8,1)(A$,11,1)(A$,14,1)R+X1((A$,6,2)):X2((A$,9,2)):X3((A$,12,2))k+X10X20X304120+B$"SUM[CR-]"4130+B$"SUM[C-R]"4140+B$"SUM[RC-]"4150+: NEXT FORMULA(( (FL2N(FL)N(FL)N(FL1))FL2N(FL)N(FL1)N(FL1)')(ER03960W)2N(FL1)0:: CURRENT LEVEL IS LAST LEVEL)<FL2N(FL)0ER2:3960: NO REF TO VALUE CELLS ERROR)FN(FL)N(FL1)ER3:3960: INFINITE FORMULA CELLS'FL2:N(FL)NF: N(FL)=# OF FORMULAS AT EACH LEVEL8'N(FL1)0:I1N(FL):A$FX$(R(I),C(I)):L(A$)S'TY(R(I),C(I))44040^'J1L'(A$,J,1)"["3840: TRY NEXT CHARACTER'4270: PARSE CELL REFERENCE'ER0RR(I):TING LEVEL$CR21:CC0:2090:4830$R1NR:C1NC,%TY(R,C)1FL(R,C)1:3630: VALUE CELLSg%$TY(R,C)2TY(R,C)4NFNF1:R(NF)R:C(NF)C:FL(R,C)2u%.::TFNF%8NF0: NO FORMULAS FOUND%B4440:2090:4820%L:%V FLAG AND DROFX(R,C)(FX$(R,C))#> (FX$(R,C))WCDX$(R,C)"!!!!!!!!"#H 3460@#R DX$(R,C)"0":IN$FX$(R,C):4380:FM$(R,C)IN$J#\ 3460e#f DX$(R,C)(FX$(R,C),8)o#p 3460#z DX$(R,C)"0"# ::X(0):1470# :# CALCULATE COL/ROW SUMS# FX0:MRA( # OF FORMULAS! FL(R(J),C(J))I3290: NEXT FORMULA-WRONG LEVEL4! TY(R(J),C(J))43490:3260K! IN$FM$(R(J),C(J))[! FX(0),IN$! DX$(R(J),C(J))(FX):FX(R(J),C(J))FX! ((FX))8DX$(R(J),C(J))"!!!!!!!!"! TFTF1:CR21:CC23:209 TY(R,C)03030: SKIP BLANK CELLS) IN$(R)Z$(C)Z$(TY(R,C))Z$FX$(R,C):X(0)4 2,IN$] 15,E,E$:E02:15:"E,E$";:e :p 2:15z 1480 : PRINT SPREADSHEET 4,4 RR1R2:4,R;:CC1C2 4,DX$(R,C);: M DSCALC - A SPREADSHEET PROGRAM FOR THE COMMODORE 64S:x ORIGINAL PROGRAM VER 851207 BY~: DICK SOWA: RENTON, WA$:. DYNAMIC EXPRESSION EVALUATION ROUTINE BY CHRIS TAMARA 8 TR 15:2,8,2,"0:DSCALC.HLP"$< 15,E:E02:15:""E,E$"";:4810:1480/F "";IP 49152:ST 64 2670yZ :"=NEXT SCREEN =ABORT";d A$:(A$"")2660:A$(32)2630n 2:15x :"END OF HELP FILE ":4810 A$:( 0,C0)BK$:DX$(R0,C0)BK$:TY(R0,C0)0:1490 VALUES TYPE = 1N FX$(R0,C0)IN$:TY(R0,C0)1:FX(R0,C0)(IN$)j DX$(R0,C0)(IN$BK$,8)t 1490 FORMULAS TYPE=2 AND TYPE=4 (IN$,3)"SUM"2520 FX$(R0,C0)IN$:DX$(R0,C0)"0 ":TY( T4710,4720,4730: MENU TEXT=L0:FX$(R0,C0);:CR21:CC0:2090: PRINT CURRENT CONTENTST2120: GET A CHARZ:t FILTER ENTERED DATA A$(20)4510:2280 A$(13)L02440 A$(13)2410: CLEANUP$ T2350,2370,2370. A$X$(R,CC1)BK$DX$(R,CC1);:  :H  POSN CRSR AT CURRENT CELL (CR,CC)l*781,CR:782,CC:783,0:65520:r4:> TURN ON CRSR & GET KEYPRESSH204,0:A$:A$""2120R205,2\ (207)02140f204,1:p :01:1520:  CURSOR DOWNK&R0R2R2NRR1R11:R2R21:R0R01:1480: SHIFT SCREENi0R0R21560: CAN'T SHIFT{:R0R01:1520D:N CURSOR UPXR0R1R11R1R11:R2R21:R0R01:1480: SHIFT SCREENbR011560lR0R34)T2:2230: FORMULAS3hA$(135)T3:2230: ALPHANUMERIC TEXTNrA$(136)2610: HELPi|A$(137)2720: LOADA$(138)2920: SAVEA$(139)3080: PRINTA$(140)3140: RECALC1560: NOT VALID CHAR-START OVER:SPLAY A SCREEN4440: CLEAR MENU AREAECR20:CC0:2090: CRSR TO MENU AREAi4690: PRINT FUNCTION KEY MENUX2224:781,X:59903:: CLEAR TEXT AREACR22:CC0:2090:""FX$(R0,C0)"";CRR0R12:CCWC(C0C1)C0C142090:F POSSIBLE COLS) PSR18: MAX NUM OF DISPLAY ROWSM ZSC4 : MAX NUM OF DISPLAY COLSf dWC8 : COLUMN WIDTH nBK$" ": BLANK CELL xRN(NR),CN(NC),FX$(NR,NC),DX$(NR,NC),TY(NR,NC),FM$(NR,NC),FX(NR,NC) N(21): NESTED FORMULA LEVELS/SHEET":PA$:I1500:8 " (C) 1985 BY ICK OWA^ " ENTON, " REE TO COPY/USE/MODIFY" " OT FOR SALE. ::::" TANDBY..." 4860: DYNAMIC EXPRESSION EVALANSACTOR VOL 5, ISSUE 04 B:? L ----------------------------Y V TITLE SCREEN| ` ---------------------------- j53281,1:53280,1:(14)"" tPA$"======================================" ~VM1024:VXVM999:CM55296:CXCM999A$"")2690:(142):1480 : LOAD A SPREADSHEET FROM DISK; "LOAD A SPREADSHEET":i "CAUTION! YOU WILL LOSE CURRENT SHEET." "CONTINUE? (Y/N)" A$:A$""2750 A$"Y":2780 1480 :"CLEARING CURRENT SHEET. PLR0,C0)4:1490 FX$(R0,C0)IN$:DX$(R0,C0)"0 ":TY(R0,C0)2E 4380: CONVERT TO USABLE FORMULAX FM$(R0,C0)IN$b 1490v TEXT TYPE = 3 FX$(R0,C0)IN$:DX$(R0,C0)IN$:TY(R0,C0)3 1490 :( DISPLAY HELP SCREENS2 15,8,"0"A$"9"A$"."2280#8 4560:2280: GOOD CHAR & GET ANOTHER;B A$"!"A$"_"2280eL 4560:2280: GOOD CHAR & GET ANOTHERkV :` CLEANUP AFTER j 4600: GET IN$ FROM SCREENt T12440,2460,2500,2570~ BLANK TYPE=0 FX$(R ERROR???z: PRINT CELL CONTENTS ON LINE 226X2224:781,X:59903:O""FX$(R0,C0)"";:U:v F1,F3,F5 ACCEPT CELL INPUTROCR:COCC: SAVE CRSR POSN4440: CLEAR MENU AREACR20:CC0:4480: CRSR TO MENU AREA01:1520v:: DISPLAY SPREADSHEET SCREEN/""(142);PC03:C$"0"((CC1),2,3)p(WC1)C4);"C"(C$,2);:x:RR1R2:R$"0"((R),2,3)"R"(R$,2);C03(WC1)C4);: ROW NUMSTY(R,CC1)0D CURSOR RIGHT<C0C2C2NCC1C11:C2C21:C0C01:1480: SHIFT SCREENZC0C21560: CAN'T SHIFTlC0C01:1520r: CURSOR LEFTC0C1C11C1C11:C2C21:C0C01:1480: SHIFT SCREENC0C11560: CAN'T SHIFTC0CDX$(R0,C0);:2090: PRINT DATA IN CELL32120: GET A CHARACTER9":U, CHECK FOR CURSOR KEYS6(A$"")1(A$"")2(A$"")3(A$"")41730,1780,1830,1880@:J CHECK FOR FUNCTION KEYSTA$(133)T1:2230: NUMBERS^A$(1 FL(NR,NC),R(100),C(100),RA(100),RB(100),CA(100),CB(100)_R1NR:C1NC:TY(R,C)0::: BLANK CELLSe: DISPLAY COLUMNS/ROWSC11:C2SC:R11:R2SR: DEFAULT DISPLAY SIZERO2:CO4:R01:C01: CURSOR AT R01C011940:X(0): DIUATOR 5270: SEQ FILE READER4  TY(R,C)=0 BLANK CELLR  =1 NUMERIC VALUEk  =2 FORMULAS  =3 TEXT ( =4 SUM COMMAND 2:SP$" " <NR30: NUMBER OF POSSIBLE ROWS FNC20: NUMBER O :VM,240:CM,2:VX,253:CX,2T X123:VM40X,221:CM40X,2:VX40X,221:CX40X,2 :VM39,238:CM39,2:VX39,237:CX39,2:X138 VM39X,192:CM39X,2:VX39X,192:CX39X,2: ""PA$"" " - PREADA hmSYS-11 BLANDATS; 11KOPIERINGSPGM: 60 SEC COPY(BACKUPCOPY 190DISK TO TAPE  S.D. COPY KALKYLPROGRAM: DSCALC1DSCALC.SWE2DSCALC.HLP SAMPLE.CALCTURBO O.DYL: KPROG-HJ[LPMEDEL:ANT.BLOCKET BLOCK-MOVECODER FUNKTIONSTAN.!INT.PIL.LISTSKYDDMINI SEQ READER DYNALOAD!FLASH-LOAD 64HYPRA-LOAD TAPEREADER 64"TURBO LOADTURBO TAPE 64 REGISTERPROGRAM:K !OLD-KOMMANDO! PROGRAMCRACKARE SCROLLDOWNSOFTWARE-RESET SVENSKA FELKODERGRAFIK: "BORDER-SPRITES  KASSETTREGISTERMASKINKOD: MICROMONSUPERMON  K DIAGRAMGRAFIKGENERATOR LETTER WRITER 64!M\NSTER -90PRINTERKALENDER RUBRIKGENERATOR SPLIT-SCREEN 64 SPRITE EDITOR 64 SYS PUBLIC  DOMAIN  DISKETT#11  K SPRITE EDITOR +SK[MTPROGRAM:  CHUBBY CHECKER DATORORDLISTA OVERDRIVE@---------------- OVERDRIVETXT SPRITE EDITOR +TURBO TAPE 64 "TURBO LOAD TAPEREADER 64 KDISK-HJ[LPMEDEL:!DIRECTORYDISK-PROTECTDISKETTR[DDAREDISMON V3.0 DISPLAY T&SU. NETWORK9 SYS PUBLIC  DOMAIN  DISKETT#11  K M DSCALC - A SPREADSHEET PROGRAM FOR THE COMMODORE 64S:x ORIGINAL PROGRAM VER 851207 BY~: DICK SOWA: RENTON, WA$:. DYNAMIC EXPRESSION EVALUATION ROUTINE BY CHRIS TAMARA 8 TR ======================================"j ~VM1024:VXVM999:CM55296:CXCM999:VM,240:CM,2:VX,253:CX,2 X123:VM40X,221:CM40X,2:VX40X,221:CX40X,2 :VM39,238:CM39,2:VX39,237:CX39,2:X138 VM39X,192:CM39X,2: EJ SALJAS* ::::" ANTA..."S 4860: DYNAMIC EXPRESSION EVALUATORo 5270: SEQ FILE READER  TY(R,C)=0 BLANK CELL  =1 NUMERIC VALUE  =2 FORMULAS  =3 TEXT ( =4 SUM COMMAND 2 NR,NC),DX$(NR,NC),TY(NR,NC),FM$(NR,NC),FX(NR,NC)GN(21): NESTED FORMULA LEVELS FL(NR,NC),R(100),C(100),RA(100),RB(100),CA(100),CB(100)R1NR:C1NC:TY(R,C)0::: BLANK CELLS: DISPLAY COLUMNS/ROWSC11:C2SC:R11:R2SR:CR22:CC0:2090:""FX$(R0,C0)"";;CRR0R12:CCWC(C0C1)C0C14m2090:DX$(R0,C0);:2090: PRINT DATA IN CELL2120: GET A CHARACTER":, CHECK FOR CURSOR KEYS6(A$"")1(A$"")2(A$"")3(A$"")41730,1780,1830,180: PRINTA$(140)3140: RECALC91560: NOT VALID CHAR-START OVER?:R CURSOR RIGHTC0C2C2NCC1C11:C2C21:C0C01:1480: SHIFT SCREENC0C21560: CAN'T SHIFTC0C01:1520: CURSOR LEFTC0C1C1&XR0R1R11R1R11:R2R21:R0R01:1480: SHIFT SCREEN5bR011560GlR0R01:1520Mv:S:t DISPLAY SPREADSHEET SCREEN""(142);C03:C$"0"((CC1),2,3)(WC1)C4);"C"(C$,2);::RR1R2:R$"0"(YPRESSH204,0:A$:A$""2120R205,2%\ (207)021402f204,1:Dp : ERROR???Jz:o PRINT CELL CONTENTS ON LINE 22X2224:781,X:59903:""FX$(R0,C0)"";:: F1,F3,F5 ACCEPT CELL INPUTROCR:COCC: SAV2280 A$(13)L02440 A$(13)2410: CLEANUP.$ T2350,2370,2370O. A$"0"A$"9"A$"."2280y8 4560:2280: GOOD CHAR & GET ANOTHERB A$"!"A$"_"2280L 4560:2280: GOOD CHAR & GET ANOTHERV :` CLEANUP AFTER jPE=2 AND TYPE=4 (IN$,3)"SUM"2520@ FX$(R0,C0)IN$:DX$(R0,C0)"0 ":TY(R0,C0)4:1490u FX$(R0,C0)IN$:DX$(R0,C0)"0 ":TY(R0,C0)2 4380: CONVERT TO USABLE FORMULA FM$(R0,C0)IN$ 1490 TEXT TYPE = 3 FX$(R0,C0ANSACTOR VOL 5, ISSUE 04 9:h = \VERSATT F\R SOFTWOLVES SOFT- WARE & SYS PD AV MR.P. 910625n B: L ---------------------------- V TITLE SCREEN ` ---------------------------- j53281,1:53280,1:(14)""% tPA$"VX39X,192:CX39X,2:% ""PA$""d " - TT PREADSHEET":PA$:I1500: " (C) 1985 BY ICK OWA " ENTON, " RI ATT KOPIERA/ANV[NDA/MODIFIERA " AR:SP$" "7 <NR30: NUMBER OF POSSIBLE ROWS[ FNC20: NUMBER OF POSSIBLE COLS PSR18: MAX NUM OF DISPLAY ROWS ZSC4 : MAX NUM OF DISPLAY COLS dWC8 : COLUMN WIDTH nBK$" ": BLANK CELL$xRN(NR),CN(NC),FX$( DEFAULT DISPLAY SIZE2RO2:CO4:R01:C01: CURSOR AT R01C01V1940:X(0): DISPLAY A SCREENr4440: CLEAR MENU AREACR20:CC0:2090: CRSR TO MENU AREA4690: PRINT FUNCTION KEY MENUX2224:781,X:59903:: CLEAR TEXT AREA880@:J CHECK FOR FUNCTION KEYS8TA$(133)T1:2230: NUMBERS\^A$(134)T2:2230: FORMULAShA$(135)T3:2230: ALPHANUMERIC TEXTrA$(136)2610: HELP|A$(137)2720: LOADA$(138)2920: SAVEA$(139)301C1C11:C2C21:C0C01:1480: SHIFT SCREEN7C0C11560: CAN'T SHIFTIC0C01:1520O:a CURSOR DOWN&R0R2R2NRR1R11:R2R21:R0R01:1480: SHIFT SCREEN0R0R21560: CAN'T SHIFT:R0R01:1520D:N CURSOR UP(R),2,3)"R"(R$,2); C03((WC1)C4);: ROW NUMSJTY(R,CC1)0DX$(R,CC1)BK$\DX$(R,CC1);d:jp v:  POSN CRSR AT CURRENT CELL (CR,CC)*781,CR:782,CC:783,0:65520:4:> TURN ON CRSR & GET KEE CRSR POSN 4440: CLEAR MENU AREA2CR20:CC0:4480: CRSR TO MENU AREATT4710,4720,4730: MENU TEXTL0:FX$(R0,C0);:CR21:CC0:2090: PRINT CURRENT CONTENTS2120: GET A CHAR: FILTER ENTERED DATA A$(20)4510: 4600: GET IN$ FROM SCREENt T12440,2460,2500,2570*~ BLANK TYPE=0^ FX$(R0,C0)BK$:DX$(R0,C0)BK$:TY(R0,C0)0:1490t VALUES TYPE = 1 FX$(R0,C0)IN$:TY(R0,C0)1:FX(R0,C0)(IN$) DX$(R0,C0)(IN$BK$,8) 1490 FORMULAS TY )IN$:DX$(R0,C0)IN$:TY(R0,C0)3 1490  :%( DISPLAY HELP SCREENSH2 15,8,15:2,8,2,"0:DSCALC.HLP"z< 15,E:E02:15:""E,E$"";:4810:1480F "";P 49152:ST 64 2670Z :"=NASTA SKARM =SLUTA";d A$: ":  "VARNING! NUVARANDE KOMMER ATT READERAS."" "FORTSATTA? (J/N)"6 A$:A$""2750J A$"J":2780T 1480| :"RENSAR SHEET. VAR GOD VANTA..." R1NR:C1NC:TY(R,C).:: X(0) :"ANGE FILNAMN"; FI$:(FI$) r "ANGE FILNAMN";| FI$:(FI$)162930 FI$""3050< 15,8,15:2,8,2,"0:"FI$",S,W":Z$","e 15,E,E$:E02:15:"E,E$";:y R1NR:C1NC TY(R,C)03030: SKIP BLANK CELLS IN$(R)Z$(C)Z$(TY(R,C))Z$FX$(R,C): ANALYZE FORMULA NESTING X ER0ER0:1490!b 4440(!l CR21:CC0:2090: POSN CRSRG!v "UTTRYCK ATT BERAKNA:";TFl! I2FL: FORMULA LEVELS TO CALC! J1NF: # OF FORMULAS! FL(R(J),C(J))I3290: NEXT FORMULA-WRONG LEVEL! TY(R(J),DDNING KOMPLETT."# "ATERSKAPAR SHEET, VAR GOD VANTA..."# R1NR:C1NCA# TY(R,C)13370,3380,3410,3430,3450^#* 3460: SKIP BLANK CELLS#4 DX$(R,C)FX$(R,C):FX(R,C)(FX$(R,C))#> (FX$(R,C))WCDX$(R,C)"!!!!!!!!"#H 3460#R DX$(R,C)TING AND$ DETERMINE CALC SEQUENCE#% ISOLATE FORMULA CELLS FROM VALUE AND BLANK CELLS9% ER0: ERROR FLAGR% NF0: # OF FORMULAS{% FL0: CURRENT FORMULA NESTING LEVEL%CR21:CC0:2090:4830%R1NR:C1NC%TY(R,C)1FL(R,C)1: TY(R,C)=0 FOR ALL TEXT & BLANK CELLS't FL(R,C)=1 FOR ALL VALUE CELLS?'~ FL(R,C)=2 FOR ALL FORMULA CELLSz' EXIT: FL(R,C)>=3 FOR ALL CELLS CALLING FORMULA CELLS'FL2:N(FL)NF: N(FL)=# OF FORMULAS AT EACH LEVEL'N(FL1)0:(ER1:RR(I):CC(I):J(A$):IN(FL):3840/)FL(R,C)FL1FL(R(I),C(I))FL:3840: CURRENT CELL LEVEL IS OKx)FL(R,C)FLFL(R(I),C(I))FL1:JL:N(FL1)N(FL1)1: NEXT FORMULA~)) )FL2N(FL)N(FL)N(FL1))FL2N(FL)N(FL1)Nn HANDLE CELL REFERENCE ERRORS*x4440: CLEAR MENU+ROCR:COCC:4480: MOVE CURSOR6+ER4740,4760,4780,4800,4840J+A$:A$""3990P+V+:\+:+ PARSE SUM STATEMENT/EXTRACT CELL RANGE+L154120+B$(A$,5)(A$,8,1)(A$,2:RB(I)X3:CA(I)X1:CB(I)X1:4170-,RA(I)X3:RB(I)X3:CA(I)X1:CB(I)X2:41704-6RA(I)X1:RB(I)X1:CA(I)X2:CB(I)X3:4170b-@RA(I)X1:RB(I)X2:CA(I)X3:CB(I)X3:4170-JMRA(I)RB(I):NCA(I)CB(I)-TTY(M,N)0TY(M,N)34200-^ER5:MRB((A$"")2660:A$(32)2630n 2:15x :"SLUT PA HJALPFIL "B} "NOTE TILL DEN SVENSKA VERISIONEN:k~ "'['BYTS MOT'<' OCH']'MOT'>'":4810 A$:(A$"")2690:(142):1480 : LOAD A SPREADSHEET FROM DISK "LADDA SPREADSHEET162820 15,8,15:2,8,2,"0:"FI$# 15,E,E$:E02:15:""E,E$"";:?" 2,R,C,TY(R,C),FX$(R,C)S, ST 64 2880l1 198,.:198,1:198,.v6 2850@ 2:15J 3330T :^ SAVE A SPREADSHEET TO DISKh "SPARA SPREADSHEET":X(0) 2,IN$ 15,E,E$:E02:15:"E,E$";: : 2:15' 1480- :E PRINT SPREADSHEETN  4,4j  RR1R2:4,R;:CC1C2  4,DX$(R,C);::4: & 4:4:1490 0 : : F8 - CALCULATE SPREADSHEET D 4440 N 3560:C(J))43490:3260! IN$FM$(R(J),C(J))" FX(0),IN$0" DX$(R(J),C(J))(FX):FX(R(J),C(J))FXZ" ((FX))8DX$(R(J),C(J))"!!!!!!!!"" TFTF1:CR21:CC23:2090:" "TF;" J:I" 1480" :" RE-GENERATE SPREADSHEET" : "LA"0":IN$FX$(R,C):4380:FM$(R,C)IN$#\ 3460$f DX$(R,C)(FX$(R,C),8)$p 3460+$z DX$(R,C)"0"@$ ::X(0):1470F$ :c$ CALCULATE COL/ROW SUMS$ FX0:MRA(J)RB(J):NCA(J)CB(J)$ FXFXFX(M,N)$ ::$ :$ ANALYZE FORMULA NES3630: VALUE CELLS&$TY(R,C)2TY(R,C)4NFNF1:R(NF)R:C(NF)C:FL(R,C)2 &.::TFNF@&8NF0: NO FORMULAS FOUNDV&B4440:2090:4820\&L:&V FLAG AND DROP FORMULAS THAT ONLY REF VALUE CELLS&` ENTRY:NF = TOTAL # OF FORMULAS&j I1N(FL):A$FX$(R(I),C(I)):L(A$)'TY(R(I),C(I))44040 (J1L7((A$,J,1)"<"3840: TRY NEXT CHARACTERX(4270: PARSE CELL REFERENCE(ER0RR(I):CC(I):JL:IN(FL):3840(TY(R,C)0TY(R,C)33820: BLANK/TEXT CELL REF TEST(FL1))(ER03960*2N(FL1)0:: CURRENT LEVEL IS LAST LEVEL=*<FL2N(FL)0ER2:3960: NO REF TO VALUE CELLS ERRORq*FN(FL)N(FL1)ER3:3960: INFINITE LOOP ERROR*PFLFL1:FL21ER4:3960: EXCESSIVE LOOPS ERROR*Z3740*d:* 11,1)(A$,14,1)+X1((A$,6,2)):X2((A$,9,2)):X3((A$,12,2)),X10X20X304120.,B$"SUM"4130F,B$"SUM"4140^,B$"SUM"4150v,B$"SUM"4160,ER5:RR(I):CC(I):IN(FL):3850: SYNTAX ERROR,"RA(I)X I):NCB(I):RR(I):CC(I):IN(FL):4230.hFL(M,N)FL1FL(R(I),C(I))FL:4230.rFL(M,N)FL4230W.|FL(R(I),C(I))FL1:MRB(I):NCB(I):N(FL1)N(FL1)1:4230f.::X(0)p.3850v.:. EXTRACT CELL REFERENCES & CHECK SYNTAX.B$(A$,J, ):I1$""/&(IN$,I,1)"<":00IN$(IN$,I1)"FX("(IN$,I2,2)","(IN$,I5,2)")"(IN$,I8)0::%0D:90N CLR MENU AREAV0XX2024:781,X:59903:\0bb0l:0v POSN CRSR AT CR,CC (ROW,COL)0781,CR:782,CC:783,0:65520:0 0L1 #1,A$:IN$IN$A$:A$""11 1:1*:14:1>:2H MENU AREA TEXT22R"F1NUM F3UTTRYCK F5ALFA F7HJALPe2\"F2LADDA F4SPARA F6PRIN F8RAKNA":2f"ANGE NUMERISKT VARDE":ML8:2p"ANGE UTTRYCK":ML79 3"NASTLING OVERSTIGER 20 NIVAER!!"3"TRYCK TANGENT";:4"KOLLAR UTTRYCKSNASTLING...";:14"SCANNAR UTTRYCK...";:`4"SYNTAX ERROR I CELL R"R"C"C"":4790f4:4 *DATA LOADER FOR "EXPEVAL" DYNAMIC EXPRESSIOB0OS,B:OSOS1:CSCSB5~RD(B0): UNTIL B<05RD5:6CS10928 "***CHECKSUM ERROR***":6:/6 785,43:786,192K6 **CALL EXPEVAL WITH:k6 'USR(0),STRING VARIABLE'q6:w6632,253,174,32,158,173632,143,173122,169,2,133,1237Z32,158,173,104,133,1237d104,133,122,162,79,1897n60,3,157,0,2,2028x16,247,96,-18:-8 SEQ FILE READERR8AD4915249194:DA:AD,DA:AD:m8169,14,32,210,255,16080,162,2,32,198,255832,207,255,141,42,12066TERA!x7,,>-.LP!=,  ,) i ㅋ8勅      ii  ee8 勅` *&` Т)8@DQ] #֪`H r . h) [ii0`kRUNCHING $ 00 <8Lii(`ʆ冱 (*zʎ=>`(t.0̊4ѝ`*tIuIet = 㨄 tuְ5qrzcu f t^ޭL `jfܥf%إ` >LJj ۢ0 8* @\i Ѐ2066TERA!mx7ʂIV-.LB3, ҅5@,B)  㳥8sS^ BX H @Xii  eePLAYER 4.18qdLX0*:`&8 mGc("By:!w`Ԣ έ JmEQXBFJ!Ũ w!x$ ٙLz^3!`bs WsLANAh)ebJ0Z ĈJPBb"}E2)(A$,J4,1)(A$,J7,1).X1((A$,J2,2)):X2((A$,J5,2)) /X10X20ER5:/B$""43302/B$""4340=/ER5:M/RX1:CX2:]/RX2:CX1:c/:/ CONVERT ENTERED FORMULA TO/ MACHINE USABLE FORMULA/I1(IN$:0 HANDLE DELETE0L1" ";:LL1:0LML1" ";:LL1:1LML1" ";:LL1:1:51 HANDLE GOOD CHARACTERN1LML1LL1:A$;:d1LML1A$"";:j1:1 GET IN$ FROM SCREEN1CR21:CC0:2090:1,3:IN$""1I:2z"ANGE ALFANUMERISK TEXT":ML8:3"BLANK/TEXT CELL REFERENS R"R"C"C3"TRYCK TANGENT";:F3"INGEN REFERENS TILL VARDECELL!!!"_3"TRYCK TANGENT";:3"EVIG LOOP CELL REFERENS!!!!!!!!!!!"3"TRYCK TANGENT";:N EVALUATION4 BY CHRIS ZAMARA4 TRANSACTOR VOL 5, ISSUE 04 5 TRANSACTOR PROGRAMS ARE IN+5$ THE PUBLIC DOMAIN, FREE TOE5. COPY, NOT FOR SALE.K58:_5BCS0: CHECKSUM{5LOS49195: OBJECT START5V:5`RD01: DATA LOOP5jB5t,160,0,1776100,170,200,177,100,1336251,200,177,100,133,2526  160,0,185,0,2,1537 60,3,177,251,153,0172,200,192,80,208,240H7(169,0,157,0,2,165c72122,72,165,123,72,169|7<0,133,122,169,2,1337F123,32,121,165,169,07P133,92832,183,255,208,15,173842,192,32,210,255,201813,208,235,200,192,21 9208,230,32,204,255,96&913,32,253,174,32,158w-Γ\.zL:zOviҖk6krg)jg)ofjRZ[9MiMrfig)oRn[9rg)wg)ofkfM)Jܤ֩7,$,X, YL o78 NOTEMAKER V2.0AL*> 5p c Dh!Щ@qx X  Ba qjx7X )$0 ) L3 @=\@KF c 0( AVټˊHu ;8 Hکr(, ^ = 2Xd eqqrЕ`q6HQ~g * PG `F ,k lX Sٍ9b8C1 B`(J: E; < 4 耯h,#!ݩڊXݥEH/QS!4L1Q)"4#@B( ?8 勅_`{ *&`ܤ֩7\$2X@, YL 70 ,))NLL<@@1i0NA:PJ=:P{ 0.#v` P@_A7Zl$MUSIC BY LOS ...  B0*>)L,HPA 8Uڹ@-j mP $WQ8;Ld,ņT!x)dCV:Qm iRbD8c$BGXO%8 6\ "m԰ jPʐA`?HL]k%4@HJ> A hg+IjXĨQM'ԭ! v  I(`.& E`1FB8s3`tq8逝`!EP' ps|8"g,%D@ sdѡP !3 G k|\6 6Gͬ\])QI{ةXɀ )?(<ym1O P.:r((PCŭ:HFjm}""EADING ABORTED DUE TO DISK ERROR:j,""((EM$)32)(EM$,2)".":8:15:27015,EN,EM$,ET,ES:EN20290"PAUSE DIRECTORY WITH SHIFT.A$"$0:*=S":Z1A$"$":Z.1,8,0,A$:781,1:654780A$""(A$,1)"N"2110* (A$,1)"V"2120@(A$,1)"S"2130` "SENDING:":A$:15,8,15,A$*15,EN,EM$,ET$,ES$:(34)EM$(34)" "ET$" "ES$415:2020>G$"FORMAT":2140HG$"VALIDATE":2140RG$"SCRATCH\"WARNING:EI$NRW\sbNhnu |j;HkڹÜ( AAAAAKA P"0 ,CgDR$~bT@~ !QSQ|/ ) JГrt@HbAUDA lIpD LAAP MUS4 BY THE LORDS OF SONICS!!( **$`?+ D_L'#xɉ1'HHV Q!' <@O@$!I6 ?AL9)_& CJߏ'־.Kʎ!/l?hRfjC ut\0 STP' I)JzN #' LM!g B}m #|rAgKᓓ. A'"sP%@ L%PhRBP3!Qǁ3P F0 p$?20!  A; ~C1 FLP#P1 F!! D@`???nCCԍHK@H)c. +"le pȱWQ@sKW)D|pq 3BIgȤVyB#TN[P^`K`N`Խ*=0AL%>;H@)\h)3,F"i!^08Eh`# T8 0/$i hRƨa:V)p  8a)CԽԮ8,ԝ[lT sh^9K*\$!vL'L'9K_t-NqBtZ-{'Q78 Y N mgp;E "$'e)+v.:1'4A7:>AAND MR.P. S " " OK TO COPY, TRANSLATE AND MODIFY " BUT DO NOT SELL OR ERASE MY NAME!!! " "SAVE"MINI SGHT (C) IN 1991 xI.3000:I " ɰz " VER"; " ݫ1.0"; " ݭ ݭ " 8,8,8,"0:"A$",S,R"6 990::"Ԓ PAUSES AND ђ QUITSI #8,B$:ST280h B$;:(653)3.990:210| (653)11230 (197)62260 210 :"EADING ABORTED BY USER.":8:15 :"RESS ̒ TO RESTART":653,4:130:A$,A$:E$(.)"A$,A$,H$,L$:ST65484:1:7(653)111030S(H$E$)256(L$E$);oA$,B$:A$A$B$;:1050}$A$:1020"ENTER DOS COMMAND: $ FOR DIR."RETURN TO QUIT.A$"":631,34:198,1:A$A$"$"Z1:1000:202 BY USING THE "G$" COMMAND4f" YOU CAN LOSE IMPORTANT DATA.]p" TO CONTINUE: PRESS  Y .qzA$:A$""2170A$"Y"2020" PRESS  ^ TO "G$".A$:A$""2200A$"^"20202080"$"Z1:1000:202<<:f<- 2FDnFCDd1<_?A? C,$CFJKJHh,FDFp,PHH`4H Jp~@ 0 C @3LJ 5%55!H!777B@:@:š::dBDD( ǀ:??:I2!7878:<>=?<>?AACA0 CACDFAA? b@ +D`"8Z!:BÃ3\! !ܨ: kB " X)bD!!O An1Pj A9AV'X 1 ĨPނ2 g@0` +$EK< G > A L|Cb ;2s/TERA 41   6ٍC U 2166 xb|3) 4F )@ 99U9 &PNSW A  IY4AqSШb1)1AH  B2XLF3 .>@ND ix3Ey - S4$@L +r uQJ@ATCHAM, + ". M.'T+   ,3R S"V"6@ OJ ؎BK+*B 3 { !0 L~ ŽX` nSN 4+`i' (О!D(:@P'  /`x1 ܎ Xh/ " #J'QS@(0g)ȩ(jBa ! ٠,"gpYN"  1 p@ + Ѝ!a05. P2J  (.L4x6,kĽLT@=7XL AVE :Hi(h` DТ\JLEL@sRHnbR< X $} h$ɍ ɓɑƒ*f U  0$!)z" !$, HMPea.tK  p+(Sb  EXw a G5 ,U3 =2/A 2.8(B XGA w ."T C ' W^ "%%N EA P%D& Q :OB^9xv RGs  1PPjp>A  K$P!dPN   { hX   LU?EBASICeB@ FTp)$y25iyLe mG Fqo0Iug (F 2U . Rp%O  +cM t 1(8o@>/ JB<vJPaCMj IYmŻVoZ,Aw  ɍA!C!@ 62H 4H  ` ] D  * ' c=(-P>bX$&!D^   E..U!---,`D Lr DY, ,HN 8/R89VG1!.+(LA   64- b(   3@ M.P  W   1991  SYSCK 1-37):>/'B:Ȧ%$^ >>0KOLLA ETT TRACK:> SKRIV IN TRACK (1-37): <.1Ȉ% R$/'B:$^0۸ATRACK SECTOR STATUS>A>`BM-W<3<3<3<3Ca0cNR%&A(HE湩HHLo< {9 9:`F LLHhiEhiFh hhelEh0h8ܨhhhhJ   ƹ     Z LLL &348a21`L51W2W2ڪWTPUBCRFD@X202122232729</3W) KOLLA HEL DISK T) KOLLA 1 TRACK<3P) W/P-SKYDDA EN DISK U) TA BORT W/P <3B) SKRIVA BAM (18-0) C) SKRIVA ERRORS<3R) REPARERA ETT TRACK F) FORMATERA <3D) DIREC4Ńg.!A ID: <.4Ńy.AVERIFY FORMATERING(J/N)? </ JN R#!>/11DžY 17ǵAFORMATERAR (TAR CA<< SEKUNDER).>@:1~R1U"1~FORMAT. FEL : TRACK<> #KOLLA HELA DISKEN (TRAJ NM(-O`1!O2. C `}H zdxsSPAC2b)ʚ%q*] U/CL5*& ,*L*OµMAKU+V2.0/.. RE )@ TO WRITE MESSAGE.fKQPAAV>AMIKE J. HENRY>A! CLUB 64:S PD-BIBLIOTEK 1990 >A>A KOMMANDON >*DRIVE:  TORY @) DISK KOMMANDO<. ) CLUB 64:S PD-BIBL. <@>/KOMMANDO...?  </ /"_»"_>/#$&S'c(M(-Q"".T.@:?0DISKETT-NAMN:  <. A<.1Ϗ  둑>*APPROX # AV SECTORS:<>A<.1PROCESSING...TRACK:<< , SECTOR:<<, #<>C8:6 ‚ !Ђ ъC:(/?C8:ʎ 0B:(/?C8:0yҏ R<3<3<3CHF32ԱHF32ձaID KOD #1 (DECIMAL):<>A<.1Ԕ ꑑ>,ID KOD #2 (DECIMAL):<>A<.1Օ ꑑ>- B:(REPARERA TRACK:>"HELT FORMATERAT TRACK: 18<.1֖%  ꑑ>-gTRACK F\R REP 62S[TT IN DISKETT! -/ A<>A TRYCK EN TANGENT!!! </ /FR/ >?1DISPLAY HEADER & CHECKSUM INFO (J/N)? </ ɅJN R/\>/ BL. KOLLAD.I`a/ /צ0€ 1€ׂ CK: << , SECTOR: <<>TAR EMOT ERROR.1$ 0 `HUWWQa00R1$DISK ERROR: <<,<<,<<,<>ATRYCK EN TANGENT F. ]TERG.</1[ 1~DISK ERROR:<>1$`BM-R<3<3<3CHF32±aODSNx3L D Dڠ D   Lwv s  `M-W R ` `M-X DG D O©, * g O¥ `   LM-R DyL I  H h`M-R ``A DL Da DL| DHLD  yz" x -J J    ) X`    LCLUB 64 002A "L A.R&IA#TRYCK EN TANGENT ! </ /A# >>W/P-SKYDDA EN DISK :>+ DETTA KOMMANDO SKYDDAR EN DISK S] ATT >'MAN INTE KAN SKRIVA TILL DEN. MAN KKAN SKRIVA TILL DEN. >&(SE KOMMANDOT W/P-SKYDDA EN DISK > > ............I`A ARBETAR...>A`BX:BICa1UDISKETT-NAMN : <.4ŨO.TA EMOT NY BAM .I`Bh:BICa(G\R VALIDCKSUM>A$27) HEADER CHECKSUM (HELT TRK) >A"29) ID MISMATCH (HELT TRACK) >A X)-]TERG] TILL MENY >V[LJ ERROR-NR : <.XR Ͷ  (*s*+w+,0,/?C8:ʏ 0B:(/ START-SECTOR:<>ʎ 0y TRACK: << , SECTOR: <<, CHECKSUM: <>#A<.1ӓ ꑑ>+1ӊC:ꑑ>(/0?C8:CJ:CHECKSUM AV SECTOR 00:<>A<.1ӓ ꑑ>,LB:(/0?C8:CJ:`BM-ARERING : <.1Ȉ%  ꑑ>- REPARERAR .*ARBETAR (L[SER, FOMAT.,SKRIVER TRACK)...>A:)$ DISKETTEN BEH\VER NY BAM! >0>/0c/ϋSTART-SECTOR :<>A<.1Ϗ 둑>/ SLUT-SECTOR :<>A<.1Ύ  쑑>/0 #00/550yҊ0y ARBETAR... TRA*X@BADB)ALXTDSSCKES2S1XHXLTCI1I2GABCڪ  6C+ E` W ` LM-E oL oL hi D$`) )   ĤM å ͽ  + LX   L- BLƥƩX  y LLSé  LSé   LSéLSé:  LSé D  LSé DLDLDH h    LADER INFO)>% TRCK SECT ID1 ID2 CHK BLOCK CHK>+ ő>ʋ B:A<A<.̌ OK>% ERROR:<>N ꑑ>%A* >A.<AN >( ENDASTL[SA FR]N DEN. DET SKYDDAR INTE>%MOT FORMATERINGAR!!! >...................I`A ARBETAR...>B`BX:BICa1UTA BORT W/P-SKYDD :>( DETTA KOMMANDO TAR BORT ETT W/P- >'SKYDD S] ATT MAN ATE-KOMMANDO F\R ATT AKTIVERA>0?`BICa?0SKRIVA DISK-ERRORS:>ADISK-ERROR MENY>A>A20) BLOCK HEADER NOT FOUND>A21) MISSING SYNC CHARACTER>A22) DATA BLOCK NOT PRESENT>A23) DATA BLOCK CHE `0`0 K`ſ-0ҩ ` QQ`0`Q KC 9QYYYYi漥C L$" " BL$BL$"":BM$(140),C(43):A043:C(A)::815  32,101,116,117,97,246,234,231,160,21,21,21,21,21,21,21,21,21,21,21,21  21,21,21,21,21,19,19,19,19,19,19,19,18,1 L9P% EEEE 4%)%&)&Z @P$0P)%"P)&P'L9 @1P0P :%& LY , L98GL9 :,QLi,, R"L ,"  "{ 1" TOM FULL" 6"" ;"DISK" @" LQLi0` Lk 4%)%&)&Z kP$+P)%P)&P'`éL,,0`1 P0PL1 P ) PP0PP"^" "Qc""h"INSTRUKTIONER:"m" "r"" wOP$"SKRIV IN A UP  L  `YYYYei潥C1H 0h 2P 2P2PUPUPPPƽПP L z ) 17:730:LN2:RT35:B$""B$"CBM 1541 BACKUP":OP$OP$" "B$:790sDN$B$:""34)",":OP$"SKRIV IN DISK-ID ":795730:B$""B$"64"""35)B$:DI$B$:198,0BC$"S[TT IN DESTINATIONSDISK ":965 810:OP$"FORMATPP0UPƼКPPL LgȅC2 w 2P02 wPP0 ƼLgƽвƺL8`"# L`Ѝ, ,0`hhLX n gA*HI` BP10496 : BUFFER POINTER; EB40960 : END BUFFERA :G :` A828867:B:A,B: 162,2,32,198,255,160,0,32,165,255,153,0,48,200,208,247,32,204,255,96 162,2,32,201,255,160,0,185,0,48,32,168,255,200,208,247,32,204,255,96D BH芝K1 0h 1 : 2 P 2P2PUPPP0UPƼК QPLi00`0`ZKR$ @P$ K8,18,18,18,18,17,17,17,17,17; ""8)"SINGLE DISK BACKUP V1.0"[ ""11)"AV MICHAEL SCHAFF" "BACKUP KOMMANDO" " " """ '"BUFFE0`0`  l0"* 8 L 4$U z ) P P  L  Kʆ PPLk `EEEE` G GL:H h:  "7 E""f J"DISK STATUS" O" " T"" Y"UTF\RS NU:"  ``  KC9YYYYei潥C1H 0h 2P 2P2PUPUPPPƽПP L z ) PROGRAMOPERATIONS-KOD B/D":795:LN1:DN7:RT17|730:B$""B$"B"fPO(B$):B$"D"OP$"DIREKT BACKUP":400wB$"B"375OP$"BAM UTVALT BACKUP"785:OP$"":780:OP$"SKRIV IN DISKNAMN"795:OP$"DESTINATION:":790:LN16:DN14:RT`))ƻ`" K D)D` ) `" KC 9"YYYYi漥CH芝K1 0h 1 : 2P 2P2PUP  :FORMAT 4503d"":56,41::1859:U53280,1: BORDER COLORu53281,1: BACKGROUND COLOR"" : CHARACTER COLORDI8 : DISK DEVICE NUMBERSP1389 : SCREEN BAR POSITIONSB10496 : START BUFFER (B$)0:736 B$(B$,(B$)1):" ";:736'A$" "A$"Z":736N(B$)LNB$B$A$:""A$"";:736Y:736~ ""BL$OP$:""BL$OP$:""BL$OP$:""BL$OP 20:#2,A$:SN$SN$A$:'2:15:SN$(SN$,16)","(SN$,2)eDN$(DN$,(DN$)3):A$(DN$,(DN$)3)" "DN$(A$,16)","(DN$,2):800:OP$"ORIGINAL: "SN$(DN$,2)(SN$,2)535  OP$"":780:790:EN$"*3":ED$"FEL 0:15,"U1:"2;0;TR;SC:15,"B-P:"2;0:HBP,TR:BP1,SC:BPBP2:HI(BP256):LOBP(HI256):839,LOiM840,HI:820:828:820:15,EN$,ED$,ET$,ES$|REN$"00"980WBPBP256:BP256EB\2:15:OP$"":780:OP$"DESTINATION: "DN$:790aBC$ 0PO68A1140:BM$(A)(0):515,DI,15:2,DI,2,"#"Q:TC11404:C(((TC1)41)8)(BM$(TC))695w?TR(TC1)41:BY255(BM$(TC1))DBY128SC7:835IBY64SC6:835NBY32SC5:835SBY16SC4:835XBY8SC3:835]0zBC$"S[TT IN ORIGINAL-DISKEN ":9655955:ID$(SN$,2)EN$"00":ED$"OK":800:905zEN$"*2":ED$"DESTINATION-ID FUNNET":ET$"00":ES$"00":800:890OP$"L[SER DATA TILL BUFFERN":780:15,DI,15:2,DI,2,"#":BPSB:15,DI,15:2,DBY255(BM$(TC3))(BY16)C(TR8)20SC20:835<(BY8)C(TR8)19SC19:835^(BY4)C(TR8)18SC18:835(BY2)C(TR8)17SC17:835(BY1)C(TR8)16SC16:835:2:15:OP$"":780:OP$"DESTINATION: "DN$:790 256:915 A015:(BP146A),((DN$,A1,1))::A011 (BP164A),((DN$,18A,1))::925m 15,DI,15:2,DI,2,"#":15,"U1";2;0;18;0:15,"B-P:"2;162 #2,A$:#2,B$:2:15:ID$A$B$: OP$BC$:795:A175:A$ :10000 A$"":OP$"":790BC$"TA UT DESTINATIONS-DISKEN ":965:100MB$"":("",DN)RT)" ";Sv"";:A155:A$:A$""745:" ";:A155:A$"":736(A$)13" ":(A$)133100(A$)2076524,143 ".'S6,240:S4,65:FR5389:FQFR(S27)3.5:X120"8'(197)64M"B'HF(FQ256):LFFQHF256:S0,LF:S1,HF::evYsWJzOgojJKZwrwܦ:rfww=vtJ줹:W=i͓f2֦M֦M֧96k֟)JISKEN ":965'OP$"L[SER BAM FR]N ORIGINALDISK":780a15,DI,15:2,DI,2,"#":15,"U1";2;0;18;0:15,"B-P:"2;1#2,A$:#2,A$:#2,A$:A1140:#2,A$:A$""A$(0)BM$(A)A$::15,EN$,ED$,ET$,ES$:EN$"00"15,"B-P";2;144:SN$"":A1$:  2:15:OP$EN$", "ED$","ET$","ES$+%""BL$OP$:J*""BL$:q/ASBEB258:A,0:A1,0::BPSB:4BR0PTPT1:PT8PT1:SPSP1:8309BR1PTPT1:PT0PT7:SPSP1>SP,C(PT):CBRAKTIGT ID ":ET$"00":ES$"00"C800:BC$"ID-NUMMERNA [R INTE LIKA!!! ":965:100X790:OP$"":780BC$"[R DET DEN RIKTIGA ORIGINALDISKEN?":965!A$"N"555&OP$"":780:790:810:465+OP$"L[SER DATA TILL BUFFERN":780"S[T IN DESTINATIONS-DISK ":9651f955:ID$(DN$,2)EN$"00":ED$"OK":800:880pkEN$"*1":ED$"ORIG. ID FUNNET":ET$"00":ES$"00":800:865pOP$"SKRIVER DATA FR]N BUFFERN":780:910:815:OP$"":780uOP$"ORIGINAL: "SN$:79BY4SC2:835bBY2SC1:835gBY1SC0:8354lBY255(BM$(TC2))KqBY128SC15:835avBY64SC14:835w{BY32SC13:835BY16SC12:835BY8SC11:835BY4SC10:835BY2SC9:835BY1SC8:835I,2,"#":BR1 ((BP)0(BP1)0)BP256EB15:2:2TR(BP):SC(BP1):TR18SC0945p15,"B-P:"2;0:BPBP2:HI(BP256):LOBP(HI256):856,LO857,HI:820:848:820:15,EN$,ED$,ET$,ES$EN$"00"98015,"U2";2;0;TR;SC:BPBPBC$"S[TT IN DESTINATIONS-DISKEN ":965:955:ID$(DN$,2)EN$"00":ED$"OK":715yEN$"*1":ED$"ORIG. ID FUNNET":ET$"00":ES$"00":800:700800:OP$"SKRIVER DATA FR]N BUFFERN":780:910OP$"BACKUP AVSLUTAT":780:OP$"":810:785:795:A175:A$:A$"":965!OP$"":795:A$""S24,0:!100P!800:OP$"BACKUP INTE KOMPLETT - B\RJA IFR]N ":780!780:BC$"U-UPPRIKTIG DISK FEL":965:100!'S54272:L024:(197)64!$'SL,0: :S14,5:S18,6:S3,1 :S ERAR DESTINATIONS-DISK":780915,DI,15:15,EN$,ED$,ET,ES$:EN$"00"450^15:OP$"":780:800:OP$"":405DN$"NI: "DN$","DI$:15,DN$:15,EN$,ED$,ET$,ES$15:800:EN$"00":OP$"":780:405OP$"":780BC$"S[TT IN ORIGINAL-D R BASIC KOPF KANN GELOESCHT WERDEN, DANN ABS. LADEN UND MIT SYS50000 STARTENn 53280,0:53281,0:""" "" "(" TURBO TAPE 64 " 2"  `````  @ i:i;`````````````````````` 8)­m:m;8 jʥ)­:; g L```````````````````````````````````````````````````````````````````````````````` COMMODORE TURBO TAPE 64"H x""d " " SAVE'PRG.NAME' _S'PRG.NAME'" " " LOAD'PRG.NAME' _L'PRG.NAME'" " "#  AM FORSTHAUS 73 6078 NJ": EX SC186XOJ$" BITTE DISKETTE EINLEGEN UND < RETURN >" DISK NEU FORMATIEREN MIT < F1 >198,0:198,1:A$:A$(13)A$""7A$""" DISK NAME, ID";NA$,ID$:15,8,15,"N:"NA$","XLP ЍY  0LL/  ` `[Í ` s_L sS LVL s L s L s LSUPERMON 64  *ŪT116:#2,A$:A$CC$FL0C$(R)C$(R)A$::1805ůFL1:CŴPS$C$(R)\Ź#2,A$,A$,P$(R):140žOJ$"";:T1R2::""C$(T)17)P$(T)20)C$(T1);37)P$(T1);::198,0R0OJ$" DISK LEER":T02500:: zLt ať <í= P , AΘ >8<eÅ?e(= vťEL ő- ēEׅĥŮ寐 }ȄXL  }Ąשݢ & Ľ ň` &ƣ`98,0:198,1:A$:OJ$" LOADING "C$(T)^^2:DU$C$(T)",R,"P$(T):2,8,0,DU$:49408:2hOJ$" BITTE TAPE BEREITMACHEN":198,0m198,1:OJ$" SAVING "C$(T)" "r2:494 …,υ87 ` r```````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````)/(P) BY OLIVER JOPPICH3J" (C)/(P) BY OLIVER T. DIETZ@T"yPÏ"**************************************** WRITTEN BY "? <" STEPHAN SENZ FREIBURG i F" 1983 DEUTSCHE 64ER " P" " Z" " d"SAVE LOAD VERIFY CA 10MAL SCHNELLER !" n"ORIGINAL```````>46,202:45,0::53281,12:53280,11::CC$(34):650,128PS$" PROGRAMM : OJ$"DISK TO TAPE COPY 185.45 TEL.:0610251948":C$(50),CC$(50),P$(50) OJ$OJ$"(W) O.T. DIETZ" VERIFY'PRG.NAME' _V'PRG.NAME'"B " "m " C= TASTE LEERTASTE" 33)"RETURN" A$:A$""220 53280,14:53281,6:"TURBO TAPE 64 3032AXLP xbdÅe cbdceID$' A$""OJ$"BITTE WARTEN":10000:l OJ$" EINLESEN DES INHALTSVERZEICHNISSES":15,8,15,"I0n2,8,0,"$":T012:#2,A$,B$:x#2,A$,A$:ST2:190Ă#2,A$,A$Č#2,A$:A$""120ĖA$CC$140ĠC$"":RR1:FL0* 8 } ĥi Ģ Ģķ Ģ Ę Ąע걬 ĢʥŮ寐 ĢȄXL)x` Ģ ƫ Ģ`Eׅש) Ģ  Ģƣ` `,+, Å T1R:PT2055356:TT019PTT,0:9A$:A$"N"A$"J"230bCC$(T)A$:A$"J"TT019:PTT,1:A$"N"TT019:PTT,12:,6T1R:CC$(T)"N"1000@OJ$:"NAME : "C$(T)J" DISKETTE MIT PROGRAMM EINLEGEN,T1 2061 L4" PRG _ "6 ASSEMBLER" PRG  "7 ASSEMBLER" PRG  "8 ASSEMBLER" PRG  "9 ASSEMBLER" PRG  "C ASSEMBLER" PRG  "%7 64-TOOLKIT" PRG  88C$(T),1,0:&'15:15,8,15:15,A,A$:A$"OK"['""A$:" NEUSTART MIT < RETURN >$'198,0:198,1:A$:A$(13)10020.'N" N"****************************************@" (C . SPARA":: 22)"...VAD V[LJER DU?") 9000A A49 A51 950[ A48 1000,100,980o: 2000: 2500 52,120: C$: 6080---------- GRANSKA ------------ 4100LCN0:S1:V1V VA473,CN`CMGM(6$E"OI5J[Me%n[n[njZjZjZjZjZjZjZjZjZjZR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR5)J[[}iOlejU޶wO~WUliڲ)JR)JR9JT)JRJR*RU)jRJRKRJԥ)JRe)JR)JR)JR+R)JRW׾ԪJRU+R*R+R~T)JT)JR)JR)JR)JR+R)JR)R*_ikZֵkZ־ϯZֵk]ֵkZֵkZIl)J WRITTEN BY "? <" STEPHAN SENZ FREIBURG i F" 1983 DEUTSCHE 64ER " P" " Z" " d"SAVE LOAD VERIFY CA 10MAL SCHNELLER !" n"ORIGINAL2)"V[LJA EN ANNAN?" 9000' 75008 A74 100B 900H )n *------- RITA ETT TECKEN --------t + , 4000 6X1:Y1 @P(VM(X,Y)):M0 J VM(X,Y),86: 550 T M1 400 ^ VM(X,Y),P: 550 h M0 330 A(A$): " VERIFY'PRG.NAME' _V'PRG.NAME'"B " "m " C= TASTE LEERTASTE" 33)"RETURN" A$:A$""220 53280,14:53281,6:"TURBO TAPE 64 3032AXLP xbdÅe cbdceX9:YY1: Y0 YH/  XTX1:YY1: YH Y19  320K ------------Z & N1 50v 0 A$: A$"" N50:M1~ : N D N------------ X 9100 b 22)"VILL DU LAGRA" l 22)"DETTA I MINNET?" v  9000  A78 * 8 } ĥi Ģ Ģķ Ģ Ę Ąע걬 ĢʥŮ寐 ĢȄXL)x` Ģ ƫ Ģ`Eׅש) Ģ  Ģƣ` `,+, Å TAV ------ LCM * M1 W% 4 N1 H6 >P(VM(M,N))J H PG(T) PTHY RLL1:L,Pa \ Nk f".";s p M} z::  ------- HUVUDMENY ------------   9100  22)"1. GRANSKA":  22)"2. RITA": 22)"3[[}iOlejU޶wO~WUliڲ)JR)JR9JT)JRJR*RU)jRJRKRJԥ)JRe)JR)JR)JR+R)JRW׾ԪJRU+R*R+R~T)JT)JR)JR)JR)JR+R)JR)R*_ikZֵkZ־ϯZֵk]ֵkZֵkZIn)J4CN) j (CM)T 1300%t 4200: WV 11905~ MW1 VE N1 H1Y VM(M,N)CC,FTl VM(M,N),G(T)t N VM(M,N),TH MVW: 198,0: 9000 A49 A52 1140 A49 S1 A50 S1 A51 R BASIC KOPF KANN GELOESCHT WERDEN, DANN ABS. LADEN UND MIT SYS50000 STARTENn 53280,0:53281,0:""" "" "(" TURBO TAPE 64 " 2"   5000a8b-------- V[LJ EN TECKEN -------->cId 9100en 22)"V[LJ EN BOKSTAV" 22)"EL. SYMBOL: ": 9000: A32 A95 140 A63 AA64 VA153,ACMGM(A64) (CM)T 4200 300 2 COMMODORE TURBO TAPE 64"H x""d " " SAVE'PRG.NAME' _S'PRG.NAME'" " " LOAD'PRG.NAME' _L'PRG.NAME'" " "# A57 AF 420! L0: AF L154  VM(X,Y)CC,LI  VM(X,Y),G(AF)X XX1:490u  VM(X,Y),P: A88 600  AF1 AF7 M0: 330  AF1 Y1 YY1  AF7 YH YY1  AF3 XX1  AF5 XX1  X0XLP ЍY  0LL/  ` `[Í ` s_L sS LVL s L s L s LSUPERMON 64    A74 640  22)"S\KER"*  22)".";H ----- FINN BREDDEN -----Q W10d  M9 1 1r  N1 H P(VM(M,N))  PG(T) PTH WM  N ".";: WM M1  M  CM,W  W10 890 ----- AVS\K BOKS , ݎHhJJ`& Ľ ň` &ƣ`, ݎHhJJ`{_ޥ>JY 8:56,128:VA1024:CC55296VA:GM36864(F48:TH32:T10:FT15HF1133:F3134:F5135:F7136VPB$(144)dQC$(147)qRD$(17)SG$(155)TH$(19)VR$(18)WU$(145)ZW$(5)| G(10),VM(9,7),L$(29)LVA204 "j Nt M1 9 ~ N1 H1  VM(M,N),G(T)  N1  VM(M,H),G(0)9  ME  B$;:K %#p &#---------- SUBRUTINER ---------v '# (# A$: A$"" 9000 2#A(A$): # H$: N1 14 # 22)" " 1500 A52 1330 H$/ D$D$D$D$D$D$D$D$D$D$33);;CNCNSQ CN0 S1:CN0d( CN64 1110u2 7500: 900------------ 9100: 300: 7500 4100:-- H[MTA INNEH]LLSF\RTECKNING -M0: 53280, L$(5)"3111112311001"L$(7)"3711610011011"*L$(8)"3111102301111"<L$(9)"11111"WL$(11)"3111107601541"rL$(12)"3111100010001"L$(14)"41111416004161111"L$(15)"3711610014115"L$(18)"3111110164154"L$(20)"310001114#2,A$,A$> N116:#2,A$H A$;: N9R" "(83(A129)3)" ";R\ N1 K:#2,A$: N]f 2040o------------}::" ";"VILKEN FIL";F$--------- L[S IN FIL -------- 2,8,2,"0:"F$",S,R" 2,42: 6900" 1. L[S IN ETT GAMMALT ";"ALFABETE?":;" 2. STARTA ETT NYTT ";R"ALFABETE?"D$D$D$] 9000v A49 A50 6100 A50 63008 2000: 2300B 7000: 7500: 900" BOKST[VERNAS H\JD ";" W(M):2,(W);  WT 2600 NM1 MWH* A(N)7 2,(A);? NG( MQ2 2:W|---- MENY F\R ATT SKRIVA ------ 22)"ANV[ND SIFFRORNA" 22)"0-9 F\R ATT RITA." 22)"F1 = UPP" 22)"F3((L$(K),1))1 NM M(H1)40 40 N,G(((L$(K),L,1)))%&LL1-0 N5: MCDXM1: JINOUsV--- SK[RMENS HUVUDUTSEENDE ---yWX 53280,15b 53281,1l C$G$v N1 15:: N N1 17 R$" :@ 22)"TECKEN: "Je+f------VISA EN BOKSTAV -------1gAhK1:W(CM)Or M1 W]| N1 Hp VM(M,N)CC,0 VM(M,N),(CMK)KK1 N M--- FASTST[LLA VARIABLER ---- 650,12 N,G(((A$,L,1)))LL1  N: M* H$B$; 4- "000111400115611007180091"N "222333140150061071180091"o "111000114500006711180091"uIJ------- BOKSTAVS RUTA ---------KL: H$G$;V N1 16` R$"  M1 7 N1 9VM(N,M)LN NLL40" MHvG(0)32:G(1)160:G(2)98:G(3)226owG(4)223:G(5)105:G(6)95:G(7)233xG(8)97:G(9)225:G(10)100L$(1)"3711110104111"L$(2)"3111112314545"L$(4)"3111110014115"5 # N # H$: # # DY1 200: DY:YR+V_S))R+j_s)ғ>R*OU*꒥iM5ev]ev]e){'{y|v]ev]euJ^SMTJe=.Jr;;r)+WjJ7/rm.NgJڤSd&N)ܦ+NJoSdNrJJ*J*J*J*J)J15: C$" INNEH]LLSF\RTECKNING?". 9000: A$"N" 2200::" ";J 2,8,2,"$"e N1 254:#2,A$: NK13:MM1: M8 K11:M0#2,A$  ST0 2:2200 A$"" A(A$): 2100  N1 18K:#2,A$* N: 204011000"L$(21)"3111600011111"m(n----- RUBRIK & INSTRUKTIONER --.oFp 53280,3: 53281,1SzC$(28)b N1 15 " "; N: B$D$D$D$D$H4A$"RUBRIK":XVA49: 6900A$"GENERATOR":XVA2H MGM GM4032 64 #2,A$:W(A$)/$ M,W: WT 2400C. NM1 MWHNB #2,A$\L N,(A$)dV Nl` Mvj 2:|  --------- SPARA FIL -----------  2,8,2,"@0:"F$",S,W" 2,H MGM GM4032 64(2-7 PIXELS):"; 9000  A50 A55 6310!HA48: H: 92003 7000: 7500M NGM GM4032 64W N,T_ Ni 100o------ UTSKRIFTS SUBRUTIN ----- J1 (A$)K((A$,J,1))64:L2 MX X = V[NSTER" 22)"F5 = H\GER" 22)"F7 = NED"#? 22)"X F\R ATT SLUTA"EKp----- MENY F\R ATT GRANSKA ----v 9100 22)"1. FORTS[TT": 22)"2. BACKA":" 22)"3. RITA":, 22)"4. AVBRYT"6 "; N R$" "U$U$U$! VA999,160: VACC999,159L48: N2 38 4J N)R$(L);XLL1: Nu MVA721 VA801 40~ A$A$"000111"A$:L1 NM M38 N4(N4) NN1 NCC,0  ,254,240,58,201,3* "48,54,201,7,16,50,133,254G ,201,3,208,3,24,105,4,24g 6105,129,174,141,2,240,3,24 @105,4,133,253,160,0,169,194 J133,252,132,251,177,251,197,253 T240,19,200,208,247,230,252,165 ^252,201,197,208,239,76,49,234 h 01:VAT1,C(T):"yT1301:CCVAT1,C(T):6| NVA VA999I}2,((NCC));Y~2,((N));a Nn 2: 40t-------- VISA MEDDELANDE ------- N1 (B$)A(N)(NY):B(N)(NYCC) NYCC,0M((B$,N, * **********************************S * DIAGRAM TILL COMMODORE-PRINTER *| * AV BIRGER GRAN * ********************************** C(50): INITIERINGI09:J12:R(J,I):J,I  146,32,146,180,146,180,146, ' ------- GRAFIKGENERATOR ---------71000L(P(X):Q(XCC)`2 XCC,0: X,CUv< A$: A$"" 60F A$"U" D40: 180P A$"N" D40: 180Z A$"V" D1: 180d A$"H" D1: 180n A$"I" PA:QC:D1: 1825MX PR$"J"4,4:4! RU$:, I1NE C((C(I)FA10))10Q CI(C)e CR((CCI)10)~ 5((I)))I(170); CI0220 J1CI (18)(32); J (R(1,CR))(R(2,CR)); (146)(32)C(I) I PR$"J"4" ,B$"ASCII F\R NYTT TECKEN: "7 6 900:MY24:A0B @ 2000^ J A$"0" A$"2" 320 TM,(A$):AA100(A$):MM1 ^ 2000 h A$"0" A$"9" 350 r M,(A$):AA10(A$):MM1 | 2000  A$"0" A$"9" 380  M,(A1 "FUNKTIONSTANGENTER"DX4915249415PA:X,AW(X2"STARTA MED SYS 49152":d169,0,170,157,0,194,157,0n195,157,0,196,232,208,244,133x251,169,194,133,252,169,49,133 253,169,130 : M,(A$):CC(A$)( D 950: C15 5001 N 607 U] V---------- HJ[LMEDDELANDE ------ XB$"U=UPP:N=NED:V=V[NSTER:H=H\GER" b 900: 2000: 950 lB$"I=INS[TT:R=RADERA:?=HJ[LP" v 900: 2000: 950 B$"A=ASCII:F=F[RG:S=SPARA"68 192,230,253,165,253,41,1,208A 10,24,165,254,105,4,133,254b 76,114,192,56,165,254,233,3 133,254,165,253,201,57,48,165 120,169,144,141,20,3,169,192 141,21,3,88,96,166,251,224 255,208,2,230,252,230,251,96 165,197,197 950: A$"B" 882C X,P: XCC,Q8H 2,8,2,"@0:"F$",S,W"LR NVA VA999_\2,((NCC));of2,((N));wp Nq 2: 40r X,P: XCC,Qs T1301:C(T)(VAT1):t T1301:D(T)(CCVAT1):w 2,1,2,F$xT13133,254,76,49,234,200,208,8: r230,252,165,252,201,197,240,242] |177,251,201,13,208,10,230,198 166,198,157,119,2,76,213,192 201,0,240,222,201,133,48,7 201,141,16,3,76,49,234,32 210,255,76,213,192,0,0,0miR9vٮyٮy)J1)) MSF MMSF NY,M N:/ N1 (B$)> NY,A(N)P NYCC,B(N)Z N:`------- STARTRUTIN ------------53281,1:53280,1 (147)(144)"GRAFIKGENERATOR":"KOMMANDON:":"U = UP180,146,181,146,1613 ( 18,182,18,167,18,167,18,167_ 2PR$"":"PRINTER INKOPPLAD (J=JA)";PR$q 7"RUBRIK";RU$ <I0: INMATNING FII1:I$"":"TAL ";I;:I$:I$""110 PC(I)(I$):C(I)0C(I)0 ZC(I)MXMXC(I) d70 nNI1 xFA0 x A$"R" PS:Q1:D1: 1803 A$"A" 300F A$"F" 500Y A$"S" 800l A$"?" 600u 60 X,P XCC,Q XDVANN XX1000 XDVA XX1000 XXD:40 ) *-------- NY ASCII-KOD --------- + :4 JzK,|ys))wUz-Βj}vfRާNRfwRI{'v){)/Vf)ܦ5yrywu+UV]e)ܝjk;r)9-͒)ٞ礽ٓٓ)JR湮jReR9%ٖw&IvdfzN9%ٖw9WtfYܦ+V_);tfYקWw^Ӓ]eJ9JNgyJyJw'g[ԥ-ZTYܲ)J$):AA(A$)  950: A255 300'  60- Q --------- NY F[RGKOD ---------W v B$"NY F[RGKOD: "  900:MY20:C0 2000  A$"0" A$"1" 520  M,(A$):CC10(A$):MM1 & 2000 0 A$"0" A$"9" 553,133,254,169,13,324 210,255,169,70,32,210,255,165V 253,32,210,255,169,61,32,210x 255,169,63,32,210,255,32,207 255,72,160,0,165,254,145,251 104,32,133,192,201,13,240,17 201,95,208,2,169,13,145,251 32,133,192,32,207,255,76,  900: 2000: 950  60 A -------- SPARA BILDEN ----------G f B$"KLAR ATT SPARA?": 900q * 2000 4 A$"J" A$"N" 810 > 950: A$"N" 60 ?B$"DISK ELLER BAND?": 900 @ 2000 A A$"D" A$"B" 832 B 141,4,192,169,194,141,8,192,169,232,141,12,192,169n$ 197,141,16,192,169,0,141,20,192,169,199,141,24,192,32,3,192,169,0% 133,251,169,216,133,252,160,0,169,1,145,251,230,251,208,250,166,252& 224,218,240,8,230,252,162,0,224,0,240,232,230,252,1 AV MATTIAS MEYER ***A  *** ***i  *** I JAN. 1987 *** *** (C) CLUB 64 *** ******************************* : (147):53281,6:53280,14:646,14 13)" A$ B$ C$ 1 140AUTO-RUNDIAGRAMFANTASY FLASH 1FLASH 2 FLASH 3 FLASH 4 P""N = NED"$"V = V[NSTER"#."H = H\GER"58"I = INS[TT"GB"R = RADERA"YL"E = ERS[TT"nV"F = NY F[RKOD"`"A = NY ASCIIKOD"j"S = SPARA"t"? = HJ[LP":P0:Q0:M0:N0VA1024:CC54272:X1524:YVA959A160(147):47)"*** ANTECKNINGSBLOCKET ***"H 6)"AV MATTIAS MEYER I JAN. 1987"N   76,251,192,162,0,134,251,162,194,134,252,162,232,134,253,162,197  134,254,162,0,134,182,162,199,134,183,160,0,177,251,145,182,165,252'  197,254,240,22,165,240,3,76,231+ 167,32,115,0,201,72,240,3I 76,8,175,120,169,87,133h 1,169,0,141,17,208,173,1 220,41,16,240,32,173,13 220,41,16,74,208,11,169 0,141,32,208,141,24,212 76,123,195,169,1,141,32 208,169,15,141,24,212L SKA" "BILDEN SPARAS I";F$ (147)#G-------- L[SA IN BILD --------Me"DISK ELLER BAND?"p  2000A$"D"1813A$"B"18901805"FILENS NAMN";F$ 2,8,2,"0:"F$",S,R" NVA VA999&#9,0,141,4,192L 169,4,141,8,192,169,0,141,12,192,169,8,141,16,192,169,0,141,20,192 ! 169,194,141,24,192,32,3,192,169,0,141,4,192,169,199,141,8,192,169 " 232,141,12,192,169,202,141,16,192,169,0,141,20,192,169,4,141,24,192&# 32,3,192,169,0,) *******************************Q *** ***y *** ANTECKNINGS-BLOCKET *** *** *** *** --------------------- *** *** ***  ***  Z SAVE "KASSETTREG.BFIN",85d INNEH]LLSLISTA@nPA829Ix2,3p"PRINTER J/N ";D$:D$"J"2:2,4y1,1A$(" :"((PA)256(PA1)),6)B$(" -"((PA2)256(PA3)),7)C$": ": I4 19:C$C$((PAI)): 2,l60,0,145,251,200I' 192,232,208,249,76,49,234,96,234,120,169,94,141,20,3,169,192,141Z( 21,3,88,96MMMdٮyٮvT]J9MM)6kg)6k6r)6k6kٮyٮvd٪MM6kg)6k6nfkg)MJMJLrg96kg)6k6jg%)J" 13)"ANTECKNINGS"0 13)"BLOCKET"H 13)""\ 13)"LADDAR"o I4915249415 A:I,A:XXA:53280,A:I X38638" FEL I DATA ": 49152214,14:53280,14 49152! $dA093:B:CCB:50000A,B:AAnC9978"DATA ERROR":wx50000:"SYS50000 F\R ATT INSTALLERA PROGRAMMET""_H F\R ATT LYSSNA P] BANDET (SPACE F\R ATT AVSLUTA)":169,91,141,8,3,169,195 141,9,3,96,32,115,0,240 4,201,95:C0:CU86:S32:SF64:NN999'FA(40),B(40),C(500),D(500)=xA$"":B$"":F$""K 650,128k@"SK[RMENS BAKGRUNDSF[RG";M{J 53281,M:T"KANTENS F[RG";M^ 53280,M:r"L[SA IN GAMMAL BILD?":| 2000: A$"J" 1800"VILKEN FI,251,201,255,240,24,230,251,165,182,201,255,240o  28,230,182,169,0,201,0,240,224,165,251,197,253,208,228,240,24,169  255,133,251,230,252,169,0,201,0,240,220,169,255,133,182,230,183,169  0,201,0,240,216,96,165,203,201,4,240,4,76,49,234,96,16E,76 123,195,169,55,133,1,169=  27,141,17,208,76,116,164|W]ru{%+oRS%+9ɒg򒜷|.Jz)r9{%zMϒg򒜷s^˖e)RR%-R9vdkfkf6sfyfoRU'6R9*k6yg96yrfof6r)[Vt)36r6yՕ)J2,A$0 NCC,(A$(0)) :#2,A$ D N,(A$(0))(N N4X 2:40Jb"FILENS NAMN";F$Xl2,1,0,F$lv NVA VA999w#2,A$ NCC,(A$(0))#2,A$ N,(A$(0)) N 2:40 A$:A$"" 2000J 32((X1)8)(Y1)3:BI8X((31)8)87 VA0:I1 8 2} AQ55296(Y1)40((X1)8)8I:PO((AQ)15)((AQ54272)160) BM0: POC1 BM2 POC2 BM1 POC3 BM3 VAVA2(7I)BM: AD,VA: "";: V21,0:Y0G ^8293YF,H h- rX1:Y1:D32:210:310:> |"":A020I B02\ (832A3B);k B2",";w B::A}w%)Ve+9+ywywywywywywRRjR/rjKZ*J*J*J*J*J*Jۥ)2RUnRJJ}w%)Jo08,141,33,208, q 169,200,141,22,208,169,0,141N r 18,208,169,1,141,25,208,104g s 168,104,170,104,64g)iR&R9*k6rٮnٮwg)ifyfMJԛ]JLjg96k6kg)6k6rMf*Rl)3MyM6r6r6jg)jfJZUeJLje)J  84-10-24' BLOCK-MOVE= COMMANDOc SYS 49152,START,END,ANTAL BYTESy I49152 49226 D: I,D: 32,65,192,132,251,133,252,32 65,192,132,253,133,254,32,65 192,140,252,3,141,253,3,160 0,177, 12,38:VI21,50I50' 22040I,13:0 7300T <X1:Y1:P0:ACC1:A46:C1:SU0g dJ(56320):A$ iA$"" (J2)0Y21YY1 nA$"" (J1)0Y1 YY1 sA$"" (J8)0X23XX2 xA$"" (J4)0X1 XX2 }A$"1" V29,28:V23,48! ZX1:Y1:1704 dA$:A$""100G n110440YX,Dk s (1924X40Y)100DXDX:80 xA$"" YY1:Y1Y21 A$"" YY1:Y21Y1 A$"" XX1:X1X24 A$"" XX1:X24X1 A$"" A$"" 3!(61)256(62)3:A2,0:A1,0|5w5w-͒'s5*RT)+nfr*ng)vR%VRy)Ξy)ٓ\2R%ZR9*sofrfrg)kfsg)rg9JmTmJLofrfrg)sfsg)ng9M*RT)3rfjg)rg96k6r96sfjRe]R9*jfwd)J (1024P):C(55296P)15F 1024P,42:1025P,42:55296P,AC:55297P,ACO 100] X1X:Y1Y} Y121:X124 8:400:: XX1:YY1: ,646,1(C41) 6 "";:I121:"........................": @I062:832I,0:: ! AD8 "/ ""30);"Œ ITA"H 30);"1 ATA"c 27);"LR/OME \M"z "30);"PRITE:" , 6A062:832A,0:A: @I32:D32I160 JDI:F((X1)8):E(8293YF):G8(F1)X:HE2G TD32HE2 ,113,240,28,201,186,240,489 j 76,49,234,169,6,141,32,208] k 141,33,208,169,113,141,18,208~ l 169,1,141,25,208,76,49,234 m 169,3,141,32,208,141,33,208 n 234,234,234,169,186,141,18,208 o 169,1,141,25,208,76,127,192 p 169,1,141,32,220:"";5 X02:(832Y3X);:::o "RYCK EN TANGENT F\R ATT FORTS[TTA.":198,0:198,1 "";:Y1 21:" ": V21,15:X1:Y1:" ":eu)J   V53248/"[RG 1 (INDIVIDUELL)";C1P"[RG 2 (MULTICOLOUR 1)";C2q"[RG 3 (MULTICOLOUR 2)";C3"AKGRUNDS-F[RG";C4:53280,C4:53281,C4#V37,C2:V38,C3:V21,15:V16,15:V28,15(V23,10:V29,12 -I03:V39I,C1:V   V53248%53281,11:53280,110L11E1924X40Y,100LLU210x( A 0 62 : 832A,0 : A2V21,15:A03:V39A,072040A,13:<V16,15:V,0:V2,0:V4,60:V6,30FV1,150:V3,200:V5,200:V7,150 P 251,145,253,230,251,1969  251,208,2,230,252,230,253,196[  253,208,2,230,254,206,252,3{  204,252,3,208,8,204,253,3  240,6,206,253,3,76,25,192  96,32,253,174,32,138,173,32  247,183,96,*2A(61)256(62)3:A2,0:A1,06A ACC1:SU0 A$"2" ACC2:SU07 A$"3" ACC3:SU0S A$"_" AC(646):SU1 A$" " (J16)0A160:CAC:SU A46 1024P,A: 1025P,A:55296P,C:55297P,C A$"" 200 A$"" 300 A$"" 500 P(Y1)40X1:A 70 A$(133)380' D(110440YX)9 A$" " 320M 110440YX,42V 100 (14)(8)"";13);"PRITE-DITOR 64" 13);"" " " A020:" ": "   ***** SPLIT-SCREEN *****L A49160 49284: B: A,B: A: 49160od 120,169,127,141,13,220,169,1e 141,26,208,169,0,141,18,208f 169,27,141,17,208,169,41,141g 20,3,169,192,141,21,3,88h 96,173,18,208,201,0,240,11 i 2010,173,174,0,141,47,0,173,175,0,141,48,0_ <173,174,0,141,49,0,173,175,0,141,50,0,76,116,164,234 F"SKRIV: SYS 50000 F\R ATT STARTA"CHARLOADCHARACTER MASTERCHESS ! 208,201,84,208,3,206,14,208< 173,14,208,201,255,208,8,173^  16,208,41,127,141,16,208,76{  49,234,240,0,0,224,0,0  144,0,0,8,0,0,0,0 " 0,0,0,0,0,0,0,0 , 0,0,0,0,0,0,0,0 6 0,0,0,0,0,0,0,0 @ 0,0,0,0,0,0,0,0 J 0,0,0,!  DISK-DIRECTORY8 AV J\RGEN GUSTAVSSON, FLODAs2A4915249227:B:A,B::"DISK-DIRECTORY : SYS49152"< 160,0,162,8,32,186,255,169,1,160,192,162,75,32,189,255,32,221,243,32,25 F 242,160,5,32,207,255,136,208,250,170,32,207,255,164,14P FLASH LOAD BY DAN WESTERBERG, UPPSALA, S W E D E N CLUB 64 PDl G018:A:49152G,A: 120,169,13,141,40,3,169,192 141,41,3,88,96,238,32,208( 76,237,246249152:^v\mwY|y*Iٮod*ksmL5i)J! 2061x4.%-.a=HL&V- .7X YLʅVȈV 53280,.:53281,.""";AA$(.,.)"  "m(I.7:A$:A$(1,I)A$" !  X0,I5299253240:A:I,A:XXA:RX22867"FEL I DATASATSERNA":s("STARTA MED:SYS 52992"2 120,169,64,141,20,3,169,207< 141,21,3,88,162,63,189,178F 207,157,192,2,202,16,247,169P 100,141,14,208,141,15,208,169!,252,24,32,9,169,32,251,168,165g 122,133,254,165,123,133,255,160,0,177,254,145,251,230,254,208,2,230 255,230,251,208,2,230,252,165,251,197,45,144,234,24,165,252,197,46,144 227,173,167,2,133,122,173,168,2,133,123,165,122,197,45,144,9,165,!A091:B:50000A,B:S 169,91,141,8,3,169,195,141,9,3,96,32,115,0,240,4201,79,240,3,76,231,167,32,115,0,201,76,240,3,768,175,32,115,0,201,68,240,3,76,8,175,120,169,8(141,2,8,32,51,165,173,174,0,141,45,0,173,175,0% 2141,46,!8,14,208,173) 15,208,201,49,208,3,238,15L 208,173,15,208,201,247,208,3o 206,15,208,173,16,208,41,128 208,28,173,14,208,201,23,208 3,238,14,208,173,14,208,201 0,208,36,173,16,208,9,128 141,16,208,76,175,207,173,14 ! 3,123,169,0,133,253,76,173,192,56,165,122,141,167,2y 233,5,133,251,165,123,141,168,2,233,0,133,252,76,74,192,32,51,165,169 255,133,20,133,21,32,19,166,169,2,24,101,95,133,45,133,47,133,49,169,0 101,96,133,46,133,48,133,50,32,51,165,173,1!Md165,122,141,169,2,165,123,141,170,2,32,142,166,24,165,43,105,3,133,122n 165,44,105,0,133,123,169,0,133,253,141,171,2,76,24,193,201,143,208,117x 165,253,208,3,76,211,192,56,165,122,233,1,141,167,2,133,251,165,123 233,0,141,168,2,133A0,0,0,0,0 T 0,0,0,0,0,0,0,0- ^ 0,0,0,0,0,0,0,05 h 0M6k+2V)3)ig)MyM6r6r6rjTZ씤Jsdٮng)ifsfMMJ땮JL䩪MMi6k96kjdM)JկYJL䩮nٮvg)igyMyMMyM)yV)J4,240,9,32,204W P 255,32,70,246,76,134,227,32,205,189,169,32,32,210,255,32,207,255,208 Z 248,169,13,32,210,255,165,197,201,63,240,223,160,3,208,205,36"69,2,133,122,173,170,2,133_ 123,96,32,101,193,201,32,208,38,173,171,2,208,62,165,122,141,167,2,133 251,165,123,141,168,2,133,252,24,32,101,193,201,32,240,249,165,122,133  254,165,123,133,255,76,91,192,72,201,34,208,11,173,171,2,73,1,141,1"::Z12"","","","","","","",""<"";:R023FR8(R8)Z(Z.)PK04:XRZ(K2(K2))ZA$(.,.);:120 dX7XX8:100 nA$(1,X); x:T 9)"M\NSTER -90 AV MR.P.";:I.1.: ! Z 1,141,46,208,169,128,141,21A d 208,173,24,208,41,240,74,74d n 24,105,3,133,252,169,255,133 x 251,160,0,169,11,145,251,96 173,0,220,160,0,162,0,74 176,3,206,15,208,74,176,3 238,15,208,74,176,3,206,14 208,74,176,3,23! 123L 197,46,144,3,76,233,192,56,165,122,233,1,133,122,165,123,233,0,133,123 169,0,133,253,76,41,192,201,0,240,22,169,1,133,253,165,122,197,45,144 9,165,123,197,46,144,3,76,233,192,76,41,192,24,165,122,105,4,233,122- 165,123,105,0,13KK"  SPRITES I RAMEN2 AVO F.ADEMAR & J.AXN[SU(k2ADDR5309153245<V:ADDR,V:CHKCHKVFPCHK21116"FEL I DATA":Z53091d 169,1,141,21,208,169,168,141n 0,208,169,0,141,1,208,169 xKK"21,3,169,127,141,131 220,169,33,141,26,208,88,76U 116,164,162,8,202,208,253,169w 1,141,25,208,169,255,77,255 207,141,255,207,240,25,169,46 141,18,208,169,16,141,17,208 173,33,208,141,254,207,173,32  208,141,33,208,7671D  2,76,97,193,201,0,208,8,173,171,2,240,3,76,74,193,104,76,44,192,160,0  230,122,208,2,230,123,177,122,201,58,176,6,56,233,48,56,233,208,96 "A49160 49529:B:A,B:A:"SYS(49160)"vfsfM9M6k96orfMiMyMe)JKKEׅĥŮ寐 {ȄXL  {Äשݢ & Ľ Ĉ` &ƣ`, ݎHhJJ`čLPκ  LRESTART SYS50000 LOAD @ (RETURN) _`ȅZ [XąY`  LKK" 14,141,32,208,169,6,141,33= 208,169,31,141,17,208,169,192` 141,248,7,169,255,162,63,157 255,47,202,208,250,169,0,141 23,208,141,28,208,141,29,208 141,39,208,141,255,63,141,255 207,120,169,189,141,20,3,169 207,141,KKh,126,234,234*  169,247,141,18,208,169,24,141N  17,208,173,254,207,141,33,208^ " 76,49,234JR9*rjdٮnig)ifkg)MJniJL䩮nyg)ifkg)ogiMMJUJLjٮrٮvdٮidٮnjg96k)UV)3)wfk_%)J"  %2064:L L `Z [Ҡ bÍ ` s@L s s L`)x`,+, Å zLt ĥ <í= P , AΘ >8<eÅ?e(= %ĥEL ^ đ- ^ ēKKKKKKKKKKKKKKKKK