home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / COMMODOR / RECIP.ARC / MENU (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  2KB  |  88 lines
  1. 1 GOTO20
  2. 2 OPEN15,8,15:PRINT#15,"S0:MENU":CLOSE15:SAVE"MENU",8:END
  3. 20 FORA=679TO691:READB:POKEA,B:NEXT
  4. 30 DATA 120,169,49,141,20,03,169,234,141,21,03,88,96
  5. 100 POKE53280,0:POKE53281,0:BL$="                        ":Z=1
  6. 110 PRINT"[147][142] [150][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  7. 120 PRINT" [221]     DISK #PR22 -- RECIPE KEEPER    [221]"
  8. 130 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  9. 140 PRINT" [221]      WRITE FOR LATEST CATALOG!     [150][221]"
  10. 150 PRINT" [221]                                    [221]"
  11. 160 PRINT" [221]        PD SELECT                   [221]"
  12. 165 PRINT" [194]        4535 MERRYWOOD LANE         [194]"
  13. 167 PRINT" [194]        GASTONIA, NC  28052         [194]"
  14. 170 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  15. 200 REM  ** DATA STATEMENTS START AT 9000 AND 9500 RESPECTIVELY **
  16. 202 :
  17. 204 :
  18. 210 PN=4:REM ** NUMBER OF PROGRAMS ON DISK GOES HERE **
  19. 212 :
  20. 214 :
  21. 220 DIM PN$(PN):REM ** SET UP PROGRAM NAME ARRAY NOW (AT 9000) **
  22. 222 :
  23. 224 :
  24. 225 DIM PA$(PN):REM ** SET UP STARTING ADDRESS ARRAY NOW (AT 9500) **
  25. 226 :
  26. 228 :
  27. 230 FORA=1TOPN:READPN$(A):NEXT:REM ** READ NAMES **
  28. 232 :
  29. 234 :
  30. 240 FORA=1TOPN:READPA$(A):NEXT:REM ** READ PROGRAM STARTS **
  31. 300 PRINTSPC(7)"[159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  32. 310 PRINT"[159]"
  33. 320 B=Z:FORA=1TO8:PRINTSPC(7)"[221]";
  34. 330 IFB>PNTHENPRINTBL$"[221]":GOTO350
  35. 340 PRINTRIGHT$("   "+STR$(B),3)"  "LEFT$(PN$(B)+BL$,19)"[221]"
  36. 350 B=B+1
  37. 360 NEXT
  38. 370 PRINTSPC(7)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  39. 380 PRINTSPC(7)"[221] ENTER # & PRESS RETURN[159] [221]"
  40. 390 PRINTSPC(7)"[221]SPACEBAR GETS MORE NAMES[221]"
  41. 420 PRINTSPC(7)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  42. 500 VV$=""
  43. 505 PRINT "";
  44. 510 GETV$:
  45. 520 IFPEEK(789)=234THEN
  46. 530 IFV$=""THEN510
  47. 540 IFV$=CHR$(32)THEN600
  48. 550 IFV$=CHR$(13)THEN700
  49. 555 PRINT V$;
  50. 560 IFVAL(V$)<0ORVAL(V$)>9THEN500
  51. 570 VV$=VV$+V$:GOTO510
  52. 600 Z=Z+8:IFZ>PNTHENZ=1
  53. 610 GOTO310
  54. 700 VV=VAL(VV$)
  55. 705 FORMU=54272TO54296:POKEMU,0:NEXT:SYS679
  56. 710 PRINT"[147]LOAD"CHR$(34)PN$(VV)CHR$(34)",8,1":PRINTPA$(VV)
  57. 720 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
  58. 9000 DATA "RECIPE INFO"
  59. 9010 DATA "READ/WRITE"
  60. 9020 DATA "EDIT"
  61. 9030 DATA "COVER SHEET"
  62. 9500 DATA "RUN"
  63. 9510 DATA "RUN"
  64. 9520 DATA "RUN"
  65. 9530 DATA "RUN"
  66. 9540 DATA "RUN"
  67. 9550 DATA "RUN"
  68. 9560 DATA "RUN"
  69. 9570 DATA "RUN"
  70. 9580 DATA "RUN"
  71. 9590 DATA "RUN"
  72. 9600 DATA "RUN"
  73. 9610 DATA "RUN"
  74. 9620 DATA "RUN"
  75. 9630 DATA "RUN"
  76. 9640 DATA "RUN"
  77. 9650 DATA "RUN"
  78. 9660 DATA "RUN"
  79. 9670 DATA "RUN"
  80. 9680 DATA "RUN"
  81. 9690 DATA "RUN"
  82. 9700 DATA "RUN"
  83. 9710 DATA "RUN"
  84. 9720 DATA "RUN"
  85. 9730 DATA "RUN"
  86. 9740 DATA "RUN"
  87. 9750 DATA "RUN"
  88.