home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / sstobas.arc / SP-BAS.BAS (.txt) next >
Commodore BASIC  |  1987-07-18  |  2KB  |  47 lines
  1. 100 POKE56,PEEK(46)+2:CLR: REM SET TOP OF BASIC TEXT 2 BLK ABOVE END OF PROG
  2. 110 POKE53281,12:POKE53280,0:PRINT"[144]"
  3. 120 B$="                                        ":REM 40 BLANKS
  4. 130 PRINT"[147]   *****  [211]PEED[211]CRIPT [212]O [194]ASIC  *****   "
  5. 140 PRINT"           [194]Y [205]IKE [203]OZAKIEWICZ"
  6. 150 PRINT"            [210]OCHESTER, [206][217] [213][211][193]"
  7. 160 LD%=7:GOSUB460:INPUT"[195]REATE [196][193][212][193] OR [208][210][201][206][212] [211]TMNTS (D/P)   D[157][157][157]";TYPE$
  8. 170 TYPE$=LEFT$(TYPE$,1):IF(TYPE$<>"D") AND (TYPE$<>"P") THEN GOTO 160
  9. 180 ADDR=49152:IF TYPE$="P" THEN ADDR=49155
  10. 190 CLOSE15:OPEN15,8,15,"I0":REM REMOVE ,"I0" IF YOU'VE CHANGED THE DRIVE'S SPEED
  11. 200 LD%=7:GOSUB460:INPUT"[201]NPUT FILE NAME    *QUIT[157][157][157][157][157][157][157]";IN$
  12. 210 IFIN$=""THEN200
  13. 220 IF IN$="*QUIT"THEN GOTO 440
  14. 230 CLOSE1:OPEN1,8,3,IN$:INPUT#15,EN,EM$:F$=IN$:IFEN=0THEN250
  15. 240 GOSUB510:GOTO200
  16. 250 SYS(ADDR):CLOSE1:SYS65484
  17. 260 LD%=11:GOSUB460:PRINT"          [201]NSERT [207]UTPUT [196]ISK[146]              "
  18. 270 GOSUB 480:ADDR=49158
  19. 280 LD%=9:GOSUB460:INPUT"[207]UTPUT FILE NAME   *QUIT[157][157][157][157][157][157][157]";OUT$
  20. 290 IF OUT$="*QUIT"THEN GOTO 440
  21. 300 CLOSE9:OPEN9,8,4,"0:"+OUT$:INPUT#15,EN,EM$:F$=OUT$:CLOSE9
  22. 310 IFEN=0THEN340
  23. 320 IFEN<>62THEN GOSUB 510:GOTO260
  24. 330 GOTO380
  25. 340 LD%=12:GOSUB460:PRINTOUT$;" EXISTS... [210]EPLACE? [217][146]/[206][146]:"
  26. 350 GETA$:IFA$<>"Y"ANDA$<>"N"THEN350
  27. 360 IFA$="N"THEN260
  28. 370 PRINT#15,"S0:"+OUT$
  29. 380 LD%=15:GOSUB460
  30. 390 T1=8+LEN(OUT$):B1$=LEFT$(B$,(20-(T1/2))):PRINTB1$;"[211]AVING: ";OUT$;"[146]"
  31. 400 SYS(ADDR),OUT$:SYS65484:PRINT"             [196]ONE.
  32. 410 [133]"(null)AKE ANOTHER COPY   NCMDCMDCMD";AN$
  33. 420 AN$[178][200](AN$,1):[139](AN$[179][177]"Y")[175](AN$[179][177]"N")[167]410
  34. 430 [139] AN$[178]"Y"[167] [137] 260
  35. 440 [151]56,160:[143] RETURN BASIC TEXT RAM TO BASIC
  36. 450 [129]I[178]1[164]15:[160]I:[130]:[156]:[153]"RUNONONON":[128]
  37. 460 [158]49161,LD%
  38. 470 [153]"":[129]J[178]1[164]LD%[171]1:[153]:[130]:[142]
  39. 480 [153]"        (null)RESS A (null)EY TO LENONTINUE"
  40. 490 [161]AN$:[139]AN$[178]""[167]490
  41. 500 [142]
  42. 510 [153]"STR$ISK ERROR FOR ";F$:[153]EM$:[141]480:[142]
  43. 520 [160]15:[159]15,8,15:[132]15,A$,S$:[160]15:[153]A$;",";S$:[128]
  44. 530 [151]43,[194](45)[171]2:[151]44,[194](46):[153]"LOADNEWP(null)43,1:P(null)44,8:?CHR$(147)"
  45. 540 [147]"$",8
  46. 550 [160]15:[159]15,8,15,"S0:SP-BAS.BAS":[160]15:[148]"SP-BAS.BAS",8
  47.