home *** CD-ROM | disk | FTP | other *** search
/ Talisman BBS - Support Disks / Talisman bbs - Novaterm 9.3.D64 / nova.Print docs (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  2.1 KB  |  61 lines
  1. 10 data"contents","introduction","getting started","term/autodial"
  2. 20 data"script files","external progs","parameters left","parameters right"
  3. 25 data"disk/buffer/xfer"
  4. 30 poke45,peek(174):poke46,peek(175):poke49152,0:clr:dimf$(8),m%(8)
  5. 40 ifpeek(38400)<>76thenprint"[205]ust load [206]ovaterm first":end
  6. 50 fori=0to8:readf$(i):next:ml=38400:sl=52608:dv=peek(186):ifdv<8ordv>16thendv=8
  7. 60 p$="[206]ovaterm 9.3 documentation                                    [208]age"
  8. 70 u$="[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][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][163][163][163][163][163][163]"
  9. 80 open15,dv,15:print"[147][201]nsert documentation disk in device"dv:print"and hit return"
  10. 90 geta$:ifa$<>chr$(13)then90
  11. 100 print"[195]hecking for all files..."
  12. 110 open1,dv,0,"$":get#1,a$,a$:sysml+54
  13. 120 sysml+54:ifright$(z$,1)="."orright$(z$,4)="free"thenclose1:goto170
  14. 130 f$="":fori=7to22:ifmid$(z$,i,1)=chr$(34)theni=22:goto150
  15. 140 f$=f$+mid$(z$,i,1)
  16. 150 next:fori=0to8:iff$=f$(i)thenm%(i)=1:i=8
  17. 160 next:goto120
  18. 170 j=0:fori=0to8:ifm%(i)=0thenprint"[206]ot all documentation files found!":goto460
  19. 180 print"[197]nter page size:":print"(default = 60)":print"[145][145]"tab(17);
  20. 190 gosub1000:pg=val(i$):ifpg=0thenpg=60
  21. 200 print"[197]nter secondary address:":print"(default = 7)":print"[145][145]"tab(25);
  22. 210 gosub1000:ps=val(i$):ifps=0thenps=7
  23. 220 print"[193]lign printer paper and hit return"
  24. 230 geta$:ifa$<>chr$(13)then230
  25. 240 print"[208]ress  [211] [146] to stop or  [208] [146] to pause":print"during printing"
  26. 250 open4,4,ps:print"[208]rint table of contents?  [146][157]";
  27. 260 geta$:ifa$<>"y"anda$<>"n"then260
  28. 270 ifa$="n"thenprint"no":goto340
  29. 280 print"yes":open2,dv,2,f$(0):input#15,e:ife>19then340
  30. 290 print:print"[208]rinting "f$(0);:l=0
  31. 300 poke781,2:sysml+60:f=st:print#4,"        "s$;:l=l+1
  32. 305 ifl=pgthenprint#4,"";:l=0
  33. 310 geta$:ifa$="p"thenwait198,1:geta$
  34. 320 iff=0anda$<>"s"then300
  35. 330 print#4,"";:ifa$="s"then410
  36. 340 close2:l=0:p=1:fori=1to8:open2,dv,2,f$(i):input#15,e:ife>19then420
  37. 350 print:print"[208]rinting "f$(i);
  38. 360 poke781,2:sysml+60:f=st:print#4,"     "s$;:l=l+1
  39. 370 ifl=pgthenp=p+1:print#4,"     "p$p:print#4,"     "u$:print#4:l=3
  40. 380 geta$:ifa$="p"thenwait198,1:geta$
  41. 390 ifa$="s"theni=8:f=1
  42. 400 iff=0then360
  43. 410 close2
  44. 420 next:print:print"[212]ry again?  [146][157]";
  45. 430 geta$:ifa$<>"y"anda$<>"n"then430
  46. 440 ifa$="y"thenprint"yes":goto220
  47. 450 print"no"
  48. 460 print"[201]nsert [206]ovaterm disk and hit return"
  49. 470 geta$:ifa$<>chr$(13)then470
  50. 480 open2,dv,0,"prog menu":input#15,e:close2:ife>19then500
  51. 490 load"prog menu",dv
  52. 500 open2,dv,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
  53. 510 print"[147]":load"novaterm ?.?*",dv
  54. 1000 i$=""
  55. 1010 print" [146][157]";
  56. 1020 geta$:ifa$=""then1020
  57. 1030 if(asc(a$)and127)>31theni$=i$+a$:printa$;:goto1010
  58. 1040 ifa$=chr$(13)thenprint" ":return
  59. 1050 ifa$=chr$(20)thenprinta$;:i$=left$(i$,len(i$)-1)
  60. 1060 goto1020
  61.