home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / edstar.mn (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-10-15  |  7.1 KB  |  183 lines
  1. 5 POKE650,255:PRINT"";:GOTO30
  2. 10 XX=0:IFXY<760THENRETURN
  3. 15 PRINT"╧UT OF LINES!!!":FORT=1TO500:NEXT:PRINT"æ                 ":XX=-1:RETURN
  4. 30 POKE53280,6:POKE53281,0:PRINT"ô":IFPEEK(49408)=1THEN40
  5. 36 PRINT"ô           ╨LEASE WAIT..":LOAD"EDSTAR 5.O",8,1
  6. 40 GOSUB50:POKE55,0:POKE56,39:CLR:S=10000:POKE53272,23:TB=1503:GOTO60
  7. 50 POKE1020,1:POKE1021,19:POKE1022,0:POKE1023,39:RETURN
  8. 60 IP=49448:LS=49430:MT=49433:MB=49436:SD=49415:SC=49412:SF=49418:LF=49421:LM=49442:MW=49439:DC=49424:IC=49427:WW=49445:CL=49409:MD=49451:MI=49454:WC=49457:PR=49460:SP=49463:CA=49466:G1=49469:G2=49472:G3=49475:G4=49478:G5=49481:RD=49484:SYSMW:GOSUB765
  9. 135 DEFFNS(X)=X*40+9960:POKE646,12:SYSCL:GOSUB300:GOSUB405:LN=1:GOTO145
  10. 145 PS=1465:POKE53272,23:T$=" ":GOSUB715:GOTO155
  11. 155 GETC$:IFC$<>""THEN175
  12. 160 POKEPS,PEEK(PS)OR128
  13. 165 GETC$:IFC$<>""THEN175
  14. 170 GOSUB303:GOTO155
  15. 175 POKE150,ASC(C$):SYSIP:IFPEEK(150)=0THEN270
  16. 180 ONPEEK(151)GOTO190,205,210,215,220,225,230,235,240,245,250,255,260,265
  17. 185 GOTO165
  18. 190 XY=LN:GOSUB10:IFXXTHEN200
  19. 195 GOSUB303:PS=1465:SYSLS,LN:LN=LN+1:SYSSC:SYSMB,LN+8
  20. 200 GOTO280
  21. 205 GOSUB395:GOTO165:IN
  22. 210 GOSUB330:GOTO165:CR
  23. 215 GOSUB345:GOTO165:CR
  24. 220 GOSUB355:GOTO165:CR
  25. 225 GOSUB380:GOTO165:CR
  26. 230 GOSUB475:GOTO165:^DL
  27. 235 GOSUB530:GOTO165:^IL
  28. 240 GOSUB303:GOSUB635:GOSUB410:GOSUB725:GOSUB985:GOTO165:SAVE
  29. 245 GOSUB805:GOSUB720:GOTO165:^PPRINTER
  30. 250 GOSUB310:GOTO165:DE
  31. 255 GOSUB1315:GOTO165:^XE
  32. 260 GOSUB910:GOTO165:^HH
  33. 265 GOSUB1025:GOTO165:^FFONS
  34. 270 LP=PEEK(49151+ASC(C$)):POKEPS,LP:PS=PS+1:IFPS=TBTHENPS=1465:GOSUB430:SYSLS,LN:SYSMB,LN+8
  35. 280 IFLN>NLTHENNL=LN
  36. 285 GOTO155
  37. 300 FORT=55736TO55775:POKET,7:NEXT:RETURN
  38. 303 POKEPS,PEEK(PS)AND127:RETURN
  39. 310 IFPS<1466THENRETURN
  40. 315 POKE150,PS-1465:GOSUB303:SYSDC:PS=PS-1:RETURN
  41. 330 IFPS>1465THENGOSUB303:POKEPS,PEEK(PS)OR128:GOSUB303:PS=PS-1
  42. 335 RETURN
  43. 345 IFPS<1502THENGOSUB303:POKEPS,PEEK(PS)OR128:GOSUB303:PS=PS+1
  44. 350 RETURN
  45. 355 IFLN=1THENPRINT"             ╙TART OF TEXTÿ":GOSUB585:RETURN
  46. 365 GOSUB303:SYSLS,LN:LN=LN-1:SYSSD:IFLN>10THENSYSMT,LN-10
  47. 375 RETURN
  48. 380 IFLN>=NLTHENGOSUB575:RETURN
  49. 390 GOSUB303:SYSLS,LN:LN=LN+1:SYSSC:SYSMB,LN+8:RETURN
  50. 395 POKEPS,PEEK(PS)AND127:POKE150,PS-1463:SYSIC:RETURN
  51. 405 :
  52. 410 PRINT"¢ ░└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└«":GOSUB303:FORT=1TO3:PRINT" ▌                                    ▌":NEXT:PRINT" ¡└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└╜ææææ";:RETURN
  53. 430 XY=LN:GOSUB10:IFXXTHENRETURN
  54. 440 XF=0:IFPEEK(TB-1)=32THENXF=-1
  55. 445 SM=FNS(LN+1):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256:FM=FNS(NL):POKE253,INT(FM/256):POKE252,FM-PEEK(253)*256:SYSWC:IFPEEK(150)<>0THENPOKE1020,12:SYSSD:SYSMI:NL=NL+1:POKE1020,1
  56. 460 SYSWW:PS=PEEK(150)+1464:SYSLS,LN:SYSSC:LN=LN+1:IFXF=-1THENPS=1465
  57. 470 RETURN
  58. 475 IFNL=0THENRETURN
  59. 485 PRINT"─ELETING A LINE...":SM=FNS(LN):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256:SM=FNS(NL+1):POKE253,INT(SM/256):POKE252,SM-PEEK(253)*256:SYSMD:POKE1020,11:SYSSC:GOSUB50:PS=1465:NL=NL-1:SYSLS,LN:SYSMB,LN+8:PRINT"                   ":POKE150,0:POKE151,0:POKE152,0:POKE153,O
  60. 520 IFNL<LNTHENGOSUB355
  61. 525 RETURN
  62. 530 :
  63. 535 XY=NL:GOSUB10:IFXXTHENRETURN
  64. 540 PRINT"╔NSERTING A LINE...":SM=FNS(LN):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256:FM=FNS(NL):POKE253,INT(FM/256):POKE252,FM-PEEK(253)*256:SYSMI:NL=NL+1:GOSUB303:POKE1020,11:SYSSD:GOSUB50:PS=1465:PRINT"                    ":POKE150,0:POKE151,0:POKE152,0:POKE153,0:RETURN
  65. 575 PRINT"┼ND OF TEXT
  66. 585 FORT=1TO40:NEXT:GOTO605
  67. 590 POKE54296,15:POKE54277,45:POKE54278,165:POKE54276,33:POKE54273,6:POKE54272,5:FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54272,0:POKE198,0:RETURN
  68. 605 PRINT"                            ":RETURN
  69. 620 GOSUB410:PRINT"¥┴RE YOU SURE YOU WANT TO EXIT? (┘/╬)
  70. 625 GETD$:IFD$=""THEN625
  71. 627 IFD$="N"THENOW=0:RETURN
  72. 628 IFD$="Y"THENOW=1:GOTO630
  73. 629 GOTO625
  74. 630 GOSUB410:PRINT"¥─O YOU WISH TO ╙┴╓┼ THIS FILE? (┘/╬)
  75. 631 GETD$:IFD$=""THEN631
  76. 632 IFD$="Y"ORD$="┘"THEN635
  77. 633 IFD$="N"ORD$="╬"THENRETURN
  78. 635 SYSLS,LN:FX=17:OPEN15,8,15,"I0":CLOSE15
  79. 640 GOSUB410:PRINT"╙AVE AS WHAT? ($-─╔╥)":PRINT"╬┴═┼ :";:GOSUB2000:FS$=K$:IFFS$=""THEN630
  80. 645 IFFS$="$"THENPRINT"ô":SYSCA:PRINT"":GOTO640
  81. 650 FX=FX-1:FS$=LEFT$(FS$,FX):IFRIGHT$(FS$,1)=" "THEN645:IFFS$=FI$THEN655
  82. 655 FI$=FS$:GOSUB410:PRINT"╙AVING '"FI$"'":OPEN15,8,15:PRINT#15,"R0:"FI$"=0:"FI$:OW=-1:INPUT#15,A$:IFA$<>"63"THEN688
  83. 670 PRINT"æ╞╔╠┼ ┼╪╔╙╘╙! ╥EPLACE?(┘/╬)";:GOSUB590
  84. 675 GETR$:IFR$=""THEN675
  85. 680 IFR$="N"THENCLOSE15:RETURN
  86. 681 IFR$="Y"THEN685
  87. 683 GOTO675
  88. 685 PRINT" £╧K.ÿ":PRINT#15,"S0:"+FI$:CLOSE15
  89. 688 F$=FI$+",P,W":GOSUB410:PRINT"╨LEASE WAIT WHILE SAVING.":POKE827,LEN(F$):FORC=1TOLEN(F$):POKE827+C,ASC(MID$(F$,C)):NEXT:FI$=F$:POKE251,(NL)/256:POKE250,256*((NL)/256-PEEK(251)):SYSSF:OPEN15,8,15:INPUT#15,ER,ER$:CLOSE15:GOSUB410:PRINT"¥─ISK ╙TATUS :"ER","ER$:PRINT"╨RESS (╙╨┴├┼) WHEN READY TO CONTINUE
  90. 709 GETD$:IFD$<>" "THEN709
  91. 710 SV=-1:RETURN
  92. 715 :
  93. 720 GOSUB303:SYSLS,LN:GOSUB410
  94. 725 PRINT"ÿ(├╘╥╠)ƒ╔ÿÆNSERT LINE   (├╘╥╠)ƒ╙ÿÆAVE TEXT":PRINT"(├╘╥╠)ƒ─ÿÆELETE LINE   (├╘╥╠)ƒ╨ÿÆRINTER":PRINT"(├╘╥╠)ƒ╚ÿÆELP          (├╘╥╠)Eƒ╪ÿÆIT":IFT$=" "THENRETURN
  95. 745 GETME$:IFME$=""THEN745
  96. 750 IFME$="D"ORME$="I"ORME$="P"ORME$="H"ORME$="S"ORME$="X"THENRETURN
  97. 755 GOTO745
  98. 765 PRINT"ô─O YOU WISH TO LOAD A TEXT FILE? (┘/╬)
  99. 766 GETA$:IFA$=""THEN766
  100. 767 IFA$="N"ORA$="╬"THENPRINT"ô":RETURN
  101. 768 IFA$<>"Y"THEN766
  102. 769 PRINT"ô":GOSUB1260:IFFI$=""THEN765
  103. 770 SYSMW:POKE250,17:POKE251,39:POKE252,NL/256:POKE253,256*((NL/256)-PEEK(252)):SYSLF:T$=" ":GOSUB1295:IFNL<>0THEN795
  104. 790 OPEN15,8,15:INPUT#15,S$:CLOSE15:RETURN
  105. 795 GOSUB300:RETURN
  106. 805 SYSLS,LN:GOSUB410:PRINT"  * ╨╥╔╬╘ ╘┼╪╘ ╞╔╠┼ ╘╧ ╨╥╔╬╘┼╥ *":PRINT"╨RESS (╙╨┴├┼) WHEN READY TO PRINT":PRINT"╨RESS (╥┼╘╒╥╬) TO ABORT
  107. 825 GETP$:IFP$=""THEN825
  108. 826 IFP$=" "THEN832
  109. 830 IFP$=""THEN825
  110. 831 GOSUB410:PRINT"╨RINTING ABORTED":FORT=1TO699:NEXT:RETURN
  111. 832 OPEN15,4,15:CLOSE15:IFST=0THEN835
  112. 833 GOSUB410:PRINT"╨RINTER NOT DETECTED":FORT=1TO699:NEXT:RETURN
  113. 835 OPEN4,4,7:CMD4:LC=0:LP=1
  114. 845 IFNL-LP<120THEN865
  115. 850 FORI=LPTOLP+59:RS=60:GOSUB885:NEXT:IFPEEK(203)=23THEN875
  116. 860 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:LP=LP+120:GOTO845
  117. 865 RS%=(NL-LP+2)/2:RS=RS%:FORI=LPTOLP+RS-1:GOSUB885:NEXT
  118. 875 PRINT" ";:GETK$:PRINT#4:CLOSE4:RETURN
  119. 885 M1=FNS(I):M2=FNS(I+RS):POKE151,M1/256:POKE150,256*(M1/256-PEEK(151)):SYSPR:POKE151,M2/256:POKE150,256*(M2/256-PEEK(151)):SYSPR:RETURN
  120. 910 GOSUB303:SYSLS,LN:PRINT"ô":PRINT"ô₧         ┼─╙╘┴╥ ╚┼╠╨á╙├╥┼┼╬":PRINT"  ╘O ACCESS FUNCTIONS PRESS (├╘╥╠) ╞.":PRINT"      ╘HE NEXT KEY DOES THE JOB.":PRINT"    ╞1 = ╘OP OF TEXT,   ╞7 = ┬OTTOM":PRINT"    ╞3 = ╒P 10 LINES,   ╞5 = ─OWN.":PRINT"   (├╘╥╠) ╙ = ╙PLITS LINES
  121. 946 PRINT"   (├╘╥╠) ╟ = ╟LUES LINES":PRINT"   (├╘╥╠) ╫ = ╫IPES LEADING SPACES.":PRINT"   (├╘╥╠) ┴ = ┴PPENDS A FILE.":PRINT"   (├╘╥╠) ┌ = ┌APS BETWEEN \ FLAGS.":PRINT"   (├╘╥╠)á─ = ─OUBLE SPACES LINES.":PRINT"                                      
  122. 970 PRINT" ╨RESS (╙╨┴├┼) WHEN READY TO CONTINUE
  123. 975 GETT$:IFT$<>" "THEN975
  124. 985 PRINT"ô":POKE646,12:SYSCL:GOSUB410:GOSUB725:GOSUB300:FORP=LN-10TOLN+7:IFP<1THEN1010
  125. 1005 SYSMB,P:SYSSC
  126. 1010 NEXT:SYSMB,P:GOSUB300:RETURN:FU
  127. 1025 GOSUB303:PRINT"╞UNCT:";:SYSLS,LN
  128. 1030 GETF$:IFF$=""THEN1030
  129. 1035 PRINT"      ";:IFF$=""THENGOSUB1100:RETURN:GL
  130. 1045 IFF$=""THENGOSUB1160:RETURN:SP
  131. 1050 IFF$="ê"THENGOSUB1180:RETURN:ENDOF
  132. 1055 IFF$="à"THENGOSUB1185:RETURN:TOPO
  133. 1060 IFF$="å"THENGOSUB1195:RETURN:UP
  134. 1065 IFF$="ç"THENGOSUB1190:RETURN:DO
  135. 1070 IFF$=""THENGOSUB1205:RETURN:RI
  136. 1075 IFF$=" "THENGOSUB1210:RETURN:LE
  137. 1080 IFF$=""THENGOSUB1215:RETURN:WI
  138. 1085 IFF$=""THENGOSUB1230:RETURN:APEND
  139. 1090 IFF$=""THENGOSUB1290:RETURN:\PU
  140. 1092 IFF$=""THENGOSUB1340:RETURN
  141. 1095 RETURN
  142. 1100 IFLN>NL-2THENRETURN
  143. 1105 SYSG1:QE=PEEK(252)+256*PEEK(253):IFQE>1502THEN1145
  144. 1115 SYSG2:QX=PEEK(150):GOSUB380:IFQX=0THEN1145
  145. 1130 POKE150,QX:SYSG4:GOSUB1215:IFQX>37THENGOSUB475
  146. 1145 SYSG5:PS=PEEK(250)+PEEK(251)*256:IFPS=1502THENGOSUB380
  147. 1155 RETURN
  148. 1160 IFPS=1465THEN1175
  149. 1165 PZ=PS:GOSUB380:GOSUB535:PK=FNS(LN-1):POKE151,PK/256:POKE150,256*((PK/256)-PEEK(151)):POKE250,PZ-1465:SYSSP
  150. 1175 RETURN
  151. 1180 LN=NL:GOSUB985:RETURN
  152. 1185 LN=1:GOSUB985:RETURN
  153. 1190 FORQD=1TO10:GOSUB380:NEXT:RETURN
  154. 1195 FORQD=1TO10:GOSUB355:NEXT:RETURN:GOSUB985:RETURN
  155. 1205 GOSUB303:PS=1502:RETURN
  156. 1210 GOSUB303:PS=1465:RETURN
  157. 1215 SYSG3:QX=PEEK(150):IFF$=""THENGOSUB380
  158. 1225 RETURN
  159. 1230 PRINT"ô┴PPEND:":GOSUB1260:MA=FNS(LN)+1:POKE251,MA/256:POKE250,256*((MA/256)-PEEK(251)):POKE253,LN/256:POKE252,256*((LN/256)-PEEK(253)):SYSLF:QD=LN:GOSUB1295:LN=QD:GOSUB985:RETURN
  160. 1260 FS$=FI$:FI$="":GOSUB405:PRINT"╫HAT FILE? ($-─╔╥):";:GOSUB2000:FI$=K$:IFFI$=""THENRETURN
  161. 1265 OPEN15,8,15,"I0":CLOSE15:IFFI$="$"THENPRINT"ô":SYSCA:PRINT:GOTO1260
  162. 1272 F$=FI$:POKE827,LEN(F$):FORC=1TOLEN(F$):POKE827+C,ASC(MID$(F$,C)):NEXT:PRINT"ô":GOSUB405:PRINT"╠OADING '"FI$"'":RETURN
  163. 1290 SYSRD
  164. 1295 MA=PEEK(250)+PEEK(251)*256:MA=MA-10001:IFMA<0THENMA=0
  165. 1305 NL=INT(MA/40)+1:LN=1:GOSUB985:RETURN
  166. 1315 GOSUB620:IFOW=0THEN1322
  167. 1321 GOTO3000
  168. 1322 GOSUB410:GOSUB725:RETURN
  169. 1340 GOSUB1185:GOSUB380
  170. 1345 IFLN<NLTHENGOSUB530:GOSUB380:GOSUB380:GOTO1345
  171. 1350 GOSUB530:RETURN
  172. 2000 K$="":PRINT"ñ¥";
  173. 2010 GETKE$:IFKE$=""THEN2010
  174. 2011 IFKE$=CHR$(20)ANDLEN(K$)>0THEN2040
  175. 2015 IFKE$=CHR$(20)THEN2010
  176. 2020 IFKE$=CHR$(13)THENPRINT" ":RETURN
  177. 2025 IFLEN(K$)=16THEN2010
  178. 2027 IFKE$<" "ORKE$>"_"ANDKE$<"┴"ORKE$>"┌"THEN2010
  179. 2034 K$=K$+KE$:PRINTKE$;:PRINT"ñ¥";:GOTO2010
  180. 2040 K$=LEFT$(K$,LEN(K$)-1):PRINT" ¥¥ñ¥";:GOTO2010
  181. 3000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15:IFER<>63THENPRINT"ô":END
  182. 3002 LOAD"HELLO CONNECT",8
  183.