home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / HANDY-SEQ.MB9 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  36 lines
  1. 0 GOTO 50
  2. 1 YS=PEEK(61)+256*PEEK(62)+29:REM"::::::::::::::::::::::::::::::::::::
  3. 10 [131] 162,1,32,198,255,32,228,255,166,144,32,210,255,224,64,240
  4. 20 [131] 5,32,225,255,208,239,169,1,32,195,255,76,204,255
  5. 30 [129] I[178]YS [164] I[170]29:[135] A:[151] I,A:[130]
  6. 40 [153]"STOPRIGHT$NSTALLED!":[153]:[128]
  7. 50 [151]53280,15:[151]53281,15:[153]"LOAD";
  8. 52 [153]"STOP TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  9. 54 [153]"THEN   LEFT$ANDY (null)VAL(null)CLOSE(null)EADER BY (null)ICK (null)EPHART   FN"
  10. 56 [153]"ON TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  11. 58 [153]"STOP(null)HIS SHORT PROGRAM WILL GENERATE A "
  12. 60 [153]"(null)VAL(null)CLOSEFILE READER WITHIN A PROGRAM."
  13. 62 [153]"MID$UST CHOOSE TO (null)(null)(null) THE PROGRAM AND IT"
  14. 64 [153]"WILL BE CREATED.  (null)HIS WILL PUT A"
  15. 66 [153]"FILE READER IN LINE 1.  (null)NCE RUN,"
  16. 68 [153]"DELETE ALL OTHER LINES, BUT STR$(null)CLOSE(null)(null)(null)"
  17. 70 [153]"EDIT LINE 1!"
  18. 72 [153]"(null)O VIEW A FILE, DO THIS:"
  19. 74 [153]"(null)(null)VAL(null)1,8,8,"[199](34)"FILENAME"[199](34)":(null)(null)(null)CLOSE(null)(null)STOP"
  20. 76 [153]"(null)HERE THE FIRST 8 IS THE CURRENT"
  21. 78 [153]"DRIVE # (8-30 ARE GENERALLY USED.)"
  22. 80 [153]"(null)NCE FINISHED VIEWING:"
  23. 82 [153]"LEN(null)(null)(null)VAL 1STOP"
  24. 84 [153]"(null)HAT'S ALL THERE IS TO IT!  VALNJOY!"
  25. 86 [153]"STOP     (null)RESS (null) TO (null)(null)(null)CLOSEOR (null) TO QUIT.     "
  26. 88 [161]A$:[139]A$[178]""[167]88
  27. 90 [139]A$[178]"Q"[176]A$[178]"(null)"[167][151]53280,14:[151]53281,7:[153][199](9)"LOAD":[128]
  28. 92 [139]A$[178]"R"[176]A$[178]"(null)"[167]96
  29. 94 [137] 88
  30. 96 [153]    
  31. 42148 [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  32. 98 PRINT"[144][167]    [195]OPYRIGHT ([195]) 1992 [205]ICRO-[194]YTES    [165]"
  33. 100 PRINT"[145] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  34. 102 PRINT"[144][201]NSTALLING [200]ANDY [211][197][209][160][210]EADER..."
  35. 104 GOTO 1
  36.