home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_022_19xx_-_de_Disk_4_of_4_Side_B.d64 / hawaii.pet (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  161 lines
  1. 1 rem hawaii! copyright (c) 1979 ken mprley
  2. 2 rem 6440 dumfries st.
  3. 3 rem vancouver, b c  canada
  4. 4 :
  5. 5 rem cursor #15, nov/dec 1979
  6. 6 rem box 550, goleta, ca. 93017
  7. 7 rem lines 61000-65000 (c) 1979 cursor magazine
  8. 8 :
  9. 10 rem as of 12/29/79
  10. 90 pg$="hawaii!":nm$="15":gosub62000
  11. 100 goto160
  12. 110 print"[147]":pokespd,peek(spd)or32:gosub960
  13. 120 b$=" [164][175][185][162][146][184][183][163]"
  14. 130 forj=31to0step-8:fori=1toj:print" ";:next:printb$:next:printright$(b$,9)
  15. 140 print""tab(17)t$;:return
  16. 150 fork=1toxx:next:return
  17. 160 spd=59458
  18. 170 t$="[169]  [223][146]  [169] [223][157][157][157][157][157][157][157][157][157][157]"
  19. 180 t$=t$+"[169] [206][163][205][223][169][206][163][205][223][157][157][157][157][157][157][157][157][157][157][157][157]"
  20. 190 t$=t$+"[169][206][206][206][205][205][205][206][206][205][205][205][223][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  21. 200 t$=t$+"[146][169][169][146][169][206][163][209][209][209][163][205][146][223][223][146][223][157][157][157][157][157][157][157][157][157][157][157]"
  22. 210 t$=t$+"[169][146][169][169][206][209][205][223][146][223][223][157][157][157][157][157][157][157][157][157][157][157]"
  23. 220 t$=t$+"[146]  [169] [169][169][214][223][223] [223][157][157][157][157][157][214][157][214][157][214][157][214][157][214][157][214]"
  24. 230 print"[147]":gosub960
  25. 240 a$="          ":b$="[157][157][157][157][157][157][157][157][157][157][157][157]":e$=""
  26. 250 printe$;"";:z$="                                       "
  27. 260 fori=1to7:printz$;" ";:next:printz$;"[157][148] "
  28. 270 print""
  29. 280 printe$"[146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145][164][157][206]"
  30. 290 print"                   [169]"
  31. 300 print"[145][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][157][157][157][157][157][157][157][145][145][146]";:fori=1to14:print"[157][145][161]";:next:print"[157][145][181]";
  32. 310 print"[157][157][206][157][157]";
  33. 320 fori=1to10:print"[206]"left$(a$,i)left$(b$,i+3);:next:print"[183][184][184][184][184][184][184][184][184][184][184][184]";
  34. 330 print"[145][145][145][145][145][145][223][157][165][223][157][157][180] [223][157][157][157][161]  [223][157][157][157][157][146][170]   [223][157][157][157][157][157][146][167]    [223][157][157][157][157][157]     [223][157][157][157][157][157][157]";
  35. 340 print"[146][183][184][162][185][175][164][223]"
  36. 350 print"[204][157][145][180][157][145][181][146][184][184][183][183]**     [157][157][157][157][157]";
  37. 360 fori=1to1000:nexti
  38. 450 printe$"[145]"tab(13);
  39. 460 fori=1to5:print" *[157]";:xx=150:gosub150:next:xx=2000:gosub150:print" [145]*[157]";
  40. 470 xx=150:gosub150:fori=1to13:print"[161][157][145]*[157]";:gosub150:next:print"[181][157][145]*[157][157][157][157][157][157][157][157][157][157][157][157]";
  41. 480 xx=3000:gosub150:print"land ahoy!-[157][157][157][157][157][157][157][157][157][157][157]";:xx=1500:gosub150:print"           "
  42. 490 fori=1to1500:next
  43. 500 printe$""tab(28):print"[169]           [157][157][157][157][157][157][157][157][157][157][157][145][206][163]
  44. 510 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdon(NULL)tab(tab(      oncmdcmdcmdcmdcmdcmd(NULL)     cmdcmdcmdcmdcmdon(NULL)tab(tab(tab(tab(";
  45. 520 [153]"cmdcmdcmdcmdon";:[141]1010
  46. 530 xx[178]300:[141]150
  47. 540 [153]""[163]19)" cmd*";:xx[178]50:[141]150:[153]"cmdintcmd*";:[129]i[178]1[164]14:[141]150:[153]"cmdgetcmd*";
  48. 550 [130]:[141]150:[153]"cmdtab(cmd*";:[141]150:[153]"cmd cmd*";:[141]150:[153]"cmdvalcmd*";:[141]150:[153]"cmd cmd*";:[141]150:xx[178]100
  49. 560 [153]"cmd.";:[141]150:[153]"cmdv";:[141]150:[153]"cmdcmd(NULL) (NULL)";:[141]150:[153]"cmdcmdcmd   cmdcmd";:xx[178]1500:[141]150
  50. 570 [153]e$"cmdstep";:[129]i[178]1[164]17:xx[178]50:[141]150:[153]"cmd waitcmdcmdstep";:[130]
  51. 580 [153]e$"cmdstep";:[129]i[178]1[164]18:[141]150:[153]"cmd waitcmdcmdstep";:[130]
  52. 590 [153]e$"cmdstep";:[129]i[178]1[164]18:xx[178]50:[141]150:[153]"cmd waitcmdcmdstep";:[130]
  53. 600 xx[178]1000:[141]150:[153]"cmdcmdcmdon.cmd";:[141]150:[153]"*";
  54. 610 xx[178]500:[141]150:[129]i[178]1[164]4:[153]"waitcmd*";:xx[178]100:[141]150:[153]"cmd*";:[141]150:[130]
  55. 620 [129]i[178]1[164]9:xx[178]20:[141]150:[153]"cmd cmdcmd+";:[141]150:[153]"cmd cmdcmd*";:[130]:[141]150:[153]"cmd "
  56. 630 xx[178]250:[141]150:xx[178]30
  57. 640 [153][163]22)"on cmdcmdcmdwaitstep";:[141]150:[129]i[178]1[164]20:[141]150:[153]"cmd cmdcmdwaitstepon cmdcmdwaitstep cmdcmdwaitsteponcmd";:[130]
  58. 650 [153]"cmd on cmd ";:xx[178]1000:[141]150:[153]"cmdcmd*";:[129]i[178]1[164]39:xx[178]30:[141]150
  59. 660 [153]"cmd *";:[130]:[153]"cmd ":[153]"on(NULL)";:[141]150:[153]"cmd wait(NULL)cmdcmdon(NULL)cmd(NULL)";
  60. 670 [129]i[178]1[164]38:[141]150:[153]"on wait(NULL)cmdcmdcmdon wait(NULL)cmdcmd wait(NULL)";:[130]
  61. 680 [141]150:[153]"on cmdcmdon wait(NULL)cmdcmd wait(NULL)";:[141]150:[153]"cmd cmdonon "
  62. 690 [153]"onononcmd*";:[129]i[178]1[164]20:xx[178]30:[141]150:[153]"cmd cmdcmd*";:[130]
  63. 700 [141]150:[153]"cmd cmdcmdon*";:[141]150:[153]"cmdvalcmdcmdonwait*";:[141]150:[153]"cmd cmdcmdon*";:[141]150
  64. 710 [153]"cmdtab(cmdcmdon*";:xx[178]1000:[141]150:xx[178]150:[153]"cmdcmdcmdcmd *";:[141]150:[153]"cmd *";
  65. 720 [141]150:[153]"cmd ";:[141]150:[153]"*";:[141]150:[153]"cmd *";
  66. 730 [141]150:[153]"cmd *";:[141]150:[153]"cmd ";
  67. 740 [141]150:[153]"*";:[141]150:[153]"cmd cmdcmdcmdcmdcmdcmd *";:[141]150:[153]"cmd *";:[141]150
  68. 750 [153]"cmd *";:[141]150:[153]"cmd ";
  69. 760 [141]150:[153]"*";:[141]150:[153]"cmd ";:xx[178]500:[141]150:[153]"*";
  70. 770 xx[178]1000:[141]150:[153]"cmdtoon*";:xx[178]150:[141]150:[153]"cmd *cmdcmdcmd";:[141]150:[153]"*";
  71. 780 [141]150:[153]" on*";:[141]150:[153]"cmd *";:[141]150:[153]"cmdcmdcmdcmdcmdtoon*";:[141]150
  72. 790 [153]"cmd *";:[141]150:[153]"on *";:[141]150:[153]"cmdcmdcmdcmd on*";:[141]150:[153]"cmd *";:[141]150
  73. 800 xx[178]2000:[141]150
  74. 810 [129]i[178]1[164]2:[153]" on*";:xx[178]150:[141]150:[153]"cmd on*";:[141]150:[153]"cmd *";:[141]150
  75. 820 [153]"cmdthen*";:[141]150:[153]"cmd(NULL)*";:[141]150:[153]"cmd *";:[141]150:[153]"cmd ";
  76. 830 [139]i[178]1[167][153]"cmdcmdcmdcmdcmdcmdcmdcmd *cmd";:[141]150
  77. 840 [130]:xx[178]2000:[141]150
  78. 850 [141]110:[153]"cmdcmdcmdcmdcmdcmdcmdcmd(NULL)(NULL)tab((NULL)(NULL)tab((NULL)on(NULL)":[151]spd,[194](spd)[175]223:[141]150
  79. 860 [141]970:[141]150:[153]"cmd on*";:[141]150:[153]"cmd *";:[141]150:[153]"cmd *":[141]970:[141]150
  80. 870 [153]"cmd cmdon*";:[141]150:[153]"cmd cmdcmdon*";:[141]150:[153]"cmd cmdcmd*";:[141]150:[153]"cmd cmdcmd*";
  81. 880 [153]"onononononononon";:[129]j[178]1[164]3:xx[178]2000:[141]150:[141]980:[130]:[141]990
  82. 890 [153]"cmd cmdcmd(NULL)(NULL)";:[141]150
  83. 900 [153]"cmdcmd ";:xx[178]2000:[141]150:[153]"  cmdcmdcmdcmdtab((NULL)tab(cmdon(NULL)(NULL)";:[141]150:[153]"cmd cmdtab(cmdcmdonand(NULL)";
  84. 910 xx[178]150:[129]i[178]1[164]3:[141]150:[153]"cmd (NULL)";:[130]:xx[178]4000:[141]150:[153]"cmdcmdcmdcmdcmd*";:xx[178]1500
  85. 920 [141]150:[153]"onononononononononononcmd";:[141]980:[153]" cmd(NULL)cmd";:xx[178]50:[141]150:[141]990
  86. 930 [153]"cmd cmd(NULL)";:[141]150:[153]"cmd cmd(NULL)(NULL)";:[141]150:[153]"cmd ";
  87. 940 xx[178]2500:[141]150:xx[178]100:[153]:[129]i[178]1[164]4:[153]" cmdcmd(NULL)cmd";:[141]150:[130]:xx[178]1500:[141]150:[153]
  88. 950 [153][166]16)"onononononandcmdexp":xx[178]3000:[141]150:[137]1030
  89. 960 [129]i[178]1[164]15:[153][163][187](1)[172]39)".":[130]:[142]
  90. 970 [153]"*";:[129]i[178]1[164]18:xx[178]100:[141]150:[153]"cmd *";:[130]:[142]
  91. 980 [129]i[178]1[164]4:[153]"wait(NULL)cmd";:xx[178]50:[141]150:[153]"(NULL)cmd";:[141]150:[130]:[142]
  92. 990 [153]" waitcmd(NULL)";:[129]i[178]1[164]7:xx[178]50:[141]150:[153]"cmd(NULL)cmd(NULL)";:[130]:[141]150
  93. 1000 [142]
  94. 1010 [129]i[178]1[164]6:[153]"then(NULL)cmdcmdon";:[130]:[153]"cmdcmdcmdstep stepstep(NULL)(NULL)(NULL)cmdcmdcmdcmdcmdcmdcmdonstepwaitstepstep(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmdcmdcmdcmdcmdcmdonwaitstepstepwaitstep(NULL)tab((NULL)(NULL)(NULL)";
  95. 1020 [153]"tab(cmdcmdcmdcmdcmdcmdcmdcmdcmdonstep(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmdcmdcmdcmdcmdonstep (NULL)tab((NULL)(NULL)step(NULL)cmdcmdcmdcmdcmdcmdcmdonstep  (NULL)wait  step":[142]
  96. 1030 a$[178]"waitstep   (NULL)cmdcmdcmdcmdcmd stepstep(NULL)wait cmdcmdcmdcmdcmd tab(.tab(wait cmdcmdcmdcmdcmd (NULL)=waitstep cmdcmdcmdcmdcmdcmdstep  tab(wait  (NULL)cmdcmdcmdcmdcmdcmdcmd"
  97. 1040 a$[178]a$[170]"  step (NULL)(NULL)wait cmdcmdcmdcmdcmdcmdcmd(NULL)(NULL)   waitstep(NULL)cmdcmdcmdcmdcmdcmdcmd  (NULL)peekwaitstep  "
  98. 1050 a$[178]a$[170]"cmdcmdcmdcmdcmdcmdcmd(NULL)wait steptab((NULL)wait stepcmdcmdcmdcmdcmdcmdcmdthenthen  thenthencmdcmdcmdcmdcmdcmd"
  99. 1060 a$[178]a$[170]"(NULL)(NULL) . (NULL)(NULL)cmdcmdcmdcmdcmdcmdcmdcmdthenwaitstep(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)fncmdcmdcmdcmdcmdcmdcmdcmdwait(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmdcmdcmdcmd(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmdcmdcmdcmd"
  100. 1070 [153]"load"
  101. 1080 [129]i[178]0[164]17[169]17:[153]"":[141]1210:[153]""[166]15[173]17[172]i[170]10)a$:[130]
  102. 1090 [151]33107,160:[151]33186,160:[151]33346,160:[151]33386,160:[151]33427,160:[151]33467,160
  103. 1100 [151]spd,[194](spd)[175]223
  104. 1110 [129]i[178]1[164]1000:[130]
  105. 1120 [151]59467,16:[151]59466,51
  106. 1130 [129]i[178]75[164]35[169][171]1:[151]59464,i:[130]
  107. 1140 [151]59464,0:[129]i[178]1[164]100:[130]
  108. 1150 [129]i[178]75[164]50[169][171]1:[151]59464,i:[130]
  109. 1160 [129]i[178]50[164]98:[151]59464,i:[130]
  110. 1170 [151]59467,0
  111. 1180 [129]i[178]0[164]15[169]15:[153]""[166]11[170]i)"log.coscmdcmd(NULL)":[130]
  112. 1190 [129]i[178]1[164]1500:[130]:[141]110:[153]"cmdcmdcmdcmdcmdcmdcmdcmd(NULL)*cmd(NULL)tab((NULL)tab((NULL)(NULL)cmdtab(tab(on  (NULL)"
  113. 1200 [151]spd,[194](spd)[175]223:[153]"cmdcmdcmdcmd(NULL)";:[137]1390
  114. 1210 [153][166]9[170]i)"newnewnewnewrnd
  115. 1220 printspc(6+i)"[162]        [188][146][187]
  116. 1230 [153][166]4[170]i)"*            log
  117. 1240 printtab(3+i)"[190]               [146][187]
  118. 1250 [153][163]2[170]i)"*                log
  119. 1260 printtab(2+i)"                  [146][161]
  120. 1270 [153][163]1[170]i)"get                   "
  121. 1280 [153][163]1[170]i)"                    waitget
  122. 1290 printtab(1+i)"                    [146][161]
  123. 1300 [153][163]1[170]i)"str$lenlenstr$str$valtab(tab(     tab(tab(valstr$lenlenstr$waitget
  124. 1310 printtab(1+i)"[187]                   [146][190]
  125. 1320 [153][163]1[170]i)"log                  *
  126. 1330 printtab(2+i)"[187]                 [146][190]
  127. 1340 [153][163]3[170]i)"                waitget
  128. 1350 printtab(3+i)"[188][187]             [162]"
  129. 1360 printtab(5+i)"[162]          [172][146][190]"
  130. 1370 printtab(7+i)"[162][162]    [172][162][146][190]"
  131. 1380 return
  132. 1390 xx=1000:gosub150:clr:spd=59458:fori=1to3:print"[157] [211]";
  133. 1400 xx=150:gosub150:next:print"[157] ";:xx=1000:gosub150
  134. 1410 print"[145][145][145] *";
  135. 1420 xx=40:fori=1to2:gosub150:print"[157] *";:next:print"[157] *";:fori=1to20:gosub150:print"[157] *";:next:print"[157] "
  136. 1430 xx=1000:gosub150:printtab(21)"[145]*[157][145][209]";:gosub150:print"[157]*";:xx=100:gosub150:print"[157][146]*[157][145] [209]";
  137. 1440 gosub150:print"[157] [209]";:gosub150:print"[157] [209]";:fori=1to4:gosub150:print"[157] [209]";:next:print
  138. 1450 xx=30:printtab(21)"[145] *";:gosub150:print"[157] *";:fori=1to16:gosub150:print"[157] *";:next:print"[157] [157]";
  139. 1460 xx=3000:gosub150
  140. 1470 fori=1to39:print"[157]*";:xx=15:gosub150:print"[157] [157]";:next:xx=500:gosub150:xx=20
  141. 1480 print"[157][145][145]";:fori=1to21:print"[157]*";:gosub150:print"[157] [157]";:next
  142. 1490 print"[157][145]*";:gosub150:print"[157] [157][157]*";:gosub150:print"[157] [157][157]*";:gosub150:print"[157] [157][157][145]*";:gosub150:print"[157][163][157][157][145]*";
  143. 1500 xx=150
  144. 1510 gosub150:print"[157] [157][157][145]*";:gosub150:print"[157] [157][157]*";:gosub150:print"[157] [157][157]*";:gosub150:print"[157] [157].";:gosub150:print"[157]v";
  145. 1520 gosub150:print"[157][157][205] [206]";:gosub150:print"[157][157][157]   ";
  146. 1530 e$="[157]"
  147. 1540 fori=1to7
  148. 1550 r=int(rnd(1)*7):ife(r)=-1then1550
  149. 1560 e(r)=-1:printleft$(e$,20+r);:forj=1toint(rnd(1)*10+1):print"[146][157] [157][157][211]";:xx=40:gosub150:nextj,i
  150. 1570 xx=5000:gosub150:print"[147]"
  151. 1580 end
  152. 60300 print"[147]":clr:goto100
  153. 60500 fori=1to10:print"[192][192][192][192]";:nexti:return
  154. 62000 print"[147]";tab(9);"cursor #";nm$;"  ";pg$
  155. 62010 print" copyright (c) 1979  by ken morley
  156. 62020 [141]60500
  157. 62030 [153]"visit this island paradise
  158. 62080 print"press return[146] to begin
  159. 62090 [161]t$:[139]t$[178]""[167]62090
  160. 62100 [137]60300
  161.