home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 4 / 004.d81 / memo-pad (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  150 lines
  1. 10 rem                                         --------------------------------
  2. 20 rem memo-pad by ian phillips 120784.        --------------------------------
  3. 30 rem written for the use of loadstar.    :
  4. 40 :                                       :
  5. 100 poke53281,240:poke53280,242:print"[147]"
  6. 101 print"[176][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][192][192][174]";
  7. 102 forl=1to3:print"[221]                                      [221]";:next
  8. 103 print"[173][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][192][192][189]";:gosub900
  9. 104 print"[176][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][174][176][192][192][192][192][192][192][192][192][192][192][192][174]";
  10. 105 print"[221]f1[146] background colours    [221][221]f7[146] exit    [221]";
  11. 106 print"[221]f3[146] view memos            [221][221]           [221]";
  12. 107 print"[221]f5[146] change/enter new memos[221][221]i[146]nstruction[221]";
  13. 109 print"[173][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][189][173][192][192][192][192][192][192][192][192][192][192][192][189]";
  14. 110 print"      [213][201][213][201][213][192][213][201][213][201][213][192][201] [213][192][201][213][192][201][176][192][201]"
  15. 120 print"     *[221][221][221][221][221][192][221][221][221][221][221]o[221]-[221][192][203][171][192][179][221]o[221]*"
  16. 130 print"      [221][202][203][221][202][192][221][202][203][221][202][192][203] [221][160][160][221][160][221][173][192][203]"
  17. 140 remprint"[218][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][192][192][179]";
  18. 141 :                                       :
  19. 145 clr:dim a$(500):a=1
  20. 150 open1,8,0,"memo's,s,w"
  21. 160 input#1,a$(a):ifa$(a)="end"then170
  22. 165 a=a+1:goto160
  23. 170 close1
  24. 180 rem                                  --------------------------------------
  25. 200 rem                                         -------------------------------
  26. 201 rem            menu                         -------------------------------
  27. 202 :                                       :
  28. 210 getg$:ifg$=""then210
  29. 220 ifg$="[133]"then400
  30. 230 ifg$="[134]"then500
  31. 240 ifg$="[135]"then600
  32. 261 ifg$="i"then800
  33. 262 ifg$="[136]"thenprint"[147]":poke53281,240:poke53280,242:goto63000
  34. 299 goto210
  35. 400 rem                                         -------------------------------
  36. 401 rem            change colours               -------------------------------
  37. 402 :                                       :
  38. 403 print"background colours"
  39. 410 x=int(253*rnd(1))+1:poke53281,x:poke53280,x+2
  40. 498 print"background colours"
  41. 499 goto210
  42. 500 rem                                         -------------------------------
  43. 501 rem            view memo pad                -------------------------------
  44. 502 :                                       :
  45. 503 print"view memos"
  46. 505 gosub900:m=0:a=0:print""
  47. 506 ifm=6thengosub900:m=0:print""
  48. 510 m=m+1:a=a+1:ifa$(a)="end"then 540
  49. 515 print""a$(a)""
  50. 520 getg$:ifg$="[134]"thengoto506
  51. 530 goto520
  52. 540 print"------------------------------------"
  53. 541 getg$:ifg$="[134]"thengoto598
  54. 542 goto541
  55. 598 print"view memos"
  56. 599 gosub900:goto210
  57. 600 rem                                         -------------------------------
  58. 601 rem            add/change memos             -------------------------------
  59. 602 :                                       :
  60. 603 print"change/enter new memos":gosub900
  61. 604 print"e[146]nter new memo's or c[146]hange old ones?"
  62. 605 getg$:ifg$="e"then655
  63. 606 ifg$<>"c"then605
  64. 607 a=0:m=0
  65. 608 gosub900:goto610
  66. 609 gosub900:m=0
  67. 610 gosub900:h$="":a=a+1
  68. 611 :
  69. 612 ifa$(a)="end"thena=a-1:goto670
  70. 613 print""a$(a):print"c[146]hange, l[146]eave or r[146]emove?"
  71. 615 getg$:ifg$=""then615
  72. 616 ifg$="c"thena$(a)="":goto630
  73. 617 ifg$="r"thena$(a)="":goto610
  74. 618 ifg$<>"l"then615
  75. 619 goto610
  76. 630 :
  77. 631 print"change to:":print"";
  78. 635 getg$:ifg$=chr$(20)thenm=m-2:goto642
  79. 636 ifg$=chr$(13)thena$(a)=h$:goto609
  80. 637 ifg$=""then635
  81. 638 ifasc(g$)>95then635
  82. 639 ifasc(g$)<31then635
  83. 640 ifasc(g$)=44then635
  84. 641 ifasc(g$)=34then635
  85. 642 m=m+1:h$=h$+g$:printg$;:ifm<>36then635
  86. 643 print:print"36 characters per line limit.":a$(a)=h$
  87. 644 getg$:ifg$<>chr$(13)then644
  88. 650 g$="":goto609
  89. 655 rem ******adding new memo's********
  90. 656 gosub900:print"enter new memo:":m=0:print"";:h$=""
  91. 657 getg$:ifg$=chr$(20)thenm=m-2:goto664
  92. 658 ifg$=chr$(13)thena$(a)=h$:goto670
  93. 659 ifg$=""then657
  94. 660 ifasc(g$)>95then657
  95. 661 ifasc(g$)<31then657
  96. 662 ifasc(g$)=44then657
  97. 663 ifasc(g$)=34then657
  98. 664 m=m+1:h$=h$+g$:printg$;:ifm<>36then657
  99. 665 print:print"36 characters per line limit.":a$(a)=h$
  100. 666 getg$:ifg$<>chr$(13)then666
  101. 667 g$=""
  102. 670 gosub900:print"any more new memo's? (y/n)"
  103. 671 getg$:ifg$="y"thena=a+1:goto655
  104. 672 ifg$<>"n"then671
  105. 673 a=a+1:a$(a)="end"
  106. 690 gosub900:open15,8,15
  107. 691 print#15,"s0:memo's"
  108. 692 close15,8,15
  109. 693 a=1:open1,8,1,"memo's,s,w"
  110. 694 print#1,a$(a)
  111. 695 ifa$(a)="end"then697
  112. 696 a=a+1:goto694
  113. 697 close1:gosub900
  114. 698 print"change/enter new memos"
  115. 699 goto145
  116. 800 rem                                         -------------------------------
  117. 801 rem            instructions                 -------------------------------
  118. 802 :                                       :
  119. 803 print"insructions"
  120. 810 print"";
  121. 840 print"[173][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][192][192][189]";
  122. 841 print"[176][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][192][192][174]";
  123. 842 print"[221]  instructions: the box at the bottom [221]";
  124. 843 print"[221]contains all your commands. they light[221]";
  125. 844 print"[221]up when being used. step by step      [221]";
  126. 846 print"[221]instructions are included throughout  [221]";
  127. 847 print"[221]it, so it's pretty easy. there are a  [221]";
  128. 848 print"[221]couple of things that you should know [221]";
  129. 849 print"[221]about this program. you can have 500  [221]";
  130. 850 print"[221]memo's with 36 characters each. if you[221]";
  131. 851 print"[221]make a copy of this program, also copy[221]";
  132. 852 print"[221]the sequential file "chr$(34)"memo's"chr$(34)" or you   [221]";
  133. 853 print"[221]will find the program won't work. make[221]";
  134. 854 print"[221]sure your disk is always in the drive.[221]";
  135. 855 print"[173][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][192][192][189]";
  136. 856 print"i[146]nsructions"
  137. 860 print"";
  138. 899 goto200
  139. 900 rem                                         -------------------------------
  140. 901 rem            clear memo board****         -------------------------------
  141. 902 :                                       :
  142. 910 print"";
  143. 940 print"[173][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][192][192][189]";
  144. 950 forl=1to13:print"                                        ";:next
  145. 955 print"                                        ";
  146. 960 print"";
  147. 999 return
  148. 63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  149. 63010 poke631,13:poke632,13:poke198,2:end
  150.