5 IFLL>0THEN60050
10 PRINT"[146][147]       [158]MULTISCREEN EDITOR"
20 A=53280:POKEA,0:POKEA+1,0
30 PRINT"GENERAL COMMANDS"
40 PRINT"[159]SAVE SLOT TO DISK"
50 PRINT"[159]LOAD SLOT FROM DISK"
60 PRINT"[159]EDIT A SCREEN"
70 PRINT"[159]MENU
80 [153]"OPEN1-5 RECALL A SLOT"
82 [153]"OPENQUIT"
90 [143] THESE ARE SPECIFIC TO THE EDITOR
100 [153]"EDITOR COMMANDS"
110 [153]"OPENRETURN TO END DRAWING"
120 [153]"USE OPENCURSOR KEYS TO MOVE"
130 [153]"OPENCOLOR, OPENINST/DEL, OPENCLR/HOME"
140 [153]"AND OPENREVERSE ON/OFF"
150 [153]"KEYS ALL WORK NORMALLY "
160 [153]""
170 AD[178]51715:  [143] BASE ADDRESS
180 PT[178]1
190 [151]198,0:[146]198,1:[161]A$:[143] MAIN LOOP
192 [139]A$[178]"Q"[167]60000
200 [139]A$[178]"S"[167]FL[178]0:[141]300: [143] SAVE SLOT TO DISK
210 [139]A$[178]"M"[167] [138]: [143] INSTRUCTIONS
220 [139]A$[178]"L"[167]FL[178]3:[141]300: [143] LOAD SLOT FROM DISK
230 [139]A$[178]"E"[167][141]440: [151]53280,0:  [143] EDITOR
240 [139]RF[178]1[167]RF[178]0:A$[178]"I":[137]210
250 AS[178][197](A$):[139]AS[178][177]1[175]AS[178][179]5[167][158]AD[170]6,1,AS:PT[178]AS
260 [137]190
270 [143] END OF MAIN LOOP
280 [143]
290 [143] LOAD OR SAVE A SCREEN TO A SLOT
300 [153]"LOAD"
305 NM$[178]""
310 [133]"WHAT IS THE SCREEN NAME";NM$
315 [139]NM$[178]""[167]300
320 [139]FL[178]3[167][153]"WHAT SLOT SHOULD IT BE STORED INTO ?";
330 [139]FL[178]0[167][153]"WHAT SLOT SHOULD IT BE SAVED FROM ?";
340 [161]TP$
350 TP[178][197](TP$)
360 [139]TP$[178]"*"[167][142]: [143] ABORT
370 [139]TP[177][178]1[175]TP[179][178]5[167]PT[178]TP:[153]TP:[137]390
380 [137]340
390 [158]AD[170]FL,PT,""[170]NM$
400 [158]AD[170]6,1,PT
410 [142] : [143] RETURN FROM LOAD/SAVE
420 [143]
430 [143] EDITOR
440 [151]53280,5
450 [153]"LOADDO YOU WISH TO EDIT A SCREEN IN MEMORY?"
455 [153]"OPENYWAITES/OPENNWAITO"
460 [161]D$
470 [139]D$[178]"N"[167]520
480 [139]D$[179][177]"Y"[167]460
490 EF[178]1:[153]"WHICH SLOT DO YOU WANT";
500 [133]SN:[139]SN[177][178]1[175]SN[179][178]5[167]520
510 [137]500
520 [153]"LOADWHICH SLOT IS THIS SCREEN FOR? 1-5";
525 [133]SL$:SL[178][197](SL$):[153]"LOAD";
530 [139]SL[179]1[176]SL[177]5[167]450
540 [139]EF[178]1[167]EF[178]0:[158]AD[170]6,1,SN
550 [153]"":[159]1,0:[132]1,A$:[160]1
560 [143] END OF EDITOR LOOP
570 [158]AD[170]6,0,SL:[142]
60000 [143]  QUIT
60010 [153]"LOADARE YOU SURE YOU WANT TO QUIT?"
60020 [151]198,0:[146]198,1:[161]A$
60030 [139]A$[179][177]"Y"[175]A$[179][177]"N"[167][151]53280,[187](1)[172]255:[137]60010
60040 [139]A$[178]"N"[167][138]
60050 :
60060 [139]LL[178]0[167]LL[178]1:[147]"ROMUSIC",8,1
63000 [147]"PAYLOAD CONNECT",8
63010 [128]