home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 82 / 082.d81 / appender / appender.0829 / appender.a7ae (.txt)
Encoding:
Commodore BASIC  |  1991-01-01  |  48.1 KB  |  46 lines
  1. 10 ifa=0thena=1:load"append data",8,1
  2. 20 print"[147]":gosub40:gosub320
  3. 40 poke53280,0:poke53281,0:iffthenreturn
  4. 50 poke214,10:print"[145]";:fori=1to13:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print"":fori=217to242:pokei,peek(i)or128:next:poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":fori=1to7:printtab(4)"[155]                                [151][146][223]":next
  5. 100 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][146][223]":print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]":poke214,14:print"[145][155]";:fori=1to5:reada$:gosub140:next:goto150
  6. 140 printspc(20-len(a$)/2)""a$:a$="":return
  7. 150 fori=1to8:reada$(i):next:return:data"[204][160][201][160][194][160][210] [193] [210][160][217][160] [160][213][160][208][160][196][160][193] [212] [197]","by [202]effrey [204]. [202]ones","[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210]","[211]ubscriptions 1-800-831-2694","[195]opyright ([195]) 1990 [211]oftdisk","[165][157]","[180][157]","[181][157]","[161][157]","[182][157]","[170][157]","[167][157]"," [146]
  8. 200 [159]2,dv,2,"index.data,p,a":i[178]49152:[142]
  9. 210 [139][194](i)[178]0[167]260
  10. 220 [139]i[178]49153[167][153]"openatnppending data to file..."[199](13);
  11. 230 [139][194](214)[177]2[167]a$(8)[178]"print# wait
  12. 240 print#2,chr$(peek(i));:x=x+1:ifx>8thenx=1
  13. 250 i=i+1:printa$(x);:goto210
  14. 260 print:print"[207]kay!":close2:return
  15. 270 close15:a$="ls briefs":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer<>63thenprint"[147]":end
  16. 290 q$=chr$(34):poke646,peek(53281):print"[147]":print"load"q$a$q$",8":print"run":poke631,13:poke632,13:poke198,2:end
  17. 320 print"    [159][212]his program will append additional":print"data to your existing [204][207][193][196][211][212][193][210] [204][201][194][210][193][210][217]":print"datafile.  [217]ou should not attempt this":print"operation on your [204][207][193][196][211][212][193][210] disk.":print"[208]lease insert your [204][201][194][210][193][210][217] disk and":print"press [210][197][212][213][210][206][159] to continue or [209][159] to quit.
  18. 380 [153]"(NULL)ress str$open for selective directory.":[153][163]14)"((NULL)val(NULL)(NULL)(NULL)(NULL)open/(NULL)open/str$open)
  19. 400 geta$:ifa$<>"d"anda$<>"q"anda$<>chr$(13)then400
  20. 410 fori=0to9:poke781,i:sys59903:next:ifa$<>"q"thenh$=a$:gosub670:a$=h$
  21. 420 ifa$="d"thenprint"[159][201]ndex files on drive"dv"[159]":sys51200:wait198,1:getj$
  22. 430 ifa$="d"thenfori=0to9:poke781,i:sys59903:next:goto320
  23. 440 ifa$="q"then270
  24. 450 open15,dv,15,"i":input#15,a$,a$:ifa$<>"ok"then640
  25. 460 print"[159][198]inding end of file...":gosub200:gosub210:input#15,a$,a$:ifa$<>"ok"then640
  26. 500 fori=0to5:poke781,i:sys59903:next
  27. 510 fori=217to242:pokei,peek(i)or128:next:print"[146][159][212]he data has been added to your":print"library.  [208]lease [153][196][207][160][206][207][212][159] repeat this":print"procedure except with the [206][197][216][212] update":print"module.  [210]epeating this process will":print"only cause the data to be repeated in":print"your file.
  28. 580 [153]"    (NULL)ress (NULL)open to quit or str$open for directory.":[153][163]17)"((NULL)open/str$open)
  29. 600 geta$:ifa$<>"q"anda$<>"d"then600
  30. 610 ifa$="q"then270
  31. 620 fori=0to9:poke781,i:sys59903:next:print"[201]ndex files on this disk...[159]":sys51200:poke198,0:wait198,1:goto510
  32. 640 print"[197]rror!  [159][208]lease check your disk and":print"try again.  [208]ress a key...":poke198,0:wait198,1:poke198,0:run
  33. 670 print"[159][215]hich device? (8[159]-11[159])   [157][157]";:li=2:gosub720:ifw$=""thenclr:goto20
  34. 690 ifval(w$)<8orval(w$)>11then670
  35. 700 dv=val(w$):close2:open2,dv,2:close2:ifstthen670
  36. 710 poke186,dv:return
  37. 720 w$="":t=0:lw=0:ifli=0thenli=35
  38. 730 geta$:as=asc(a$+chr$(0)):ifti>15thengosub810
  39. 740 if(a$<" "ora$>"z")and(a$<"[193]"ora$>"[218]")andas<>13andas<>20then730
  40. 750 lw=len(w$):ifas=13thent=-1:gosub810:return
  41. 760 iflw=lithenifas<>20andas<>13then730
  42. 770 ifas=20theniflw=0then730
  43. 780 ifas=20thenw$=left$(w$,len(w$)-1):t=0:gosub810:gosub810:print"[146][157] [157]";:goto730
  44. 790 w$=w$+a$:lw=len(w$):poke212,0:print"[146]"a$;:gosub810:goto730
  45. 810 t=nott:poke199,-t:print" [157]";:ti$="000000":return
  46.