home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD008A.D64 / menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  53 lines
  1. 0 REM       >MENU CREATOR V3.0<
  2. 1 :
  3. 2 REM    (C) 1985 BY:  ROCKY MOORE
  4. 3 :
  5. 4 SYS65418:K=PEEK(45)+PEEK(46)*256:A=K-1086:P=K-1019:SYSA:T$(0)=",8":T$(1)=",8,1"
  6. 5 LN$="[192][192][192][192][192][192][192][192][192][192]":LN$="[150]"+LN$+LN$+LN$+LN$:SP$="                   ":SP$=SP$+SP$
  7. 6 POKE53280,12:POKE53281,0:Y=1:R$(0)="":R$(1)="[146][154]":X(0)=2:X(1)=22
  8. 8 READN:N=N-1:DIMS(N),F$(N),T(N),E$(N),C$(N)
  9. 10 FORI=0TON:READS(I),F$(I),T(I),E$(I),C$(I):NEXT
  10. 12 PRINT"[147]";CHR$(9)CHR$(142)CHR$(8):Y=0:SYSP,14,0:PRINT"[154][213][178][201][213][192][201][213][201][201][213] [201]"
  11. 13 SYSP,36,0:PRINT"[158]V3[158].0"
  12. 14 SYSP,14,1:PRINT"[221][221][221][171][192] [221][221][221][221] [221]"
  13. 16 SYSP,14,2:PRINT"[156][202] [203][202][192][203][202][202][203][202][192][203]":MX=15:IFMX>(N-G)THENMX=N-G
  14. 18 SYSP,8,4:PRINT"CREATED BY:  ROCKY MOORE":R=1:PRINTLN$
  15. 20 A$="COURTESY OF HACKER SOFTWARE INC."
  16. 21 X=20-LEN(A$)/2:SYSP,X,6:PRINT"[159]";A$
  17. 22 FORY=0TOMX:GOSUB50:NEXT:Y=0:SYSP,5,22:PRINT"[156]USE CURSOR KEY TO MOVE CURSOR"
  18. 24 SYSP,15,18:PRINT"[150]COMMENT[158]:"
  19. 26 SYSP,0,21:PRINTLN$
  20. 28 I=23:IFN>MXTHENI=24:SYSP,4,23:PRINT"[158]PRESS THE [N] KEY FOR NEXT PAGE"
  21. 30 SYSP,6,I:PRINT"[159]PRESS [RETURN] TO LOAD FILE":POKE198,0
  22. 32 R=(R+1)*-(R<1):GOSUB50:T=0
  23. 34 GETA$:T=T+1:IFA$=""ANDT<20THEN34
  24. 36 IFA$=""THENR=1:GOSUB50:Y=Y+1:GOSUB56:GOTO32
  25. 38 IFA$=""ANDY+8<MX+1THENR=1:GOSUB50:Y=Y+8:GOSUB56:GOTO32
  26. 40 IFA$="[145]"THENR=1:GOSUB50:Y=Y-1:GOSUB56:GOTO32
  27. 42 IFA$="[157]"ANDY-8=>0THENR=1:GOSUB50:Y=Y-8:GOSUB56:GOTO32
  28. 44 IFA$="N"THENG=(G+16)*-(G<=N-16):GOTO12
  29. 46 IFA$=CHR$(13)THEN62
  30. 48 GOTO32
  31. 50 RL=Y-(8*-(Y=>8)):SYSP,X(-(Y=>8)),RL+9:PRINTR$(R);LEFT$(F$(Y+G),16)
  32. 52 SYSP,1,20:A$=LEFT$(C$(Y+G),38):A=LEN(A$):B$=LEFT$(SP$,19-A/2)
  33. 54 PRINT"[146]";B$;A$;B$:RETURN
  34. 56 IFY>MXTHENY=0
  35. 58 IFY<0THENY=MX
  36. 60 RETURN
  37. 62 IFS(Y+G)THENSYS52256
  38. 64 PRINT"[147]LOAD";CHR$(34);F$(Y+G);CHR$(34);T$(T(Y+G)):PRINT"";E$(Y+G);CHR$(9);""
  39. 66 POKE631,13:POKE632,13:POKE198,2:END
  40. 68 :
  41. 70 :
  42. 98 REM 0=NO WARP/DRIVE   0= ",8"
  43. 100 DATA 7 :REM NUMBER FILENAMES
  44. 101 DATA 0,"NOTE FOR YOU", 1,"RUN","WRITTEN WITH YOU IN MIND !"
  45. 102 DATA 0,"MISFORTUNE PRV.", 1,"RUN","PLAYABLE DEMO WRITTEN BY M.COX"
  46. 103 DATA 0,"TIETEN          ", 1,"RUN","ORIGINAL SINGLE FILE DEMO"
  47. 104 DATA 0,"DARKTHRONE V1.0 ", 1,"RUN","UTILITY"
  48. 105 DATA 0,"MERMANS NOTE    ", 1,"RUN","NOTE ABOUT BLUES BROTHERS/SNACKMAN 2"
  49. 106 DATA 0,"BLUES BROS ALBUM", 1,"RUN","THE BOYS IN BLUE WITH 5 MUSIC TRACKS"
  50. 107 DATA 0,"SNACK MAN 2     ", 1,"RUN","A RE-VAMPED VERSION OF THE PD GAME"
  51. 299 :
  52. 300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8
  53.