10 REM                                         --------------------------------
20 REM MEMO-PAD BY IAN PHILLIPS 120784.        --------------------------------
30 REM WRITTEN FOR THE USE OF LOADSTAR.    :
40 :                                       :
100 POKE53281,240:POKE53280,242:PRINT"[147]"
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]";
102 FORL=1TO3:PRINT"[221]                                      [221]";:NEXT
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
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]";
105 PRINT"[221]F1[146] BACKGROUND COLOURS    [221][221]F7[146] EXIT    [221]";
106 PRINT"[221]F3[146] VIEW MEMOS            [221][221]           [221]";
107 PRINT"[221]F5[146] CHANGE/ENTER NEW MEMOS[221][221]I[146]NSTRUCTION[221]";
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]";
110 PRINT"      [213][201][213][201][213][192][213][201][213][201][213][192][201] [213][192][201][213][192][201][176][192][201]"
120 PRINT"     *[221][221][221][221][221][192][221][221][221][221][221]O[221]-[221][192][203][171][192][179][221]O[221]*"
130 PRINT"      [221][202][203][221][202][192][221][202][203][221][202][192][203] [221][160][160][221][160][221][173][192][203]"
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]";
141 :                                       :
145 CLR:DIM A$(500):A=1
150 OPEN1,8,0,"MEMO'S,S,W"
160 INPUT#1,A$(A):IFA$(A)="END"THEN170
165 A=A+1:GOTO160
170 CLOSE1
180 REM                                  --------------------------------------
200 REM                                         -------------------------------
201 REM            MENU                         -------------------------------
202 :                                       :
210 GETG$:IFG$=""THEN210
220 IFG$="[133]"THEN400
230 IFG$="[134]"THEN500
240 IFG$="[135]"THEN600
261 IFG$="I"THEN800
262 IFG$="[136]"THENPRINT"[147]":POKE53281,240:POKE53280,242:GOTO63000
299 GOTO210
400 REM                                         -------------------------------
401 REM            CHANGE COLOURS               -------------------------------
402 :                                       :
403 PRINT"BACKGROUND COLOURS"
410 X=INT(253*RND(1))+1:POKE53281,X:POKE53280,X+2
498 PRINT"BACKGROUND COLOURS"
499 GOTO210
500 REM                                         -------------------------------
501 REM            VIEW MEMO PAD                -------------------------------
502 :                                       :
503 PRINT"VIEW MEMOS"
505 GOSUB900:M=0:A=0:PRINT""
506 IFM=6THENGOSUB900:M=0:PRINT""
510 M=M+1:A=A+1:IFA$(A)="END"THEN 540
515 PRINT""A$(A)""
520 GETG$:IFG$="[134]"THENGOTO506
530 GOTO520
540 PRINT"------------------------------------"
541 GETG$:IFG$="[134]"THENGOTO598
542 GOTO541
598 PRINT"VIEW MEMOS"
599 GOSUB900:GOTO210
600 REM                                         -------------------------------
601 REM            ADD/CHANGE MEMOS             -------------------------------
602 :                                       :
603 PRINT"CHANGE/ENTER NEW MEMOS":GOSUB900
604 PRINT"E[146]NTER NEW MEMO'S OR C[146]HANGE OLD ONES?"
605 GETG$:IFG$="E"THEN655
606 IFG$<>"C"THEN605
607 A=0:M=0
608 GOSUB900:GOTO610
609 GOSUB900:M=0
610 GOSUB900:H$="":A=A+1
611 :
612 IFA$(A)="END"THENA=A-1:GOTO670
613 PRINT""A$(A):PRINT"C[146]HANGE, L[146]EAVE OR R[146]EMOVE?"
615 GETG$:IFG$=""THEN615
616 IFG$="C"THENA$(A)="":GOTO630
617 IFG$="R"THENA$(A)="":GOTO610
618 IFG$<>"L"THEN615
619 GOTO610
630 :
631 PRINT"CHANGE TO:":PRINT"";
635 GETG$:IFG$=CHR$(20)THENM=M-2:GOTO642
636 IFG$=CHR$(13)THENA$(A)=H$:GOTO609
637 IFG$=""THEN635
638 IFASC(G$)>95THEN635
639 IFASC(G$)<31THEN635
640 IFASC(G$)=44THEN635
641 IFASC(G$)=34THEN635
642 M=M+1:H$=H$+G$:PRINTG$;:IFM<>36THEN635
643 PRINT:PRINT"36 CHARACTERS PER LINE LIMIT.":A$(A)=H$
644 GETG$:IFG$<>CHR$(13)THEN644
650 G$="":GOTO609
655 REM ******ADDING NEW MEMO'S********
656 GOSUB900:PRINT"ENTER NEW MEMO:":M=0:PRINT"";:H$=""
657 GETG$:IFG$=CHR$(20)THENM=M-2:GOTO664
658 IFG$=CHR$(13)THENA$(A)=H$:GOTO670
659 IFG$=""THEN657
660 IFASC(G$)>95THEN657
661 IFASC(G$)<31THEN657
662 IFASC(G$)=44THEN657
663 IFASC(G$)=34THEN657
664 M=M+1:H$=H$+G$:PRINTG$;:IFM<>36THEN657
665 PRINT:PRINT"36 CHARACTERS PER LINE LIMIT.":A$(A)=H$
666 GETG$:IFG$<>CHR$(13)THEN666
667 G$=""
670 GOSUB900:PRINT"ANY MORE NEW MEMO'S? (Y/N)"
671 GETG$:IFG$="Y"THENA=A+1:GOTO655
672 IFG$<>"N"THEN671
673 A=A+1:A$(A)="END"
690 GOSUB900:OPEN15,8,15
691 PRINT#15,"S0:MEMO'S"
692 CLOSE15,8,15
693 A=1:OPEN1,8,1,"MEMO'S,S,W"
694 PRINT#1,A$(A)
695 IFA$(A)="END"THEN697
696 A=A+1:GOTO694
697 CLOSE1:GOSUB900
698 PRINT"CHANGE/ENTER NEW MEMOS"
699 GOTO145
800 REM                                         -------------------------------
801 REM            INSTRUCTIONS                 -------------------------------
802 :                                       :
803 PRINT"INSRUCTIONS"
810 PRINT"";
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]";
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]";
842 PRINT"[221]  INSTRUCTIONS: THE BOX AT THE BOTTOM [221]";
843 PRINT"[221]CONTAINS ALL YOUR COMMANDS. THEY LIGHT[221]";
844 PRINT"[221]UP WHEN BEING USED. STEP BY STEP      [221]";
846 PRINT"[221]INSTRUCTIONS ARE INCLUDED THROUGHOUT  [221]";
847 PRINT"[221]IT, SO IT'S PRETTY EASY. THERE ARE A  [221]";
848 PRINT"[221]COUPLE OF THINGS THAT YOU SHOULD KNOW [221]";
849 PRINT"[221]ABOUT THIS PROGRAM. YOU CAN HAVE 500  [221]";
850 PRINT"[221]MEMO'S WITH 36 CHARACTERS EACH. IF YOU[221]";
851 PRINT"[221]MAKE A COPY OF THIS PROGRAM, ALSO COPY[221]";
852 PRINT"[221]THE SEQUENTIAL FILE "CHR$(34)"MEMO'S"CHR$(34)" OR YOU   [221]";
853 PRINT"[221]WILL FIND THE PROGRAM WON'T WORK. MAKE[221]";
854 PRINT"[221]SURE YOUR DISK IS ALWAYS IN THE DRIVE.[221]";
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]";
856 PRINT"I[146]NSRUCTIONS"
860 PRINT"";
899 GOTO200
900 REM                                         -------------------------------
901 REM            CLEAR MEMO BOARD****         -------------------------------
902 :                                       :
910 PRINT"";
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]";
950 FORL=1TO13:PRINT"                                        ";:NEXT
955 PRINT"                                        ";
960 PRINT"";
999 RETURN
63000 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63010 POKE631,13:POKE632,13:POKE198,2:END