home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos59.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  47 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 1 :REM NUMBER FILENAMES
  44. 101 DATA 0,"E-Z.SEQ.READ", 1,"RUN","USE TO VIEW OR PRINT MANUAL"
  45. 299 :
  46. 300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8
  47.