home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1999-03_1999_CSW_Side_A.d64 / nova.Print docs (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  75 lines
  1. 10 data"contents","introduction","getting started","term/autodial"
  2. 20 data"script files","external progs","parameters left","parameters right"
  3. 30 data"disk/buffer/xfer","memory map"
  4. 40 poke45,peek(174):poke46,peek(175):poke49152,0:clr:dimf$(9),m%(9),n%(9)
  5. 50 ifpeek(38400)<>76thenprint"[205]ust load [206]ovaterm first":end
  6. 60 fori=0to9:readf$(i):next:ml=38400:sl=52608:dv=peek(186):ifdv<8ordv>16thendv=8
  7. 70 p$="[206]ovaterm 9.5 documentation                                    [208]age"
  8. 80 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. 90 open15,dv,15:print"[147][201]nsert documentation disk in device"dv:print"and hit return"
  10. 100 geta$:ifa$<>chr$(13)then100
  11. 110 print"[195]hecking for all files..."
  12. 120 open1,dv,0,"$":get#1,a$,a$:sysml+54
  13. 130 sysml+54:ifright$(z$,1)="."orright$(z$,4)="free"thenclose1:goto180
  14. 140 f$="":fori=7to22:ifmid$(z$,i,1)=chr$(34)theni=22:goto160
  15. 150 f$=f$+mid$(z$,i,1)
  16. 160 next:fori=0to9:iff$=f$(i)thenm%(i)=1:i=8
  17. 170 next:goto130
  18. 180 j=0:fori=0to8:ifm%(i)=0thenprint"[206]ot all documentation files found!":goto630
  19. 190 print"[197]nter lines per page:":print"(default = 60)":print"[145][145]"tab(22);
  20. 200 gosub710:pg=val(i$):ifpg=0thenpg=60
  21. 210 print"[197]nter physical page size:":print"(default = 66)":print"[145][145]"tab(26);
  22. 220 gosub710:ph=val(i$):ifph=0thenph=66
  23. 230 print"[197]nter secondary address:":print"(default = 7)":print"[145][145]"tab(25);
  24. 240 gosub710:ps=val(i$):ifps=0thenps=7
  25. 250 print"[208]rint [193][146]ll or [211][146]ome doc files?  [146][157]";
  26. 260 geta$:ifa$<>"a"anda$<>"s"then260
  27. 270 printchr$(asc(a$)+128):ifa$="a"thenn%(0)=0:fori=1to8:n%(i)=1:next:goto300
  28. 280 print:fori=0to8:print"[208]rint "f$(i)"?  [146][157]";:gosub720:n%(i)=y:next
  29. 290 print"[211]tart from what page number: ";:gosub710:p=val(i$):ifp=0thenp=1
  30. 300 print"[193]lign printer paper and hit return"
  31. 310 geta$:ifa$<>chr$(13)then310
  32. 320 print"[208]ress  [211] [146] to stop or  [208] [146] to pause":print"during printing"
  33. 330 open4,4,ps
  34. 340 ifn%(0)=0thenprint"[208]rint table of contents?  [146][157]";:gosub720:ify=0then420
  35. 350 open2,dv,2,f$(0):input#15,e:ife>19then420
  36. 360 print:print"[208]rinting "f$(0);:l=0
  37. 370 poke781,2:sysml+60:f=st:print#4,"        "s$;:l=l+1
  38. 380 ifl=pgthenfori=pg+1toph:print#4:next:l=0
  39. 390 geta$:ifa$="p"thenwait198,1:geta$
  40. 400 iff=0anda$<>"s"then370
  41. 410 fori=l+1toph:print#4:next:ifa$="s"then500
  42. 420 close2:l=0:p=1:fork=1to8:ifm%(k)=0orn%(k)=0then510
  43. 430 open2,dv,2,f$(k):input#15,e:ife>19then510
  44. 440 print:print"[208]rinting "f$(k);
  45. 450 poke781,2:sysml+60:f=st:print#4,"     "s$;:l=l+1
  46. 460 ifl=pgthengosub690
  47. 470 geta$:ifa$="p"thenwait198,1:geta$
  48. 480 ifa$="s"thenk=8:f=1
  49. 490 iff=0then450
  50. 500 close2:ifl>3thengosub690
  51. 510 next:ifm%(9)=0then620
  52. 520 print"[208]rint memory map?  [146][157]";:gosub720:ify=0then620
  53. 530 p$="[206]ovaterm 9.5 memory map                                       [208]age":p=1
  54. 540 open2,dv,2,f$(9):input#15,e:ife>19then610
  55. 550 print:print"[208]rinting "f$(9);
  56. 560 poke781,2:sysml+60:f=st:print#4,"     "s$;:l=l+1
  57. 570 ifl=pgthengosub690
  58. 580 geta$:ifa$="p"thenwait198,1:geta$
  59. 590 ifa$="s"theni=8:f=1
  60. 600 iff=0then560
  61. 610 close2
  62. 620 print:print"[196]one - [212]ry again?  [146][157]";:gosub720:ifythen300
  63. 630 print"[201]nsert [206]ovaterm disk and hit return"
  64. 640 geta$:ifa$<>chr$(13)then640
  65. 650 open2,dv,0,"prog menu":input#15,e:close2:ife>19then670
  66. 660 load"prog menu",dv
  67. 670 open2,dv,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
  68. 680 print"[147]":load"novaterm ?.?*",dv
  69. 690 fori=l+1toph:print#4:next:p=p+1:print#4,"     "p$p:print#4,"     "u$:print#4
  70. 700 l=3:return
  71. 710 open9,3:poke780,3:sysml+39:close9:return
  72. 720 geta$:ifa$<>"y"anda$<>"n"then720
  73. 730 ifa$="n"thenprint"no":y=0:return
  74. 740 print"yes":y=1:return
  75.