home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / MENU-SYS-SORTER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  44 lines
  1. 90 PRINT"ô"
  2. 100 PRINT"                                         ┌┌┌┌┌ ┌ ┌ ┌┌┌ ┌┌┌    ┌";
  3. 110 PRINT"┌┌┌┌ ┌┌┌ ┌┌┌ ┌ ┌  ┌   ┌ ┌ ┌  ┌  ┌ ┌    ┌ ┌ ┌ ┌   ┌ ┌ ┌ ┌  ┌┌┌┌┌";
  4. 120 PRINT" ┌ ┌  ┌  ┌ ┌    ┌ ┌ ┌ ┌┌┌ ┌ ┌ ┌ ┌  ┌   ┌ ┌ ┌  ┌  ┌ ┌    ┌ ┌ ┌ ┌  ";
  5. 130 PRINT" ┌ ┌ ┌ ┌  ┌   ┌ ┌┌┌  ┌  ┌┌┌    ┌ ┌ ┌ ┌┌┌ ┌ ┌ ┌┌┌                ";
  6. 140 PRINT"                         Æææææææ    ¥█      ";
  7. 150 PRINT"                                 ";
  8. 160 PRINT"                                    ";
  9. 170 PRINT"                ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥";
  10. 180 IFZZ=1THENRETURN
  11. 240 POKE53280,0:POKE53281,0
  12. 250 DIMP$(100):OPEN1,8,0,"$"
  13. 260 GET#1,B$:IFST<>0THEN340
  14. 270 IFB$<>CHR$(34)THEN260
  15. 280 P$="":PRINT""
  16. 290 GET#1,B$:IFB$<>CHR$(34)THENP$=P$+B$:GOTO290
  17. 300 GET#1,B$:IFB$=CHR$(32)THEN300
  18. 305 IFP$="MENU"THENX=X-1:GOTO320
  19. 306 IFLEFT$(P$,1)=" "THENX=X-1:GOTO320
  20. 310 P$(X)=CHR$(64+X)+" "+P$
  21. 320 GET#1,B$:IFB$<>""THEN320
  22. 330 IFST=0THENX=X+1:GOTO260
  23. 340 CLOSE1:N=10
  24. 350 IFN<10THENN=10
  25. 360 IFN>100THENN=100
  26. 370 FORJ=1TOX/2:PRINTP$(J):NEXT:PRINT""
  27. 380 FORJ=X/2+1TOX:PRINTSPC(20);P$(J):NEXT
  28. 390 GETI$:IFI$=""THENZZ=1:GOSUB100
  29. 400 IFI$=CHR$(13)THENRUN
  30. 410 IFI$<"A"ORI$>CHR$(64+X)THEN390
  31. 420 S=ASC(I$)-64:PRINT"ô"
  32. 430 IFLEN(P$(S))>12THENP$    
  33. 440 P$(S)=MID$(P$(S),3,LEN(P$(S)))
  34. 450 PRINT"LOAD"+CHR$(34)+P$(S)+CHR$(34)+",8,1æææ"
  35. 451 IFLEFT$(P$(S),1)="R"THENA$="SYS64738"+CHR$(13):GOTO460
  36. 452 IFLEFT$(P$(S),2)="DO"THENA$="SYS49152"+CHR$(13):GOTO460
  37. 453 IFLEFT$(P$(S),2)="CH"THENA$="SYS64738"+CHR$(13):GOTO460
  38. 454 IFLEFT$(P$(S),2)="CE"THENA$="SYS64738"+CHR$(13):GOTO460
  39. 455 IFLEFT$(P$(S),2)="PA"THENA$="SYS64738"+CHR$(13):GOTO460
  40. 459 A$="SYS32768"+CHR$(13)
  41. 460 POKE631,13:FORX=1TOLEN(A$):POKE631+X,ASC(MID$(A$,X,1)):NEXT:POKE198,10
  42. 470 END
  43. 480 POKE631,13:POKE198,1
  44.