home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / reader (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  85 lines
  1. 10 a$="":dima$(666):gosub100:hd$="":print"[147][159]"
  2. 20 rv=0:bx=0:ex=40:by=0:bd=19:bc=7:gosub130:gosub450:poke53281,0:poke53280,0
  3. 30 bx=1:ex=39:by=21:bd=1:bc=3:gosub130
  4. 40 ln$="                                      ":x$=chr$(13):cu=3
  5. 50 ms$="loading routines...":gosub190
  6. 60 sys57812"input any.o",8,0:poke780,0:poke781,60:poke782,3:sys65493
  7. 70 fi$="super snapshot":ifpeek(787)=1thenfi$="survival guide":poke787,0
  8. 80 goto210
  9. 90 rem*******generate variables**********
  10. 100 ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  11. 110 a$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":fori=1to6:bd$=bd$+a$:next:return
  12. 120 rem*********print box*************
  13. 130 oc=peek(646):poke646,bc:rv$="":ifrvthenrv$=""
  14. 140 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
  15. 150 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]"
  16. 160 poke211,bx:poke214,by+1:sys58732:printrv$left$(bd$,bd*3)"":poke646,oc
  17. 170 rv=0:return
  18. 180 rem****print message****
  19. 190 gosub200:print"[158]"left$(hd$,23)spc(20-len(ms$)/2)ms$"[159]":return
  20. 200 printleft$(hd$,23)""left$(ln$,36):return
  21. 210 ms$="[204][207][193][196][201][206][199] [212][197][216][212]...":gosub190:l=1:open2,8,2,fi$+",p,r":get#2,a$,a$
  22. 220 iflthensys828,2,40:h=h+1:i=st:ifa$=""thena$=" "
  23. 230 a$(h)=a$:ifh=19thengosub360
  24. 240 a$(h)=a$:ifh=39thenms$="[217]ou can page now. (still loading)":gosub190
  25. 250 ifpeek(197)=64andst=0then220
  26. 260 ifpeek(197)=7thenifpeek(653)=0thengosub470
  27. 270 ifpeek(197)=41thenifl=0thengosub530
  28. 280 ifpeek(197)=20thengosub790:gosub380
  29. 290 ifpeek(197)=62thengosub650
  30. 300 ifpeek(197)=51thenpa=0:gosub370
  31. 310 ifpeek(197)=12thenifpeek(653)=4thenpa=19*int(h/19):gosub500
  32. 320 ifpeek(197)=7thenifpeek(653)=1thengosub500
  33. 330 iflthenifst=0thengoto220
  34. 340 iflthenclose2:gosub720:gosub700:l=0
  35. 350 goto260
  36. 360 rem**display text***
  37. 370 ford=0to10:poke214,d:print:print""ln$:poke214,18-d:print:print""ln$:next
  38. 380 poke646,cu:poke214,9:print:print""a$(10+pa):ford=1to9:poke214,9-d:print
  39. 390 print""a$(10-d+pa):poke214,9+d:print:print""a$(10+d+pa):next
  40. 400 printhd$ln$hd$spc(14+l*3)"[155][208]age[158]"int(1+pa/19);
  41. 410 ifl=0thenprint"[155]of[158]"lp"[159]"
  42. 420 iflthenprint"[159]"
  43. 430 return
  44. 440 remclear line links
  45. 450 fori=217to242:pokei,peek(i)or128:next:return
  46. 460 rem page
  47. 470 ifh<pa+38theniflthenreturn
  48. 475 ifint(1+pa/19)=lpthenreturn
  49. 480 ifh<pa+19thenreturn
  50. 490 pa=pa+19:gosub360:return
  51. 500 ifpa-19<0thenreturn
  52. 510 pa=pa-19:gosub360:return
  53. 520 rem***print***
  54. 530 close15:close4:open15,4,8:close15:ifstthenpoke53281,1:poke53281,0:return
  55. 540 ms$="[211]ingle sheet or [212]ractor? ([211]/[212]/^)":gosub190
  56. 550 geta$:ifa$<>"s"anda$<>"t"anda$<>"^"then550
  57. 560 ifa$="^"thengosub700:return
  58. 570 t=1:ifa$="s"thent=0
  59. 580 ms$="[211]et top of form/[159][210]eturn/[158]^":gosub190:poke198,0:wait198,1:geta$
  60. 584 ifa$="^"then560
  61. 585 gosub640
  62. 590 open4,4,7:ii=4:print#4,x$x$x$x$:fori=1toh
  63. 600 print#4,a$(i)spc(40-len(a$(i)))a$(i+55):ii=ii+1:ifii<55then630
  64. 610 ii=0:print#4,x$x$x$x$x$x$x$x$x$x$:i=i+55:iftthen630
  65. 620 ms$="[206]ext sheet/[159][210][197][212][213][210][206]/[158]^":gosub190:poke198,0:wait198,1:geta$
  66. 625 ifa$="^"theni=1000:next:close4:goto560
  67. 630 gosub640:next:gosub700:return
  68. 640 ms$="[208]rinting...":gosub190:return
  69. 650 ms$="[209]uit?  [193]re you sure?  ([217]/[206])":gosub190:poke198,0
  70. 660 geta$:ifa$<>"y"anda$<>"n"then660
  71. 670 ifa$<>"y"thengosub200:gosub700:return
  72. 680 goto740
  73. 690 rem*** menu ****
  74. 700 printleft$(hd$,23)""left$(ln$,36)"[145]"
  75. 710 print"[158][195][210][211][210]-[213][208]/[196][206][146][159] to page  [158][209][146][159] [209]uit [158][208][146][159] [208]rint":return
  76. 720 lp=h/19:iflp>int(lp)thenlp=int(lp)+1:return
  77. 730 return
  78. 740 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  79. 750 if er<>63 then print"[147]":end
  80. 760 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  81. 770 print"[158]load"q$a$q$",8"
  82. 780 print"run":poke631,13:poke632,13:poke198,2:end
  83. 790 cu=cu+1:ifcu=16thencu=1
  84. 800 poke646,cu:return
  85.