home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / automenu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-10-10  |  2.0 KB  |  65 lines
  1. 1 REM *********************************
  2. 2 REM *         'AUTO MENU'           *
  3. 3 REM * READS DIRECTORY & AUTO LOADS  *
  4. 4 REM * PROGRAM SELECTED BY THE USER  *
  5. 5 REM *             BY                *
  6. 6 REM * JOE W. ROCKE          7/27/84 *
  7. 7 REM *********************************
  8. 10 POKE53280,0:POKE53281,0
  9. 20 DIM N$(100):CX=54272:PRINT "ô"
  10. 30 PRINT"ôü"
  11. 40 X$="                                       "
  12. 50 FORX=1TO5:PRINTX$:NEXT
  13. 60 PRINT"":PRINT CHR$(117);
  14. 70 FOR X=1TO38:PRINTCHR$(100);:NEXT
  15. 80 PRINTCHR$(105);:FORX=1TO5
  16. 90 PRINTCHR$(103)SPC(38)CHR$(104)" "CHR$(157);:NEXT
  17. 100 PRINTCHR$(106);:FORX=1TO38:PRINTCHR$(102);:NEXT:PRINTCHR$(107)
  18. 110 PRINT""TAB(14)"* AUTO MENU *"
  19. 120 PRINTTAB(12)"₧READING DIRECTORY"
  20. 129 REM --- READ DISK DIRECTORY ---
  21. 130 OPEN1,8,0,"$"
  22. 140 GET#1,B$:IFST<>0THEN260
  23. 149 REM --- LINE 150 LIMITS TO 26 FILES ---
  24. 150 IFF>=27THEN260
  25. 160 IFB$<>CHR$(34)THEN140
  26. 170 N$="":PRINT"":POKE214,8:PRINT
  27. 180 GET#1,B$:IFB$<>CHR$(34)THENN$=N$+B$:GOTO180
  28. 190 GET#1,B$:IFB$=CHR$(32)THEN190
  29. 199 REM -- FOLLOWING LINES SKIP THE LOADING FILES --
  30. 200 IFN$="BOOT"THENF=F-1:GOTO240
  31. 210 IFN$="AUTO MENU"THENF=F-1:GOTO240
  32. 220 IFLEFT$(N$,1)=" "THENF=F-1:GOTO240
  33. 230 N$(F)=" "+N$
  34. 240 GET#1,B$:IFB$<>""THEN240
  35. 250 IFST=0THENF=F+1:GOTO140
  36. 260 CLOSE1
  37. 269 REM - PRINT FIRST COLUMN OF NAMES -
  38. 270 FORE=1TOF/2:PRINT"Ö"CHR$(64+E)""N$(E):NEXT
  39. 280 PRINT"":POKE214,8:PRINT
  40. 289 REM -- THEN 2ND COLUMN OF NAMES ---
  41. 290 FORE=F/2+1TOF:PRINTSPC(20)"Ö"CHR$(64+E)""N$(E):NEXT
  42. 300 PRINT""
  43. 310 PRINTTAB(12)"₧ PRESS LETTER KEY "
  44. 320 PRINTTAB(5)"TO AUTO LOAD PROGRAM SELECTED"
  45. 330 GETM$:IFM$=""THEN330
  46. 340 IFM$=CHR$(13)THENRUN
  47. 350 IFM$<"A"ORM$>CHR$(64+F)THEN330
  48. 360 P=ASC(M$)-64:PRINT"ô"
  49. 370 IFLEN(N$(P))>12THENN$(P)=LEFT$(N$(P),12)+"*"
  50. 380 N$(P)=MID$(N$(P),2,LEN(N$(P)))
  51. 390 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)",8,1æææ"
  52. 400 REM *******************************
  53. 410 REM * IF YOU KNOW THE PGM IS 'ML' *
  54. 420 REM * THE EXAMPLE BELOW WILL LOAD *
  55. 430 REM * AND FILE & RUN IT. EXAMPLES *
  56. 440 REM * (3) ARE SHOWN BELOW.        *
  57. 450 REM *******************************
  58. 460 IFLEFT$(N$(P),4)="TOOL"THENA$="SYS64738"+CHR$(13):GOTO500
  59. 470 IFLEFT$(N$(P),6)="SPRITE"THENA$="SYS49152"+CHR$(13):GOTO500
  60. 480 IFLEFT$(N$(P),5)="ULTRA"THENA$="SYS49152"+CHR$(13):GOTO500
  61. 490 A$="RUN"+CHR$(13)
  62. 500 POKE631,13:FORB=1TOLEN(A$):POKE631+B,ASC(MID$(A$,B,1)):NEXT:POKE198,10
  63. 510 NEW
  64. 8224                                                                                                     
  65.