10 REM ****************************
   20 REM Amstrad Notebook Menu Master
   30 REM       By Tim Surtell
   40 REM ****************************
   50 REM NC200 Version 3.7
   60 REM Downloaded from Tim's NC Users' Site
   70 REM http://www.ncus.org.uk
   80 REM Incorporating 'Speed Show' for faster running.
   90 ONERROROSCLI("QUIT")
  100 CLS
  110 PRINTTAB(32,0)"Amstrad Notebook"TAB(29,2)CHR$17"M e n u    M a s t e r"CHR$18TAB(0,0)"Version 3.6"
  120 MOVE0,95:DRAW0,0:DRAW479,0:DRAW479,95:MOVE0,87:DRAW479,87:MOVE0,97:DRAW479,97:MOVE0,96:DRAW479,96
  130 PRINTTAB(0,4)CHR$14"(Q)uit    (E)dit    (F)ile   (B)BC BASIC   (A)bout                              "CHR$15
  140 DIMpn1$(30),pn2$(30),fn$(30),l$(30),in%(30)
  150 MOVE156,15:PLOT101,330,75:MOVE158,17:PLOT103,328,73:PROCSYM(2,165,52):PRINTTAB(31,8)CHR$17"Please wait..."CHR$18 TAB(27,10)"Loading menu."TAB(34,12)"Speed   Show":MOVE243,24:DRAW243,32:DRAW247,28:DRAW243,24:DRAW239,28:DRAW243,32
  160 ONERRORCLOSE#0:PROCERROR
  170 K=OPENIN("SSFILES.TXT")
  180 INPUT#K,num
  190 IF num=0 CLOSE#K:PROCEDIT:GOTO160
  200 FORI=1 TO num:INPUT#K,pn1$(I),pn2$(I),fn$(I),l$(I):NEXT
  210 CLOSE#K
  220 ONERRORCLOSE#0:GOTO270
  230 anum=0
  240 A=1
  250 K=OPENIN(fn$(A)):INPUT#K,DUMMY
  260 CLOSE#K:anum=anum+1:in%(anum)=A
  270 A=A+1
  280 IF A=num+1 GOTO300
  290 GOTO250
  300 ONERRORCLOSE#0:PROCERROR
  310 PRINTTAB(27,10)SPC26:VDU14:PRINTTAB(68,4)anum;:IF anum=1 PRINT;" file.":VDU15 ELSE PRINT;" files.":VDU15
  320 S=1:X=1:PROCSCREEN
  330 FORI=1 TO 32:G=INKEY(1):NEXT
  340 IF anum>0 MOVEX*96-85,8:PLOT102,X*96+1,24
  350 IF S+X>anum+1 AND anum>0 MOVEX*96-85,8:PLOT102,X*96+1,24:X=X-1:GOTO340
  360 G=INKEY(12000)
  370 IF anum>0 MOVEX*96-85,8:PLOT102,X*96+1,24
  380 IF G=-1 PROCIDLE:GOTO310
  390 IF G=242 AND X=1 AND S>4 S=S-4:PROCSCREEN:GOTO340
  400 IF G=243 AND X=4 AND S+X-1<anum S=S+4:PROCSCREEN:GOTO340
  410 IF G=242 AND X>1 X=X-1
  420 IF G=243 AND X<4 AND S+X<anum+1 X=X+1
  430 IF G=13 CHAIN fn$(in%(S+X-1))
  440 IF G=81 PROCQUIT
  450 IF G=70 PROCFILE:GOTO320
  460 IF G=69 PROCEDIT:GOTO320
  470 IF G=66 CLS:PRINT"Thank you for using "CHR$17;"Menu Master"CHR$18"..."''"BBC BASIC (NC200) Version 3.12"'"(C) Copyright R.T.Russell 1993":END
  480 IF G=65 PROCABOUT:GOTO320
  490 GOTO340
  500 END
  510 DEF PROCSCREEN
  520 MOVE1,1:PLOT103,478,86
  530 N=1
  540 FOR I=S TO S+3
  550   IF I=anum+1 I=S+3 GOTO670
  560   FORA=1 TO LEN(l$(in%(I)))/4
  570     x1=ASC(MID$(l$(in%(I)),A*4-3,1))-64
  580     y1=ASC(MID$(l$(in%(I)),A*4-2,1))-64
  590     x2=ASC(MID$(l$(in%(I)),A*4-1,1))-64
  600     y2=ASC(MID$(l$(in%(I)),A*4,1))-64
  610     MOVEN*96+x1-61,y1+35:DRAWN*96+x2-61,y2+35
  620   NEXT
  630   MOVEN*96-64,32:PLOT21,N*96-64,71:PLOT21,N*96-21,71:PLOT21,N*96-21,32:PLOT21,N*96-64,32
  640   PRINTTAB(N*16-14,13)pn1$(in%(I))TAB(N*16-14,14)pn2$(in%(I))
  650   MOVEN*6*16-87,6:DRAWN*6*16+3,6:DRAWN*6*16+3,26:DRAWN*6*16-87,26:DRAWN*6*16-87,6
  660   N=N+1
  670 NEXT
  680 ENDPROC
  690 DEF PROCFILE
  700 MOVE1,1:PLOT103,478,86
  710 PRINTTAB(2,6)"List of files contained on Menu Master..."TAB(2,7)CHR$17"Prog. num.   First title        Second title       Filename       In memory?"CHR$18
  720 VDU28,2,14,78,8:P=1
  730 FORI=1 TO num
  740   PRINTTAB(0);I TAB(13)pn1$(I)TAB(32)pn2$(I)TAB(51)fn$(I);
  750   T=FALSE
  760   FORA=1 TO anum
  770     IF in%(A)=I T=TRUE
  780   NEXT
  790   IF T=TRUE PRINTTAB(66);"Yes" ELSE PRINTTAB(66);"No"
  800   IF P=6 G=GET:P=1 ELSE P=P+1
  810 NEXT
  820 G=GET:VDU26
  830 ENDPROC
  840 DEF PROCEDIT
  850 MOVE1,1:PLOT103,478,86
  860 PRINTTAB(2,6)CHR$17"Editing menu..."CHR$18 TAB(2,8)"Press (E) to edit a program"TAB(2,9)"Press (M) to make a space"TAB(2,10)"Press (D) to delete a program"TAB(2,12)"Press ENTER to exit..."
  870 G$=GET$
  880 IF G$=CHR$13 ENDPROC
  890 IF G$="E" PROCEDPROG:PROCSAVE:RUN
  900 IF G$="M" PROCMAKESPACE:PROCSAVE:RUN
  910 IF G$="D" PROCDELETE:PROCSAVE:RUN
  920 GOTO870
  930 DEF PROCEDPROG
  940 MOVE1,1:PLOT103,478,86
  950 REPEAT:PRINTTAB(2,6)SPC40:INPUTTAB(2,6)"Type in the program number : "PROG:UNTIL PROG>0 AND PROG<num+2
  960 IF PROG>num num=PROG
  970 PRINTTAB(23,7)"*------------*"
  980 PRINTTAB(2,8)"Old first line was : ";pn1$(PROG):INPUTLINETAB(3,9)"New first line is : "d$:IF d$<>"" pn1$(PROG)=LEFT$(d$,16)
  990 PRINTTAB(1,10)"Old second line was : ";pn2$(PROG):INPUTLINETAB(2,11)"New second line is : "d$:IF d$<>"" pn2$(PROG)=LEFT$(d$,16)
 1000 PRINTTAB(4,12)"Old filename was : "fn$(PROG):INPUTLINETAB(5,13)"New filename is : "d$:IF d$<>"" fn$(PROG)=d$
 1010 PRINTTAB(4,14)"Change logo? (Y/N)":REPEAT:G$=GET$:UNTILG$="Y" OR G$="N":IF G$="N" ENDPROC
 1020 PRINTTAB(4,14)"New logo? (Y/N)   ":REPEAT:G$=GET$:UNTILG$="Y" OR G$="N"
 1030 PRINTTAB(38,11)"Edit logo using SPACEBAR..."
 1040 IF G$="Y" l$(PROG)=""
 1050 MOVE300,50:DRAW337,50:DRAW337,83:DRAW300,83:DRAW300,50
 1060 X=1:Y=1:GX=301:GY=51:line=FALSE
 1070 IF line=TRUE MOVEASC(MID$(l$(PROG),LEN(l$(PROG))-1,1))+236,ASC(RIGHT$(l$(PROG),1))-14
 1080 IF line=FALSE PLOT70,GX,GY ELSE PLOT6,GX,GY
 1090 G=GET
 1100 IF line=TRUE MOVEASC(MID$(l$(PROG),LEN(l$(PROG))-1,1))+236,ASC(RIGHT$(l$(PROG),1))-14
 1110 IF line=FALSE PLOT70,GX,GY ELSE PLOT6,GX,GY
 1120 IF G=240 AND Y<32 Y=Y+1:GY=GY+1
 1130 IF G=241 AND Y>1 Y=Y-1:GY=GY-1
 1140 IF G=242 AND X>1 X=X-1:GX=GX-1
 1150 IF G=243 AND X<36 X=X+1:GX=GX+1
 1160 IF G=32 AND line=FALSE line=TRUE:l$(PROG)=l$(PROG)+CHR$(X+64)+CHR$(Y+64):GOTO1190
 1170 IF G=32 AND line=TRUE line=FALSE:MOVEASC(MID$(l$(PROG),LEN(l$(PROG))-1,1))+236,ASC(RIGHT$(l$(PROG),1))-14:DRAWGX,GY:l$(PROG)=l$(PROG)+CHR$(X+64)+CHR$(Y+64)
 1180 IF G=13 ENDPROC
 1190 GOTO1070
 1200 DEF PROCSAVE
 1210 ONERRORCLOSE#0:PROCERROR
 1220 MOVE156,15:PLOT101,330,75:MOVE158,17:PLOT103,328,73:PROCSYM(2,165,52):PRINTTAB(31,8)CHR$17"Please wait..."CHR$18 TAB(28,11)"Saving menu."
 1230 K=OPENOUT("SSFILES.TXT")
 1240 PRINT#K,num
 1250 FORI=1 TO num
 1260   PRINT#K,pn1$(I),pn2$(I),fn$(I),l$(I)
 1270 NEXT
 1280 CLOSE#K
 1290 ONERROR PROCERROR
 1300 ENDPROC
 1310 DEF PROCMAKESPACE
 1320 MOVE1,1:PLOT103,478,86
 1330 REPEAT:INPUTTAB(2,6)"Make a space after program : "PROG:UNTILPROG>0 AND PROG<num+1
 1340 FORI=num TO PROG+1 STEP -1
 1350   pn1$(I+1)=pn1$(I):pn2$(I+1)=pn2$(I):fn$(I+1)=fn$(I):l$(I+1)=l$(I)
 1360 NEXT
 1370 pn1$(PROG+1)="***NO":pn2$(PROG+1)="PROGRAM***":fn$(PROG+1)="":l$(PROG+1)="":num=num+1
 1380 ENDPROC
 1390 DEF PROCDELETE
 1400 MOVE1,1:PLOT103,478,86
 1410 REPEAT:INPUTTAB(2,6)"DELETE program number : "PROG:UNTILPROG>0 AND PROG<num+1
 1420 FORI=PROG TO num
 1430   pn1$(I)=pn1$(I+1):pn2$(I)=pn2$(I+1):fn$(I)=fn$(I+1):l$(I)=l$(I+1)
 1440 NEXT
 1450 num=num-1
 1460 ENDPROC
 1470 DEF PROCIDLE
 1480 CLS
 1490 REPEAT
 1500   X=RND(16)*33-66:Y=RND(11)*13-26:X=X+(Y/13*3)
 1510   R=RND(4)
 1520   IF R>2 MOVEX+29,Y:DRAWX+18,Y:DRAWX+15,Y+3:MOVEX+14,Y+5:DRAWX+11,Y+8:DRAWX,Y+8:MOVEX+1,Y+11:DRAWX+1,Y+18:DRAWX+9,Y+18:DRAWX+9,Y+11:MOVEX+5,Y+18:DRAWX+5,Y+11:MOVEX+20,Y+2:DRAWX+20,Y+9:DRAWX+28,Y+9:DRAWX+28,Y+2:MOVEX+24,Y+9:DRAWX+24,Y+2
 1530   IF R<2 MOVEX+29,Y:PLOT7,X+18,Y:PLOT7,X+15,Y+3:MOVEX+14,Y+5:PLOT7,X+11,Y+8:PLOT7,X,Y+8:MOVEX+1,Y+11:PLOT7,X+1,Y+18:PLOT7,X+9,Y+18:PLOT7,X+9,Y+11
 1540   IF R<2 MOVEX+5,Y+18:PLOT7,X+5,Y+11:MOVEX+20,Y+2:PLOT7,X+20,Y+9:PLOT7,X+28,Y+9:PLOT7,X+28,Y+2:MOVEX+24,Y+9:PLOT7,X+24,Y+2
 1550 UNTILINKEY(5)<>-1
 1560 CLS:PRINTTAB(32,0)"Amstrad Notebook"TAB(29,2)CHR$17"M e n u    M a s t e r"CHR$18TAB(0,0)"Version 3.6"
 1570 MOVE0,95:DRAW0,0:DRAW479,0:DRAW479,95:MOVE0,87:DRAW479,87:MOVE0,97:DRAW479,97:MOVE0,96:DRAW479,96
 1580 PRINTTAB(0,4)CHR$14"(Q)uit    (E)dit    (F)ile   (B)BC BASIC   (A)bout                              "CHR$15
 1590 ENDPROC
 1600 DEF PROCERROR
 1610 VDU26
 1620 IF ERR=17 PROCQUIT:ENDPROC
 1630 MOVE156,15:PLOT101,330,75:MOVE158,17:PLOT103,328,73:PROCSYM(3,165,52):VDU7:PRINTTAB(31,8)CHR$17"An error has occured"CHR$18
 1640 IF ERR=214 OR ERR=222 PRINTTAB(28,10)"'SSFILES.TXT' not found...":GOTO1680
 1650 IF ERR=198 OR ERR=190 PRINTTAB(28,10)"File can not be created":GOTO1680
 1660 IF ERR=200 PRINTTAB(28,10)"File can not be closed":GOTO1680
 1670 PRINTTAB(28,10);:REPORT:PRINT;" @ line";ERL:END
 1680 PRINTTAB(28,12)"Press any key to exit...":G=GET:OSCLI("QUIT")
 1690 DEF PROCABOUT
 1700 CLS:PRINTTAB(24,3)"A m s t r a d    N o t e b o o k"
 1710 PRINTTAB(29,5)CHR$17"M e n u    M a s t e r"CHR$18
 1720 PRINTTAB(37,8)"-with-"TAB(34,10)"Speed   Show"TAB(34,12)"Version  3.6"TAB(30,13)"Written by Tim Surtell":MOVE243,40:DRAW243,48:DRAW247,44:DRAW243,40:DRAW239,44:DRAW243,48
 1730 MOVE140,10:DRAW140,114:DRAW340,114:DRAW340,10:DRAW140,10:MOVE139,9:PLOT21,139,115:PLOT21,341,115:PLOT21,341,9:PLOT21,139,9
 1740 MOVE173,78:DRAW306,78:MOVE182,75:PLOT21,297,75:MOVE191,72:PLOT21,288,72
 1750 G=INKEY(12000):IF G=-1 PROCIDLE
 1760 CLS:PRINTTAB(32,0)"Amstrad Notebook"TAB(29,2)CHR$17"M e n u    M a s t e r"CHR$18TAB(0,0)"Version 3.6"
 1770 MOVE0,95:DRAW0,0:DRAW479,0:DRAW479,95:MOVE0,87:DRAW479,87:MOVE0,97:DRAW479,97:MOVE0,96:DRAW479,96
 1780 PRINTTAB(0,4)CHR$14"(Q)uit    (E)dit    (F)ile   (B)BC BASIC   (A)bout                              "CHR$15
 1790 ENDPROC
 1800 DEF PROCSYM(S,xx,yy)
 1810 MOVExx+5,yy:DRAWxx+10,yy:DRAWxx+15,yy+5:DRAWxx+15,yy+10:DRAWxx+10,yy+15:DRAWxx+5,yy+15:DRAWxx,yy+10:DRAWxx,yy+5:DRAWxx+5,yy
 1820 IF S=1 MOVExx+7,yy+3:PLOT101,xx+8,yy+4:MOVExx+7,yy+6:DRAWxx+7,yy+8:DRAWxx+9,yy+10:DRAWxx+9,yy+11:DRAWxx+8,yy+12:DRAWxx+7,yy+12:DRAWxx+6,yy+11
 1830 IF S=2 MOVExx+7,yy+7:PLOT101,xx+8,yy+8:DRAWxx+11,yy+11:MOVExx+8,yy+7:DRAWxx+11,yy+4
 1840 IF S=3 MOVExx+7,yy+3:PLOT101,xx+8,yy+4:MOVExx+7,yy+6:PLOT101,xx+8,yy+12
 1850 ENDPROC
 1860 DEF PROCQUIT
 1870 MOVE156,25:PLOT101,330,75:MOVE158,27:PLOT103,328,73:PROCSYM(1,165,52):PRINTTAB(31,8)CHR$17"Do you want to quit?"CHR$18 TAB(28,10)"Press Y or N..."
 1880 REPEAT:G$=GET$:UNTILG$="Y" OR G$="N" OR G$=CHR$17
 1890 IF G$="Y" OSCLI("QUIT")
 1900 IF G$=CHR$17 PRINTTAB(28,11)"Programmer exit facility >":END
 1910 ENDPROC
 1920 DATA69,73,78,83,-1,84,69,73,78