home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD008B.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,"ORB EXAMPLES    ", 1,"RUN","3 FINE EXAMPLES OF ART"
  45. 102 DATA 0,"BELOVED 64  -PRV", 1,"RUN","MUSICAL PREVIEW BY JULIAN-ANTHONY"
  46. 103 DATA 0,"TOOLPAK I       ", 1,"RUN","UTILITY COMPILATION BY DERBYSHIRE RAM"
  47. 104 DATA 0,"HUMMING BIRD", 1,"RUN","PICTURE FROM 1986 BY GARRY MILTON"
  48. 105 DATA 0,"C-64 CALCULATOR", 1,"RUN","FOR THOSE OF YOU WHO CAN'T ADD UP !!"
  49. 106 DATA 0,"MENU PREVIEW", 1,"RUN","CRAZY NEWS MENU FROM CHERRY SOFTWARE"
  50. 107 DATA 0,"COOL NEW YEAR   ", 1,"RUN","SINGLE FILE DEMO BY CROSSLINE"
  51. 108 DATA 0,"HOUSEKEEPER", 1,"RUN","DISK UTILITY"
  52. 109 DATA 0,"HIV FINDER V3.1 ", 1,"RUN","VIRUS CHECKER"
  53. 299 :
  54. 300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8
  55.