home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / graph paper make (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  3.6 KB  |  109 lines
  1. 5 poke53280,.:poke53281,.
  2. 10 print"[147]";:gosub 60000
  3. 15 gosub 61095
  4. 20 print" [200]ow [205]any [211]quares [193]cross? (max=39):";:gosub 62000:x=val(b$)
  5. 25 if x<5 then 20
  6. 30 if x>39 then 20
  7. 40 print"[156] [200]ow [205]any [211]quares [196]own? :";:gosub 62000:y=val(b$)
  8. 45 ify<5 then 40
  9. 50 c1$="[165]":c2$=chr$(8):c3$=chr$(15):m=40-x
  10. 51 print"[147]":gosub 61095:gosub61185
  11. 52 geta$:ifa$=""then53
  12. 53 ifa$=" "then 61500
  13. 54 ifa$<>chr$(13) then52
  14. 55 open15,4,15:close15:ifst<>0 then 61000
  15. 60 open4,4:print#4:print#4,spc(m);
  16. 70 for row=1 to y : for col=1 to x
  17. 80 print#4,"[207][183]";:next
  18. 90 print#4,c1$;c2$:print#4,c3$;spc(m);
  19. 100 for j=1 to x : print#4,c1$;" ";:next
  20. 105 gete$:ife$=" "then 130
  21. 110 print#4,c1$;c2$:print#4,c3$;spc(m);:next
  22. 120 for j=1 to x*2 : print#4,"[163]";:next
  23. 130 print#4:close4
  24. 140 print"        [196]o [217]ou [215]ish [193]nother [199]raph?"
  25. 141 print"             [217])es [207]r [206])o       "
  26. 142 geta$:ifa$=""then 142
  27. 143 ifa$="y"ora$="[217]"then 15
  28. 144 ifa$="n"ora$="[206]"then 61500
  29. 145 goto 142
  30. 150 end
  31. 60000 rem
  32. 60030 print"[147][154][146][176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]";
  33. 60040 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  34. 60050 print"[171]{$7b}{$7b}{$7b}[150]                                [154][146]{$7b}{$7b}{$7b}[179]";
  35. 60060 print"[171]{$7b}{$7b}{$7b}[150]        L O A D S T[160]A[160]R         [146]{$7b}[154]{$7b}{$7b}[179]";
  36. 60070 print"[171]{$7b}{$7b}{$7b}[150]                                [146]{$7b}[154]{$7b}{$7b}[179]";
  37. 60080 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[154]{$7b}{$7b}[179]";
  38. 60090 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  39. 60100 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[129]                          [154][146]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  40. 60110 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[129]     Proudly Presents     [146]{$7b}[154]{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  41. 60120 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[129]                          [146]{$7b}[154]{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  42. 60130 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[154]{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  43. 60140 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  44. 60150 print"[171]{$7b}{$7b}{$7b}{$7b}[158]                              [154][146]{$7b}{$7b}{$7b}{$7b}[179]";
  45. 60160 print"[171]{$7b}{$7b}{$7b}{$7b}[158]    The Graph Paper Maker     [146]{$7b}[154]{$7b}{$7b}{$7b}[179]";
  46. 60170 print"[171]{$7b}{$7b}{$7b}{$7b}[158]    [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]     [146]{$7b}[154]{$7b}{$7b}{$7b}[179]";
  47. 60180 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[154]{$7b}{$7b}{$7b}[179]";
  48. 60190 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  49. 60200 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}                         [154][146]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  50. 60210 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b} By Joseph R. Charnetski [146]{$7b}[154]{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  51. 60220 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}                         [146]{$7b}[154]{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  52. 60230 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[154]{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  53. 60240 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  54. 60250 print"[171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b} Copyright 1987 [146]{$7b}[154]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]";
  55. 60260 print"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][154][177][177][177][177][177][177][177][177][177][189]";
  56. 60270 print"               PRESS SPACE";
  57. 60280 print"";
  58. 60300 geta$:ifa$=""then60300
  59. 60310 ifa$=" "then return
  60. 60330 goto 60300
  61. 60350 return
  62. 61000 print""
  63. 61010 print"[158]                   "
  64. 61015 print"      [208][210][201][206][212][197][210]      "
  65. 61020 print"        [206][207][212]        "
  66. 61025 print"     [196][197][212][197][195][212][197][196]      "
  67. 61030 print"                   "
  68. 61040 print"    [212]ry [193]gain ?    "
  69. 61045 print"                   "
  70. 61050 print"    [217])es [207]r [206])o    "
  71. 61055 print"                   "
  72. 61060 geta$:ifa$=""then61060
  73. 61070 ifa$="[217]"ora$="y" then 51
  74. 61080 ifa$="n"ora$="[206]"then 61500
  75. 61085 goto 61060
  76. 61095 print"[147]"
  77. 61105 print"  [176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  78. 61115 print"  [171]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]"
  79. 61125 print"  [171]{$7b}[154]                               [146]{$7b}[179]"
  80. 61135 print"  [171]{$7b}[154]     The Graph Paper Maker     [152][146]{$7b}[179]"
  81. 61145 print"  [171]{$7b}[154]     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]     [152][146]{$7b}[179]"
  82. 61155 print"  [171]{$7b}{$7b}[152]{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}{$7b}[179]"
  83. 61165 print"  [173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  84. 61175 print:return
  85. 61185 print"  Press (RETURN) When Ready To Print"
  86. 61195 print
  87. 61205 print"       [150]Press (SPACE) To Abort."
  88. 61215 print:return
  89. 61500 print""
  90. 61505 print"[154]                         "
  91. 61506 print"   [209][213][201][212] : [193]re [217]ou [211]ure?  "
  92. 61507 print"   [163][163][163][163]   [217])es [207][210] [206])o    "
  93. 61510 print"                         "
  94. 61512 geta$:ifa$=""then61512
  95. 61513 ifa$="[217]"ora$="y"then 61520        "
  96. 61518 [139]a$[178]"n"[176]a$[178]"(NULL)" [167] 51          "
  97. 61519 goto 61512
  98. 61520 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  99. 61530 if er<>63 then print"[147]":end
  100. 61535 load"hello connect",8
  101. 62000 l=1:b$="":print"[164]";
  102. 62005 geta$:ifa$=""then62005
  103. 62010 ifa$=chr$(20) and l=1 then 62005
  104. 62015 ifa$=chr$(20) then l=l-1:b$=left$(b$,l-1):print"[157][157]  [157][157][164]";:goto 62005
  105. 62020 ifa$=chr$(13) then print"[157] ":return
  106. 62025 ifa$<"0"ora$>"9"then 62005
  107. 62030 ifl>5 then 62005
  108. 62035 b$=b$+a$:print"[157]"a$;:poke212,.:print"[164]";:l=l+1:goto62005
  109.