home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / MENU.MAKER64.SDA / MENU.SETUP (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  984b  |  37 lines
  1. 1 PRINT"[147]LOADING ADDITIONAL FILES --"
  2. 5 IFA=0THENA=1:LOAD"MENU.ML",8,1
  3. 6 IFB=0THENB=1:LOAD"MENU.BSAVE",8,1
  4. 10 PRINT"[147]"
  5. 15 DIMA$(10):DIMB$(10):S$="        "
  6. 20 MA=49181:CA=49403:FA=49397
  7. 30 FORX=1TO10
  8. 40 MA=MA+17:FA=FA+17:CA=CA+1
  9. 50 PRINT"[147]NAME OF PROGRAM #";X;"ON MENU"
  10. 55 N$=""
  11. 60 INPUTN$
  12. 70 AL=LEN(N$):IFAL<1 GOTO 50
  13. 71 IF AL>16 THEN PRINT"MAXIMUN OF 16 CHARACTERS!":FORY=1TO2000:NEXT:GOTO50
  14. 75 AL=LEN(N$):MB=MA:T=INT((16-AL)/2):AL=AL+T:A$(X)=LEFT$(S$,T)+N$
  15. 80 FORY=1TOAL
  16. 90 POKEMB+Y-1,ASC(MID$(A$(X),Y,1)):NEXTY
  17. 100 PRINT"FILENAME OF THIS PROGRAM TO LOAD"
  18. 105 PRINT"PRESS RETURN IF SAME AS ON MENU"
  19. 110 INPUTB$(X)
  20. 115 AL=LEN(B$(X)):IF AL<1 THEN B$(X)=N$
  21. 120 AL=LEN(B$(X)):FB=FA
  22. 130 POKECA,AL
  23. 140 FORZ=1TOAL
  24. 150 POKEFB+Z-1,ASC(MID$(B$(X),Z,1)):NEXTZ
  25. 160 NEXTX
  26. 170 PRINT"[147]"TAB(2)"MENU NAME"TAB(19)"FILENAME"
  27. 180 PRINT:FORX=1TO10:PRINTXTAB(3)A$(X)TAB(19)B$(X):NEXTX:PRINT:PRINT
  28. 190 PRINT"IS THIS CORRECT?"
  29. 200 GETC$:IFC$<>"Y"ANDC$<>"N"THEN200
  30. 210 IFC$="Y"THEN230
  31. 220 IFC$="N"THENRUN
  32. 230 PRINT"[147]PLACE DISK IN DRIVE TO RECIEVE MENU.ML"
  33. 240 PRINT:PRINT"PRESS [158]RETURN WHEN READY"
  34. 250 GETC$:IFC$<>CHR$(13)THEN250
  35. 260 OPEN15,8,15:PRINT#15,"S0:MENU.ML":CLOSE15
  36. 270 SYS828
  37.