100 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC.  ALL RIGHTS RESERVED.
110 GOSUB1560:GOTO1270
120 SYS52736:CLR:POKE53082,1:POKE53083,51
130 INPUT"[155][147]# OF SCREEN AREAS (2-100)";PA
140 IFPA<2ORPA>100THEN130
150 DIMPA(PA):PA(PA)=51
160 PRINT"[147]"TAB(15)"[155]VALUE:"
170 PRINTTAB(12)" CRSR [146] MOVE AREA":PRINTTAB(12)" RETURN [146] CONFIRM"
180 PRINTTAB(12)" E [146] EXIT TO MENU"
190 FORA=1102TO1982STEP80:POKEA,224:NEXT
200 PRINT"":FORA=2TO22STEP2:PRINTA"":NEXT:PRINT" 24"
210 FORC=PA-1TO1STEP-1
220 PRINT"[155]"TAB(12)"DEFINE AREA #"PA-C
230 Y=PA(C+1)
240 GOSUB370
250 PA(C)=Y:NEXT
260 PA(PA)=0
270 FORC=1TOPA-1:PA(C)=PA(C)+1:NEXT
280 SYS52736
290 PRINT"[147][155]NUMBER OF AREAS:"PA""
300 FORC=1TOPA-1:PRINT"[155]   AREA #"C"[157]:"PA(PA+1-C)"TO"PA(PA+1-(C+1))-1:NEXT
310 PRINT"[155]   AREA #"PA"[157]:"PA(1)"UP TO THE END."
320 INPUT"[155]  ARE YOU SURE (Y/N/E)  Y[157][157][157]";A$
330 IFA$="Y"THEN500
340 IFA$="N"THEN120
350 IFA$="E"THEN1270
360 GOTO290
370 SYS52992
380 IFY=254ANDC<PATHEN120
390 IFC<PA-1THENPOKE53082,Y:POKE53083,Y+1:Y=Y+1
400 GETA$
410 IFA$=""THENY=Y+1:POKE53083,PEEK(53083)+1
420 IFA$="[145]"THENY=Y-1:POKE53083,PEEK(53083)-1
430 IFA$=CHR$(13)THENRETURN
440 IFA$="E"THEN1270
450 IFY=1THENY=2:POKE53083,2
460 IFY=255THENY=254:POKE53083,254
470 IFC<PA-1THENIFY=PA(C+1)THENY=Y+1:POKE53083,PEEK(53083)+1
480 PRINT""TAB(21)Y"[157] "
490 GOTO400
500 INPUT"[147] HOW MANY ADDRESSES ARE YOU POKING";RE:IFRE<1 OR RE>255THEN500
510 INPUT" ARE YOU SURE (Y/N/E)  Y[157][157][157]";A$
520 IFA$="E"THEN1270
530 IFA$="N"THEN500
540 IFA$<>"Y"THENPRINT"[145][145][145]":GOTO510
550 DIMRE(RE,PA)
560 PRINT:FORC=1TORE
570 PRINT"[147] ADDRESS #"C;:INPUTRE(C,0)
580 IFRE(C,0)<0ORRE(C,0)>65535THEN570
590 PRINT:FORB=1TOPA
600 PRINT"  VALUE OF"RE(C,0)"FOR AREA #"B;:INPUT RE(C,B)
610 IF RE(C,B)<0 OR RE(C,B)>255 THENPRINT"[145][145]":GOTO600
620 NEXT
630 INPUT" ARE YOU SURE (Y/N/E)  Y[157][157][157]";A$
640 IFA$="N"THEN570
650 IFA$="E"THEN1270
660 IFA$<>"Y"THENPRINT"[145][145][145]":GOTO630
670 NEXT
680 PRINT"[147] ARE YOU USING ANOTHER IRQ":INPUT" ROUTINE (Y/N/E)  N[157][157][157]";A$
690 IFA$="N"THEN740
700 IFA$="E"THEN1270
710 IFA$<>"Y"THEN680
720 INPUT" ADDRESS OF THE JUMP";RS
730 IF RS<0 OR RS>65535 THENPRINT"[145][145][145][145]":GOTO720
740 PRINT"[147] WAIT A MOMENT, PLEASE..."
750 POKE 49182,PA
760 POKE 49223,PA-1
770 DI=49231
780 FORC=1 TO RE
790 POKE DI,141:DI=DI+1
800 POKE DI,RE(C,0)-INT(RE(C,0)/256)*256:DI=DI+1
810 POKE DI,INT(RE(C,0)/256)
820 DI=DI+4:NEXT
830 POKE DI,141:DI=DI+1
840 POKE DI,018:DI=DI+1
850 POKE DI,208:DI=DI+1
860 POKE DI,138:DI=DI+1
870 POKE DI,240:DI=DI+1
880 POKE DI,006:DI=DI+1
890 POKE DI,104:DI=DI+1
900 POKE DI,168:DI=DI+1
910 POKE DI,104:DI=DI+1
920 POKE DI,170:DI=DI+1
930 POKE DI,104:DI=DI+1
940 POKE DI,064:DI=DI+1
950 POKE DI,076:DI=DI+1
960 IF RS=0 THEN POKE DI,49:POKE DI+1,234:DI=DI+2:GOTO990
970 POKE DI,RS-INT(RS/256)*256:DI=DI+1
980 POKE DI,INT(RS/256):DI=DI+1
990 DD=DI:DI=49228
1000 FOR C=1 TO RE
1010 POKE DI,189:DI=DI+1
1020 B=DD+C*PA
1030 POKE DI,B-INT(B/256)*256:DI=DI+1
1040 POKE DI,INT(B/256)
1050 DI=DI+4:NEXTC
1060 POKE DI,189:DI=DI+1
1070 POKE DI,DD-INT(DD/256)*256:DI=DI+1
1080 POKE DI,INT(DD/256)
1090 POKE 49191,DD-INT(DD/256)*256
1100 POKE 49192,INT(DD/256)
1110 FORC=1TOPA
1120 POKE DD+C-1,ABS(PA(C)-1)
1130 NEXT C
1140 DD=DD+PA
1150 FORC=1 TO RE
1160 FORB=PA-1 TO 1 STEP-1
1170 POKE DD,RE(C,B):DD=DD+1
1180 NEXT
1190 POKE DD,RE(C,PA):DD=DD+1
1200 NEXT
1210 POKE49168,DD-INT(DD/256)*256:POKE49169,INT(DD/256)
1220 PRINT"  READY [146]"
1230 PRINT"[155] THE ROUTINE STARTS IN: 49170"
1240 PRINT" [155]AND ENDS IN:"DD
1250 PRINT" PRESS ANY KEY TO CONTINUE"
1260 POKE198,0:WAIT 198,1
1270 CLR:SYS52736
1280 PRINT"[147][155] SCREEN SPLITTER [146]"
1290 PRINTTAB(8)"F1[155]. CREATE INTERRUPT"
1300 PRINTTAB(8)"F3[155]. TURN ON"
1310 PRINTTAB(8)"F4[155]. TURN OFF"
1320 PRINTTAB(8)"F5[155]. SAVE INTERRUPT"
1330 PRINTTAB(8)"F7[155]. END"
1340 PRINTTAB(10)"SELECT YOUR OPTION"
1350 GETA$:IFA$=""THEN1350
1360 IFA$="[133]"THEN120
1370 IFA$="[134]"THENSYS49170
1380 IFA$="[138]"THENSYS52736:GOTO1270
1390 IFA$="[135]"THEN1420
1400 IFA$="[136]"THEN1520
1410 GOTO1350
1420 SYS52736
1430 INPUT"[147][155] NAME ";N$:IF N$="" THEN1270
1440 N$=LEFT$(N$,16)
1450 PRINT" SAVING..."
1460 FORT=1TOLEN(N$):POKE49151+T,ASC(MID$(N$,T,1)):NEXT
1470 POKE780,LEN(N$):POKE781,0:POKE782,192:SYS65469
1480 POKE780,1:POKE781,8:POKE782,255:SYS65466
1490 POKE251,16:POKE252,192
1500 POKE780,251:POKE781,PEEK(49168):POKE782,PEEK(49169):SYS65496
1510 GOTO1270
1520 INPUT"[155] ARE YOU SURE (Y/N)  Y[157][157][157]";A$
1530 IFA$="Y"THENEND
1540 IFA$="N"THEN1270
1550 PRINT"[145][145][145]":GOTO1520
1560 FORA=52992TO53085:READN:POKEA,N:POKEA-3822,N:NEXT
1570 FORA=52736TO52756:READN:POKEA,N:NEXT
1580 POKE49197,56:POKE49202,192:POKE49229,104:POKE49230,192
1590 POKE49235,102:POKE49236,192:RETURN
1600 DATA 120,169,127,141,13,220,169,1,141,26,208,169,2,133,2,169,27,141
1610 DATA 17,208,173,97,192,141,18,208,169,38,141,20,3,169,207,141,21,3
1620 DATA 88,96,173,25,208,141,25,208,41,1,240,25,198,2,16,4,169,1,133
1630 DATA 2,166,2,189,92,207,141,33,208,189,90,207,141,18,208,138,240,6
1640 DATA 104,168,104,170,104,64,76,49,234,0,0,1,2,0,1,234,0,1,2,0,1
1650 DATA 120,169,49,141,20,3,169,234,141,21,3,32,129,255,88,169,0,141,33,208,96
0