30000 REM ********************
30010 REM * MODULE : NOTEPAD *
30020 REM * VAR: NA$,PO      *
30030 REM ********************
30040 PHI
30050 POKE53280,11:POKE53281,11:WINA3,12,5,16,15,7,0,"---------------- _-------"
30060 REM+"--------- _[155]   ENTER NOTE   _ SAVE NOTE-PAGE _ LOAD NOKE-PAGE "
30070 REM+"_      HELP!     _    DIRECTORY   _[158]      EXIT!      "
30080 FLASH"-[144]   NOTEPAD!   -"
30090 ACH12,9,16,11
30100 IFPO=6THEN:WCLOSE:SEC:PLI:RETURN
30110 IFPO=1THENGOSUB30170:GOTO30090
30120 IFPO=4THENGOSUB30180:GOTO30090
30130 IFPO=2THENGOSUB30250:PSAVENA$:GOTO30090
30140 IFPO=3THENGOSUB30250:PLOADNA$:GOTO30090
30150 IFPO=5THEN:SCOP:DIR:RWAIT:SCCL:GOTO30090
30160 GOTO30090
30170 POKE53280,0:POKE53281,0:PRINT"[155]":PAD:POKE53280,11:POKE53281,11:RETURN
30180 WINB3,3,3,20,15,1,0,"THE PAD-MODE GIVES  YOU THE OPPORTUNITY TO "
30190 REM+"WRITE DOWN NOTES AND SAVE/LOAD THEM  TO/FROM DISK. WHEN  ENTERING "
30200 REM+"KHE 'PAD'  FOR THE FIRST TIME  PRESS SHIFT/CLRHOME TO CLEAR THE"
30210 REM+" SCREEN! ALL C-64 COMMAND -  KEYS MAY BE USED._"
30220 REM+"PRESS 'ARROW-LEFT'  TO LEAVE THE WRITE  MODE._ "
30230 REM+"  PRESS ANY KEY..."
30240 RWAIT:WCLOSE:RETURN
30250 WINA1,2,22,36,1,7,0:TYPE40"[144][146]PLEASE ENTER NAME : ":DINPUT16,7,NA$
30260 WCLOSE:RETURN