home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD010B.D64 / menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.2 KB  |  62 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 9 :REM NUMBER FILENAMES
  51. 101 DATA 0,"COMPUTER-S/XLCUS", 1,"RUN","DEMO WRITTEN BY PAUL KUBISZYN (XL)"
  52. 102 DATA 0,"[194]EKOLOGICAL/FTN[194]", 1,"RUN","DEMO BY FRACTION"
  53. 103 DATA 0,"PLUSHWORLD/+H   ", 1,"RUN","CLEVER DEMO BY PLUSH"
  54. 104 DATA 0,"SCREEN PACKER V2", 1,"RUN","UTILITY"
  55. 105 DATA 0,"DEPACKER V2/0900", 1,"RUN","UTILITY"
  56. 106 DATA 0,"SCREEN PACKER V4", 1,"RUN","UTILITY"
  57. 107 DATA 0,"DEPACKER V4/0900", 1,"RUN","UTILITY"
  58. 108 DATA 0,"TTS NEWS #4", 1,"RUN","TURBO TIGER SOFTWARE NEWS"
  59. 109 DATA 0,"EXPORT  DESIGNER", 1,"RUN","UTILITY"
  60. 299 :
  61. 300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8
  62.