home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD007B.D64 / menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.2 KB  |  55 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 9 :REM NUMBER FILENAMES
  44. 101 DATA 0,"BEAVIS&BUTTHEAD ", 1,"RUN","CARTOON FUN WITH SOUND EFFECTS"
  45. 102 DATA 0,"DISK MATE", 1,"RUN","UTILITY FOR DISK USERS"
  46. 103 DATA 0,"SUB DIR.SYS.V1.2", 1,"RUN","UTILITY FOR YOUR SUB DIRECTORIES"
  47. 104 DATA 0,"TINY.D.CAT.CREAT", 1,"RUN","CREATE YOUR OWN CATALOGUE DISK.XLCUS"
  48. 105 DATA 0,"RELAX #014/DEC95", 1,"RUN","IT'S THE NEW YEAR..WATCH AND LISTEN!"
  49. 106 DATA 0,"HACKERMIXX", 1,"RUN","2 MUSIC DEMOS FROM HACKERSOFT"
  50. 107 DATA 0,"PURE GENIUS!    ", 1,"RUN","MINE'S A PINT !! SLIDING PUZZLE DEMO"
  51. 108 DATA 0,"DISK/TAPE MASTER", 1,"RUN","UTILITY"
  52. 109 DATA 0,"  [194]HARD TRAXX [171][174]", 1,"RUN","MUSIC COLLECTION FROM ATTIC"
  53. 299 :
  54. 300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8
  55.