home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD010A.D64 / menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.7 KB  |  67 lines
  1. 0 REM       >MENU CREATOR V3.0<
  2. 1 :
  3. 2 POKE53265,100:PRINTCHR$(8)
  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$="[151]"+LN$+LN$+LN$+LN$:SP$="                ":SP$=SP$+SP$
  7. 6 POKE53280,0:POKE53281,0:Y=1:R$(0)="":R$(1)="[146]":X(0)=2:X(1)=22
  8. 7 PRINT""
  9. 8 READN:N=N-1:DIMS(N),F$(N),T(N),E$(N),C$(N)
  10. 10 FORI=0TON:READS(I),F$(I),T(I),E$(I),C$(I):NEXT
  11. 12 PRINT"[147]";CHR$(9)CHR$(142)CHR$(8):Y=0:SYSP,14,0
  12. 14 SYSP,14,1
  13. 16 SYSP,14,2:MX=15:IFMX>(N-G)THENMX=N-G
  14. 18 SYSP,7,4:R=1:
  15. 19 PRINT"[158]":
  16. 20 PRINT"[145][145]            [206][205][206][205] [207][183][170][205] [180][180] [170]    "
  17. 21 PRINT"[150]            [180]  [167] [207][183][170] [205][180][180] [170]    "
  18. 22 PRINT"[150]            [180]  [167] [204][175][170]  [180][205][175][206]    "
  19. 23 PRINT"[154][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  20. 24 PRINT"[154][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  21. 25 PRINT"[154][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][151]"
  22. 26 FORY=0TOMX:GOSUB50:NEXT:Y=0:SYSP,5,22:PRINT"[158]    USE JOYSTICK IN PORT 2"
  23. 27 PRINT"[158]    COMPUTER SCENE  P R E S E N T S"
  24. 28 SYSP,1,21:PRINTLN$
  25. 29 I=23:IFN>MXTHENI=24:SYSP,4,23
  26. 30 SYSP,3,I:PRINT" [150] PROGRAMMED BY VINCENZO MAINOLFI ":POKE198,0
  27. 31 PRINT"[154][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":POKE53265,27
  28. 32 R=(R+1)*-(R<1):GOSUB50:T=0
  29. 34 J2=127-PEEK(56320):T=T+1:IF(J2AND0)ANDT<20THEN34
  30. 36 IF(J2AND2)THENR=1:GOSUB50:Y=Y+1:GOSUB56:GOTO32
  31. 38 IF(J2AND8)ANDY+8<MX+1THENR=1:GOSUB50:Y=Y+8:GOSUB56:GOTO32
  32. 40 IF(J2AND1)THENR=1:GOSUB50:Y=Y-1:GOSUB56:GOTO32
  33. 42 IF(J2AND4)ANDY-8=>0THENR=1:GOSUB50:Y=Y-8:GOSUB56:GOTO32
  34. 44 IFA$="N"THENG=(G+16)*-(G<=N-16):GOTO12
  35. 46 IF(J2AND16)THEN62
  36. 48 GOTO32
  37. 50 RL=Y-(8*-(Y=>8)):SYSP,X(-(Y=>8)),RL+9
  38. 51 PRINTR$(R);LEFT$(F$(Y+G),16)
  39. 52 SYSP,1,20:A$=LEFT$(C$(Y+G),38):A=LEN(A$):B$=LEFT$(SP$,19-A/2)
  40. 54 PRINT"[151][146]";B$;"[159]";A$;"[151]";B$:RETURN
  41. 56 IFY>MXTHENY=0
  42. 58 IFY<0THENY=MX
  43. 60 RETURN
  44. 62 PRINT"[144]":IFS(Y+G)THENSYS52256
  45. 64 PRINT"[147]LOAD";CHR$(34);F$(Y+G);CHR$(34);T$(T(Y+G)):PRINT"";E$(Y+G);CHR$(9);""
  46. 66 POKE631,13:POKE632,13:POKE198,2:END
  47. 68 :
  48. 70 :
  49. 98 REM 0=NO WARP/DRIVE   0= ",8"
  50. 100 DATA 14 :REM NUMBER FILENAMES
  51. 101 DATA 0,"NOTE 4 YOU", 1,"RUN","TIME FOR THE EDITOR TO RAMBLE ON!"
  52. 102 DATA 0,"K'BUSTERS REMIX", 1,"RUN","A REMIX OF ROB HUBBARDS' CLASSIC"
  53. 103 DATA 0,"LORD MC SUN PRV.", 1,"RUN","PLAYABLE DEMO FROM CHERRY SOFTWARE"
  54. 104 DATA 0,"MC SUN TUNES    ", 1,"RUN","COLLECTION OF TUNES FROM THE GAME"
  55. 105 DATA 0,"KERNAL'S CHAOS!", 1,"RUN","CLASSIC COMPUNET GAME BY MIKE BERRY"
  56. 106 DATA 0,"HYP-CAPT'S LOG", 1,"RUN","INSTRUCTIONS FOR HYPERTANIC GAME"
  57. 107 DATA 0,"HYPERTANIC", 1,"RUN","READERS GAME WRITTEN BY H.HEMINGWAY"
  58. 108 DATA 0,"FLI-FRACMOUNTAIN", 1,"RUN","REALTIME FILLED FRACTAL LAND-MAKER"
  59. 109 DATA 0,"SUPERSORTER III ", 1,"RUN","UTILITY"
  60. 110 DATA 0,"RAP         /[O]", 1,"RUN","SYMPOSIUM '96 COMPETITION ENTRY"
  61. 111 DATA 0,"SHIT-MUSIC  /TMG", 1,"RUN","SYMPOSIUM '96 COMPETITION ENTRY"
  62. 112 DATA 0,"COSOWI  &  XAYNE", 1,"RUN","SYMPOSIUM '96 COMPETITION ENTRY"
  63. 113 DATA 0,"BETEST   /COSOWI", 1,"RUN","SYMPOSIUM '96 COMPETITION ENTRY"
  64. 114 DATA 0,"APOLLO 14-/UTURN", 1,"RUN","PLAYABLE PREVIEW OF GAME"
  65. 299 :
  66. 300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8
  67.