home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD004B.D64 / menu (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  54 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 8 :REM NUMBER FILENAMES
  44. 101 DATA 0,"C.QUEST-INTRO", 0,"RUN","AN INTRO SCREEN BY PETER STAAKS"
  45. 102 DATA 0,"C.QUEST21/2 /PIC", 0,"RUN","TITLE SCREEN OF CONFUSING QUEST 2 1/2"
  46. 103 DATA 0,"C.Q21/2-INTRO", 0,"RUN","PETER STAAKS INTRO FOR 2 1/2 GAME"
  47. 104 DATA 0,"BONZIEED!!      ", 0,"RUN","CATCHY MUSIC DEMO WITH PICTURES"
  48. 105 DATA 0,"BASIC DEMO", 0,"RUN","TITLE SPEAKS FOR ITSELF !!"
  49. 106 DATA 0,"3D TANK", 0,"RUN","PD GAME"
  50. 107 DATA 0,"COMMODORE 3DMAZE", 0,"RUN","PD MAZE GAME"
  51. 108 DATA 0,"CRACKING COMPO", 0,"RUN","E.B.E.S. COMPETITION FOR PIRATES !!"
  52. 299 :
  53. 300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8
  54.