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