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