home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 16 / 016.d81 / hello (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  116 lines
  1. 1 rem hello
  2. 5 ifpeek(51201)<>12orpeek(51202)<>200orpeek(52222)<>5then7
  3. 6 goto10
  4. 7 load"routines v4",8,1
  5. 10 v=53248:s=v+1024:sys52176:              poke56,160:poke57,0
  6. 15 dv=peek(186):ifdv<8thendv=8
  7. 20 print"[147]":forx=stos+24:pokex,0:next
  8. 21 forx=1024to1034:reada:pokex+54272,peek(53281)and15:pokex,a:next
  9. 22 data169,228,141,8,3,169,167,141,9,3,96
  10. 23 sys1024 :rem  __ wedge deactivator
  11. 25 q$="'"
  12. 30 open8,8,8,"#":open15,8,15,"ua:8 0 18 0":print#15,"b-p:8 154"
  13. 40 get#8,n1$,n2$,a$,a$,a$,s$,a$,a$,i1$:close8:close15
  14. 45 ifi1$<>"\"thenpoke65533,.:poke65534,.:pokev+32,.:goto60
  15. 50 poke65533,val(n1$+n2$):poke65534,val(s$)
  16. 60 cd$="":si=usr(65534)
  17. 80 bs$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  18. 90 sp$="                                       [160]"
  19. 120 dimix$(22,1),ix(22,1),c%(4):fori=1to4:readc%(i):next
  20. 121 data2,5,6,7
  21. 150 pokev+33,1:pokev+32,c%(si)
  22. 160 readin$:tt$="[204][207][193][196][211][212][193][210][160][206]umber "+in$
  23. 170 print"[144]";sp$;"";tab(19-len(tt$)/2);tt$:print""
  24. 190 forco=1to22
  25. 192 forc1=.to1
  26. 194 readix$(co,c1),ix(co,c1)
  27. 196 ifix$(co,.)="!"thencx=co-1:co=22:c1=3
  28. 198 nextc1
  29. 200 nextco
  30. 210 print"[150]";
  31. 230 forco=1tocx
  32. 240 poke646,c%(ix(co,.))
  33. 250 ifsi=ix(co,.)thenprint"";
  34. 251 ifix(co,.)<>ix(co-1,.)thenprint"[211]ide"ix(co,.)"[146] ";:goto290
  35. 252 print"      [146]  ";
  36. 290 printchr$(co+96)"[160]= "ix$(co,.);
  37. 292 printspc(22-len(ix$(co,.)));
  38. 295 ifsi=ix(co,.)thenprint"";
  39. 300 ifix(co,.)<>ix(co-1,.)thenprint"[211]ide"ix(co,.)"[146][157]";:goto310
  40. 304 print"      [146]";
  41. 310 next
  42. 320 printleft$(cd$,25)"[144][215]hich "spc(24)"[216][146] to exit";bs$;
  43. 329 k$="?"
  44. 330 ks$=k$:b$="[157]":sp$(0)=""+k$+"[146]":sp$(1)="[146]"+k$+"[146]":printsp$(sp+1);b$;:sp=notsp
  45. 331 getk$:forzd=1to222:next:ifk$<" "ork$>"z"thenk$=ks$:goto330
  46. 340 ifk$="x"then19000
  47. 350 ifk$<"a"then330
  48. 355 ifk$>chr$(cx+64)then330
  49. 360 printchr$(asc(k$)or32);"[157]";
  50. 380 k=asc(k$)and31
  51. 390 ifk<=cxthen30000
  52. 400 goto330
  53. 9999 end
  54. 10000 d=peek(186):n$="hello":open15,d,15,"s0:"+n$:close15:saven$,d:end
  55. 11000 data16
  56. 12000 data"[208]ixel [208]age",1,pixel page,
  57. 12001 data"[195]ontents [205]ap",1,contents map,
  58. 12002 data"[197][193][211][217][195][207][208][217]",1,copy.boot,1
  59. 12004 data"[208]ayload [208]rograms",1,payload,2
  60. 12005 data"[195]ommodore [208]rograms",1,payload,1
  61. 12008 data"[208]aperless [208]ages",2,presenter,1
  62. 12009 data"[201]nflux",2,presenter,2
  63. 12010 data"[205]ath [210]eflections",2,presenter,3
  64. 12035 data"[207]rder [198]orm",2,presenter,4
  65. 12040 data"[198]eedback [196]isk [205]aker",2,f.b maker.1,
  66. 15999 data!,,!,
  67. 18000 return
  68. 19000 print"[147][144]   [204][207][193][196][211][212][193][210][160]is not public domain."
  69. 19005 print"   [204][207][193][196][211][212][193][210][160]is unprotected for your"
  70. 19010 printtab(28);"convenience.":print"[215]e want you to be able";
  71. 19015 print" to copy, modify, and learn from the";
  72. 19017 print" programs on [204][207][193][196][211][212][193][210].":print:print"[208]lease respect this policy:"
  73. 19020 print:print"[196]o not allow unauthorized copies":printtab(29)"to be made."
  74. 19022 print:print"([211]chools may make a copy for each [195]-64.)"
  75. 19025 print:print"[212]ype [210][213][206] then press <[210][197][212][213][210][206]> to return  to [204][207][193][196][211][212][193][210]."
  76. 20000 end
  77. 23000 poke646,c%(val(s$)):print"[147][212]he diskette currently in your drive is"
  78. 23010 ifi1$<>"\"thenprint"     not a regular [204][207][193][196][211][212][193][210] issue.":goto24000
  79. 23020 print"         side "s$" of [204][207][193][196][211][212][193][210][160]"mid$(str$(val(n1$+n2$)),2)"."
  80. 24000 poke646,c%(ix(k,.)):print""tab(17-len(ix$(k,.))/2);q$;ix$(k,.);q$;" is on"
  81. 24010 print"         side"ix(k,.)"of [204][207][193][196][211][212][193][210] "in$"."
  82. 24020 print"[144]        [201]nsert that side, please"
  83. 24030 printspc(19)"&"
  84. 24040 printspc(12)"press space bar"
  85. 24050 print"   or press [210][197][212][213][210][206][146][160]to return to menu"
  86. 24055 print:print"  ([201] suggest you turn the disk over.)
  87. 24060 [151]198,.:[146]198,1:[161]k$:[139]k$[179][177]" "[167][141]63002:[141]63000:[138]
  88. 24080 [153]
  89. 30000 [143]     read side indicator
  90. 30002 [141]63000:[141]63002
  91. 30003 [137]31000
  92. 30004 [159]8,8,8,"#":[159]15,8,15,"ua:8 0 18 0":[152]15,"b-p:8 154"
  93. 30005 [161]#8,n1$,n2$,a$,a$,a$,s$,a$,a$,i1$,i2$:[160]8:[160]15
  94. 30010 [151]646,c%(ix(k,.)):[151]v[170]32,c%([197](s$))
  95. 30020 [139][197](s$)[179][177]ix(k,.)[167] 23000
  96. 30025 [151]65535,10[172][197](s$)[170]ix(k,1)
  97. 30030 [139]ix$(k,1)[178]"presenter"[175][194](597)[179][177]0[167][151]6400,0:[151]44,25:[138]
  98. 31000 ix$[178]"side"[170][196](ix(k,.)):[159]15,dv,15,"i0":[160]15
  99. 31005 [159]15,dv,15,"r0:"[170]ix$[170]"="[170]ix$:[132]15,en:[160]15
  100. 31010 [139]en[178]62[167][153]"load":[137]24000
  101. 31015 [151]65535,10[172]ix(k,.)[170]ix(k,1)
  102. 31020 [137]40000
  103. 40000 [151]53281,.:[153]"load(NULL)aunching "ix$(k,.);"stop";
  104. 40010 [151]599,0
  105. 40015 [129]i[178]0[164]23:[151]s[170]i,0:[130]
  106. 40016 [151]198,0:[151]631,13:[151]632,13
  107. 40017 [139] ix$(k,1)[179][177]"presenter"[167][151]597,0:[137]40030
  108. 40020 [153]"stopl(NULL)"[199](34)ix$(k,1)[199](34)",8":[153]"run"
  109. 40025 [151]6400,0:[151]44,25:[151]198,2:[128]
  110. 40030 [153]"load"[199](34);ix$(k,1);[199](34)",8":[153]"run"
  111. 40040 [151]631,13:[151]632,13:[151]198,2:[151]65535,10[172]ix(k,.)[170]ix(k,1):[128]
  112. 63000 [129]i[178].[164]24:[151]s[170]i,.:[130]:[151]s[170]1,100:[151]s[170]2,100:[151]s[170]5,10:[151]s[170]6,2
  113. 63001 [151]s[170]24,15:[151]s[170]4,33:[129]dl[178]1[164]600:[130]:[151]2[170]4,32:[142]
  114. 63002 [129]i[178]0[164]24:[151]s[170]i,0:[130]:[151]s[170]1,40:[151]s[170]2,40:[151]s[170]5,10:[151]s[170]6,2
  115. 63003 [151]s[170]24,15:[151]s[170]4,33:[129]dl[178]1[164]600:[130]:[151]s[170]4,32:[142]
  116.