1 REM HAWAII! COPYRIGHT (C) 1979 KEN MPRLEY
2 REM 6440 DUMFRIES ST.
3 REM VANCOUVER, B C  CANADA
4 :
5 REM CURSOR #15, NOV/DEC 1979
6 REM BOX 550, GOLETA, CA. 93017
7 REM LINES 61000-65000 (C) 1979 CURSOR MAGAZINE
8 :
10 REM AS OF 12/29/79
90 PG$="HAWAII!":NM$="15":GOSUB62000
100 GOTO160
110 PRINT"[147]":POKESPD,PEEK(SPD)OR32:GOSUB960
120 B$=" [164][175][185][162][146][184][183][163]"
130 FORJ=31TO0STEP-8:FORI=1TOJ:PRINT" ";:NEXT:PRINTB$:NEXT:PRINTRIGHT$(B$,9)
140 PRINT""TAB(17)T$;:RETURN
150 FORK=1TOXX:NEXT:RETURN
160 SPD=59458
170 T$="[169]  [223][146]  [169] [223][157][157][157][157][157][157][157][157][157][157]"
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]"
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]"
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]"
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]"
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]"
230 PRINT"[147]":GOSUB960
240 A$="          ":B$="[157][157][157][157][157][157][157][157][157][157][157][157]":E$=""
250 PRINTE$;"";:Z$="                                       "
260 FORI=1TO7:PRINTZ$;" ";:NEXT:PRINTZ$;"[157][148] "
270 PRINT""
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]"
290 PRINT"                   [169]"
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]";
310 PRINT"[157][157][206][157][157]";
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]";
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]";
340 PRINT"[146][183][184][162][185][175][164][223]"
350 PRINT"[204][157][145][180][157][145][181][146][184][184][183][183]**     [157][157][157][157][157]";
360 FORI=1TO1000:NEXTI
450 PRINTE$"[145]"TAB(13);
460 FORI=1TO5:PRINT" *[157]";:XX=150:GOSUB150:NEXT:XX=2000:GOSUB150:PRINT" [145]*[157]";
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]";
480 XX=3000:GOSUB150:PRINT"LAND AHOY!-[157][157][157][157][157][157][157][157][157][157][157]";:XX=1500:GOSUB150:PRINT"           "
490 FORI=1TO1500:NEXT
500 PRINTE$""TAB(28):PRINT"[169]           [157][157][157][157][157][157][157][157][157][157][157][145][206][163]
510 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDON(null)TAB(TAB(      ONCMDCMDCMDCMDCMDCMD(null)     CMDCMDCMDCMDCMDON(null)TAB(TAB(TAB(TAB(";
520 [153]"CMDCMDCMDCMDON";:[141]1010
530 XX[178]300:[141]150
540 [153]""[163]19)" CMD*";:XX[178]50:[141]150:[153]"CMDINTCMD*";:[129]I[178]1[164]14:[141]150:[153]"CMDGETCMD*";
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
560 [153]"CMD.";:[141]150:[153]"CMDV";:[141]150:[153]"CMDCMD(null) (null)";:[141]150:[153]"CMDCMDCMD   CMDCMD";:XX[178]1500:[141]150
570 [153]E$"CMDSTEP";:[129]I[178]1[164]17:XX[178]50:[141]150:[153]"CMD WAITCMDCMDSTEP";:[130]
580 [153]E$"CMDSTEP";:[129]I[178]1[164]18:[141]150:[153]"CMD WAITCMDCMDSTEP";:[130]
590 [153]E$"CMDSTEP";:[129]I[178]1[164]18:XX[178]50:[141]150:[153]"CMD WAITCMDCMDSTEP";:[130]
600 XX[178]1000:[141]150:[153]"CMDCMDCMDON.CMD";:[141]150:[153]"*";
610 XX[178]500:[141]150:[129]I[178]1[164]4:[153]"WAITCMD*";:XX[178]100:[141]150:[153]"CMD*";:[141]150:[130]
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 "
630 XX[178]250:[141]150:XX[178]30
640 [153][163]22)"ON CMDCMDCMDWAITSTEP";:[141]150:[129]I[178]1[164]20:[141]150:[153]"CMD CMDCMDWAITSTEPON CMDCMDWAITSTEP CMDCMDWAITSTEPONCMD";:[130]
650 [153]"CMD ON CMD ";:XX[178]1000:[141]150:[153]"CMDCMD*";:[129]I[178]1[164]39:XX[178]30:[141]150
660 [153]"CMD *";:[130]:[153]"CMD ":[153]"ON(null)";:[141]150:[153]"CMD WAIT(null)CMDCMDON(null)CMD(null)";
670 [129]I[178]1[164]38:[141]150:[153]"ON WAIT(null)CMDCMDCMDON WAIT(null)CMDCMD WAIT(null)";:[130]
680 [141]150:[153]"ON CMDCMDON WAIT(null)CMDCMD WAIT(null)";:[141]150:[153]"CMD CMDONON "
690 [153]"ONONONCMD*";:[129]I[178]1[164]20:XX[178]30:[141]150:[153]"CMD CMDCMD*";:[130]
700 [141]150:[153]"CMD CMDCMDON*";:[141]150:[153]"CMDVALCMDCMDONWAIT*";:[141]150:[153]"CMD CMDCMDON*";:[141]150
710 [153]"CMDTAB(CMDCMDON*";:XX[178]1000:[141]150:XX[178]150:[153]"CMDCMDCMDCMD *";:[141]150:[153]"CMD *";
720 [141]150:[153]"CMD ";:[141]150:[153]"*";:[141]150:[153]"CMD *";
730 [141]150:[153]"CMD *";:[141]150:[153]"CMD ";
740 [141]150:[153]"*";:[141]150:[153]"CMD CMDCMDCMDCMDCMDCMD *";:[141]150:[153]"CMD *";:[141]150
750 [153]"CMD *";:[141]150:[153]"CMD ";
760 [141]150:[153]"*";:[141]150:[153]"CMD ";:XX[178]500:[141]150:[153]"*";
770 XX[178]1000:[141]150:[153]"CMDTOON*";:XX[178]150:[141]150:[153]"CMD *CMDCMDCMD";:[141]150:[153]"*";
780 [141]150:[153]" ON*";:[141]150:[153]"CMD *";:[141]150:[153]"CMDCMDCMDCMDCMDTOON*";:[141]150
790 [153]"CMD *";:[141]150:[153]"ON *";:[141]150:[153]"CMDCMDCMDCMD ON*";:[141]150:[153]"CMD *";:[141]150
800 XX[178]2000:[141]150
810 [129]I[178]1[164]2:[153]" ON*";:XX[178]150:[141]150:[153]"CMD ON*";:[141]150:[153]"CMD *";:[141]150
820 [153]"CMDTHEN*";:[141]150:[153]"CMD(null)*";:[141]150:[153]"CMD *";:[141]150:[153]"CMD ";
830 [139]I[178]1[167][153]"CMDCMDCMDCMDCMDCMDCMDCMD *CMD";:[141]150
840 [130]:XX[178]2000:[141]150
850 [141]110:[153]"CMDCMDCMDCMDCMDCMDCMDCMD(null)(null)TAB((null)(null)TAB((null)ON(null)":[151]SPD,[194](SPD)[175]223:[141]150
860 [141]970:[141]150:[153]"CMD ON*";:[141]150:[153]"CMD *";:[141]150:[153]"CMD *":[141]970:[141]150
870 [153]"CMD CMDON*";:[141]150:[153]"CMD CMDCMDON*";:[141]150:[153]"CMD CMDCMD*";:[141]150:[153]"CMD CMDCMD*";
880 [153]"ONONONONONONONON";:[129]J[178]1[164]3:XX[178]2000:[141]150:[141]980:[130]:[141]990
890 [153]"CMD CMDCMD(null)(null)";:[141]150
900 [153]"CMDCMD ";:XX[178]2000:[141]150:[153]"  CMDCMDCMDCMDTAB((null)TAB(CMDON(null)(null)";:[141]150:[153]"CMD CMDTAB(CMDCMDONAND(null)";
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
920 [141]150:[153]"ONONONONONONONONONONONCMD";:[141]980:[153]" CMD(null)CMD";:XX[178]50:[141]150:[141]990
930 [153]"CMD CMD(null)";:[141]150:[153]"CMD CMD(null)(null)";:[141]150:[153]"CMD ";
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]
950 [153][166]16)"ONONONONONANDCMDEXP":XX[178]3000:[141]150:[137]1030
960 [129]I[178]1[164]15:[153][163][187](1)[172]39)".":[130]:[142]
970 [153]"*";:[129]I[178]1[164]18:XX[178]100:[141]150:[153]"CMD *";:[130]:[142]
980 [129]I[178]1[164]4:[153]"WAIT(null)CMD";:XX[178]50:[141]150:[153]"(null)CMD";:[141]150:[130]:[142]
990 [153]" WAITCMD(null)";:[129]I[178]1[164]7:XX[178]50:[141]150:[153]"CMD(null)CMD(null)";:[130]:[141]150
1000 [142]
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)";
1020 [153]"TAB(CMDCMDCMDCMDCMDCMDCMDCMDCMDONSTEP(null)(null)(null)(null)(null)(null)(null)(null)CMDCMDCMDCMDCMDCMDCMDCMDONSTEP (null)TAB((null)(null)STEP(null)CMDCMDCMDCMDCMDCMDCMDONSTEP  (null)WAIT  STEP":[142]
1030 A$[178]"WAITSTEP   (null)CMDCMDCMDCMDCMD STEPSTEP(null)WAIT CMDCMDCMDCMDCMD TAB(.TAB(WAIT CMDCMDCMDCMDCMD (null)=WAITSTEP CMDCMDCMDCMDCMDCMDSTEP  TAB(WAIT  (null)CMDCMDCMDCMDCMDCMDCMD"
1040 A$[178]A$[170]"  STEP (null)(null)WAIT CMDCMDCMDCMDCMDCMDCMD(null)(null)   WAITSTEP(null)CMDCMDCMDCMDCMDCMDCMD  (null)PEEKWAITSTEP  "
1050 A$[178]A$[170]"CMDCMDCMDCMDCMDCMDCMD(null)WAIT STEPTAB((null)WAIT STEPCMDCMDCMDCMDCMDCMDCMDTHENTHEN  THENTHENCMDCMDCMDCMDCMDCMD"
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"
1070 [153]"LOAD"
1080 [129]I[178]0[164]17[169]17:[153]"":[141]1210:[153]""[166]15[173]17[172]I[170]10)A$:[130]
1090 [151]33107,160:[151]33186,160:[151]33346,160:[151]33386,160:[151]33427,160:[151]33467,160
1100 [151]SPD,[194](SPD)[175]223
1110 [129]I[178]1[164]1000:[130]
1120 [151]59467,16:[151]59466,51
1130 [129]I[178]75[164]35[169][171]1:[151]59464,I:[130]
1140 [151]59464,0:[129]I[178]1[164]100:[130]
1150 [129]I[178]75[164]50[169][171]1:[151]59464,I:[130]
1160 [129]I[178]50[164]98:[151]59464,I:[130]
1170 [151]59467,0
1180 [129]I[178]0[164]15[169]15:[153]""[166]11[170]I)"LOG.COSCMDCMD(null)":[130]
1190 [129]I[178]1[164]1500:[130]:[141]110:[153]"CMDCMDCMDCMDCMDCMDCMDCMD(null)*CMD(null)TAB((null)TAB((null)(null)CMDTAB(TAB(ON  (null)"
1200 [151]SPD,[194](SPD)[175]223:[153]"CMDCMDCMDCMD(null)";:[137]1390
1210 [153][166]9[170]I)"NEWNEWNEWNEWRND
1220 PRINTSPC(6+I)"[162]        [188][146][187]
1230 [153][166]4[170]I)"*            LOG
1240 PRINTTAB(3+I)"[190]               [146][187]
1250 [153][163]2[170]I)"*                LOG
1260 PRINTTAB(2+I)"                  [146][161]
1270 [153][163]1[170]I)"GET                   "
1280 [153][163]1[170]I)"                    WAITGET
1290 PRINTTAB(1+I)"                    [146][161]
1300 [153][163]1[170]I)"STR$LENLENSTR$STR$VALTAB(TAB(     TAB(TAB(VALSTR$LENLENSTR$WAITGET
1310 PRINTTAB(1+I)"[187]                   [146][190]
1320 [153][163]1[170]I)"LOG                  *
1330 PRINTTAB(2+I)"[187]                 [146][190]
1340 [153][163]3[170]I)"                WAITGET
1350 PRINTTAB(3+I)"[188][187]             [162]"
1360 PRINTTAB(5+I)"[162]          [172][146][190]"
1370 PRINTTAB(7+I)"[162][162]    [172][162][146][190]"
1380 RETURN
1390 XX=1000:GOSUB150:CLR:SPD=59458:FORI=1TO3:PRINT"[157] [211]";
1400 XX=150:GOSUB150:NEXT:PRINT"[157] ";:XX=1000:GOSUB150
1410 PRINT"[145][145][145] *";
1420 XX=40:FORI=1TO2:GOSUB150:PRINT"[157] *";:NEXT:PRINT"[157] *";:FORI=1TO20:GOSUB150:PRINT"[157] *";:NEXT:PRINT"[157] "
1430 XX=1000:GOSUB150:PRINTTAB(21)"[145]*[157][145][209]";:GOSUB150:PRINT"[157]*";:XX=100:GOSUB150:PRINT"[157][146]*[157][145] [209]";
1440 GOSUB150:PRINT"[157] [209]";:GOSUB150:PRINT"[157] [209]";:FORI=1TO4:GOSUB150:PRINT"[157] [209]";:NEXT:PRINT
1450 XX=30:PRINTTAB(21)"[145] *";:GOSUB150:PRINT"[157] *";:FORI=1TO16:GOSUB150:PRINT"[157] *";:NEXT:PRINT"[157] [157]";
1460 XX=3000:GOSUB150
1470 FORI=1TO39:PRINT"[157]*";:XX=15:GOSUB150:PRINT"[157] [157]";:NEXT:XX=500:GOSUB150:XX=20
1480 PRINT"[157][145][145]";:FORI=1TO21:PRINT"[157]*";:GOSUB150:PRINT"[157] [157]";:NEXT
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]*";
1500 XX=150
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";
1520 GOSUB150:PRINT"[157][157][205] [206]";:GOSUB150:PRINT"[157][157][157]   ";
1530 E$="[157]"
1540 FORI=1TO7
1550 R=INT(RND(1)*7):IFE(R)=-1THEN1550
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
1570 XX=5000:GOSUB150:PRINT"[147]"
1580 END
60300 PRINT"[147]":CLR:GOTO100
60500 FORI=1TO10:PRINT"[192][192][192][192]";:NEXTI:RETURN
62000 PRINT"[147]";TAB(9);"CURSOR #";NM$;"  ";PG$
62010 PRINT" COPYRIGHT (C) 1979  BY KEN MORLEY
62020 [141]60500
62030 [153]"VISIT THIS ISLAND PARADISE
62080 PRINT"PRESS RETURN[146] TO BEGIN
62090 [161]T$:[139]T$[178]""[167]62090
62100 [137]60300