home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / hello (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  3.1 KB  |  99 lines
  1. 1 rem hello
  2. 5 ifpeek(49152)<>120orpeek(51200)<>76orpeek(52016)<>32orpeek(52080)<>173then7
  3. 6 ifpeek(52176)=169then8
  4. 7 load"routines",8,1
  5. 8 v=53248:s=v+1024
  6. 10 v=53248:s=v+1024:sys52176
  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. 11000 data1
  52. 12000 data "[195]over [208]age",1,cover page,
  53. 12010 data "[208]aperless [208]ages",1,presenter,1
  54. 12015 data"[201]nflux",1,presenter,2
  55. 12040 data"[208]ayload [208]rograms",2,payload,
  56. 15999 data!,,!,
  57. 18000 return
  58. 19000 print"[147][144]   [204][207][193][196][211][212][193][210][160]is unprotected for your"
  59. 19010 printtab(28);"convenience.":print"[215]e want you to be able";
  60. 19015 print" to copy, modify, and learn from the";
  61. 19017 print" programs on [204][207][193][196][211][212][193][210].":print:print"[208]lease respect this policy:"
  62. 19020 print:print"[196]o not allow unauthorized copies":printtab(29)"to be made."
  63. 19022 print:print"([211]chools may make a copy for each [195]-64.)"
  64. 20000 end
  65. 23000 poke646,c%(val(s$)):print"[147][212]he diskette currently in your drive is"
  66. 23010 ifi1$<>"\"thenprint"     not a regular [204][207][193][196][211][212][193][210] issue.":goto24000
  67. 23020 print"         side "s$" of [204][207][193][196][211][212][193][210][160]"mid$(str$(val(n1$+n2$)),2)"."
  68. 24000 poke646,c%(ix(k,.)):print""tab(17-len(ix$(k,.))/2);q$;ix$(k,.);q$;" is on"
  69. 24010 print"         side"ix(k,.)"of [204][207][193][196][211][212][193][210] "in$"."
  70. 24020 print"[144]        [201]nsert that side, please"
  71. 24030 printspc(19)"&"
  72. 24040 printspc(12)"press space bar"
  73. 24050 print"   or press [210][197][212][213][210][206][146][160]to return to menu"
  74. 24055 print:print"  ([201] suggest you turn the disk over.)
  75. 24060 [151]198,.:[146]198,1:[161]k$:[139]k$[179][177]" "[167][141]63002:[141]63000:[138]
  76. 24080 [153]
  77. 30000 [143]     read side indicator
  78. 30001 [137]31000
  79. 30002 [141]63000:[141]63002
  80. 30004 [159]8,8,8,"#":[159]15,8,15,"ua:8 0 18 0":[152]15,"b-p:8 154"
  81. 30005 [161]#8,n1$,n2$,a$,a$,a$,s$,a$,a$,i1$,i2$:[160]8:[160]15
  82. 30010 [151]646,c%(ix(k,.)):[151]v[170]32,c%([197](s$))
  83. 30020 [139][197](s$)[179][177]ix(k,.)[167] 23000
  84. 31000 ix$[178]"ls001"[170][196](ix(k,.))
  85. 31002 dv[178][194](186):[139]dv[179]8[167]dv[178]8
  86. 31004 [159]15,dv,15,"i0":[160]15
  87. 31006 [159]15,dv,15,"r0:"[170]ix$[170]"="[170]ix$
  88. 31008 [132]15,n1:[160]15
  89. 31010 [139]n1[178]62[167]23000
  90. 40000 [151]53281,.:[153]"load(NULL)aunching "ix$(k,.);"stop";
  91. 40015 [129]i[178]0[164]23:[151]s[170]i,0:[130]
  92. 40030 [153]"load"[199](34);ix$(k,1);[199](34)",8":[153]"run"
  93. 40040 [151]631,13:[151]632,13:[151]198,2:[151]65535,10[172][197](s$)[170]ix(k,1):[128]
  94. 60000 d[178][194](186):n$[178]"hello":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  95. 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
  96. 63001 [151]s[170]24,15:[151]s[170]4,33:[129]dl[178]1[164]600:[130]:[151]2[170]4,32:[142]
  97. 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
  98. 63003 [151]s[170]24,15:[151]s[170]4,33:[129]dl[178]1[164]600:[130]:[151]s[170]4,32:[142]
  99.