home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / envelope (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  92 lines
  1. 10 gosub60100:clr:poke53280,.:poke53281,.:cu=25:mm=-1
  2. 15 print"[147][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][164][164][164][164][164][164]";
  3. 16 print"[165]"spc(38)"[167]";
  4. 20 print"[165]               [154][197]nvelope               [167]";
  5. 25 print"[165][154]           by [205]aebyn [205]iles            [167]";
  6. 26 print"[165]"spc(38)"[167]";
  7. 28 print"[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][163][163][163][163][163][163]";
  8. 30 print"[210]eturn [193]ddress: [153]"
  9. 35 fora=1to3:printtab(16)ra$(a):next
  10. 40 print"[205]ailing [193]ddress: [153]"
  11. 45 fora=1to3:printtab(16)ma$(a):next:print:print:ifmmthen300
  12. 50 print"[154][208]ress: [195][154]hange [193]ddresses"
  13. 55 print"       [208][154]rint [205]ailing and [210]eturn [193]ddress"
  14. 60 print"       [197][154]xit program":poke198,.
  15. 65 a=peek(203):ifa=20then300
  16. 70 ifa=41then85
  17. 75 ifa=14thengosub60000:goto50
  18. 80 goto65
  19. 85 open15,4,15:close15:ifst=.then140
  20. 90 print"";
  21. 95 fora=1to4:print"                                       ":next
  22. 100 print"[145][145][145]       [197]rror: [208]rinter [206]ot [207]nline!"
  23. 110 fora=1to2000:next:print"[145]                                       "
  24. 120 print"";:goto50
  25. 140 print"";
  26. 145 fora=1to4:print"                                       ":next
  27. 150 print"[145][145][154][215]hat size envelope?   [204][154]etter (small)"
  28. 152 print"                      [194][154]usiness (big)":poke198,.
  29. 154 a=peek(203):ifa<>42anda<>28then154
  30. 160 cu=25:ifa=28thencu=40
  31. 175 print"";
  32. 180 fora=1to4:print"                                       ":next
  33. 185 print"[145][145][145]       [159][208]rinting ... [208]lease [215]ait."
  34. 190 open4,4,7:print#4,chr$(27)"i"chr$(.)
  35. 195 fora=1to4:print#4,ra$(a):next
  36. 200 print#4
  37. 210 print#4
  38. 220 fora=1to3:forb=1tocu:print#4," ";:next
  39. 240 print#4,ma$(a):next
  40. 280 print#4:close4
  41. 292 print"[145]                                       "
  42. 294 print"";:goto50
  43. 300 print"";
  44. 301 fora=1to3:print"                                       ":next
  45. 302 print"[145][145][159]       [197]nter [217]our [210]eturn [193]ddress"
  46. 305 print"[159]":poke198,.
  47. 310 fornu=1to3:a$=ra$(nu):ll=len(a$)+1
  48. 315 printra$(nu);:gosub60500:ra$(nu)=a$:next
  49. 320 print"":poke198,.
  50. 325 print"[159]       [197]nter the [205]ailing [193]ddress[145][145][145][145][145][145][145]"
  51. 330 fornu=1to3:a$=ma$(nu):ll=len(a$)+1
  52. 335 printma$(nu);:gosub60500:ma$(nu)=a$:next
  53. 340 print:print:goto50
  54. 350 open15,4,15:close15:ifst=.then
  55. 60000 print"";
  56. 60010 fora=1to4:print"                                       ":next
  57. 60020 print"[145][145][145]  [154][193]re you sure you want to exit? ([217][154]/[206][154])"
  58. 60030 a=peek(203):ifa<>25anda<>39then60030
  59. 60040 ifa=25then60070
  60. 60050 print"[145]                                      "
  61. 60060 print"";:return
  62. 60070 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  63. 60080 poke198,.:ifer<>63thenend
  64. 60090 load"hello connect",8
  65. 60100 poke53280,8:poke53281,8
  66. 60110 print"[147][144][176][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][174]";
  67. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  68. 60130 print"[173][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][189][157][148][192]";
  69. 60140 fora=217to242:pokea,peek(a)or128:next
  70. 60150 print"          [204][207][193][196][211][212][193][210] [208]resents:"
  71. 60160 print"         [158]                   "
  72. 60170 print"         [158]     [197]nvelope      [149] "
  73. 60180 print"         [158]                   [149] "
  74. 60190 print"         [158]  by [205]aebyn [205]iles  [149] "
  75. 60200 print"         [158]                   [149] "
  76. 60210 print"         [158]  ([195])opyright 1987 [149] "
  77. 60220 print"         [158]                   [149] "
  78. 60230 print"          [149]                  [149] "
  79. 60240 print"        [208]ress [211][208][193][195][197] to continue.":poke198,.
  80. 60250 geta$:ifa$<>" "then60250
  81. 60260 return
  82. 60500 print"[164]";:poke198,.:fora=llto36
  83. 60510 getb$:ifb$=""then60510
  84. 60520 ifb$=chr$(13)then60590
  85. 60530 ifb$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:a$=left$(a$,a-1):goto60510
  86. 60540 ifa=36then60510
  87. 60550 ifb$>=" "andb$<="z"then60580
  88. 60560 ifb$>="[193]"andb$<="[218]"then60580
  89. 60570 goto60510
  90. 60580 print"[157]"b$;:poke212,.:print"[164]";:a$=a$+b$:next
  91. 60590 print"[157] ":return
  92.