screen designer

Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » screen designer

screen designer

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64
Filename:	screen designer
Read OK:	✔
File size:	192E bytes
Load address:	0801
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Arnold website » magazines_cdu » magazines_cdu_cdu307_cdu307.d64 » screen designer
Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » screen designer

File contents

     5 REM"<del><del><del><del><del><del><lf><white> SCREEN DESIGNER  BY WILLIAM A CHRISTIE  <yellow>
    10 ON A GOTO 30,40
    20 A=1:LOAD"CRUNCH/DECR.MC",8,1
    30 A=2:LOAD"GETCHAR.MC",8,1
    40 POKE55,190:POKE56,47:CLR:REM END OF BASIC MEMORY=$3000-64
    50 V=53248:POKE2040,191:POKE650,128:POKE53280,6:POKE53281,0
    55 POKE1022,0:REM RESET SCREEN MEMORY
    60 REM POKE788,52:REM DISABLE RUN/STOP
    70 BASE=4096*4:A=BA:GOSUB 1510:BH=HB:BL=LB
    80 FORN=12224TON+63:POKEN,0:NEXT
    90 FORN=12224TON+23:READS:POKEN,S:NEXT
   100 DATA 255,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,255,0,0
   110 POKEV+21,0:PRINT"<clr><cursor down><cursor down>"TAB(12)"<white>SC<light gray>RE<medium gray>EN <white>DE<light gray>SI<medium gray>GN<dark gray>ER"
   115 PRINTTAB(12)"<red>▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔"
   116 PRINTTAB(10)"<orange>BY WILLIAM CHRISTIE"
   120 PRINTTAB(8)"<cursor down>FOR COMMODORE DISK USER"
   130 PRINT"<cursor down><cursor down><cursor down><cursor down>"TAB(7)"<light green>F1 <green>:ALTER BACKGROUND COLOUR"
   140 PRINTTAB(7)"<light green>F2 <green>:ALTER FOREGROUND COLOUR"
   150 PRINTTAB(7)"<light green>F3 <green>:ALTER CHARACTER COLOUR"
   160 PRINTTAB(7)"<light green>F5 <green>:SUBSTITUTE CHARACTER"
   170 PRINTTAB(7)"<light green>F7 <green>:MAIN MENU<cursor down><cursor down><cursor down>"
   180 TX$="<light blue>SCREEN NUMBER (1-255) ?:<cyan>":X=7:Y=17:GOSUB2000
   182 SN=S1:SN$=S1$:SL=S2:GOTO280
   280 PRINT"<clr>":POKE251,10:POKE252,10:POKE253,0:POKEV+21,1:SP=35:POKE56325,SP
   290 CR=32768:DC=33536:REM CRUNCH/DECR
   300 CL=51218:REM CLEARMID4LINES
   310 RE=51243:REM RETURNMID4LINES
   320 GC=50704:REM GETCHAR
   330 RC=51699:REM CHARACTER ROM COPY
   340 DS=51755:REM DELETE SCREEN
   360 LS=52011:REM LIST SCREEN NUMBERS
   362 RN=52126:REM RENUMBER
   365 AL=52199:REM ALTER SCREEN NUMBER
   370 POKEV+21,1:SYS GC:REM GETCHAR
   380 POKE781,10:POKE782,1:POKE783,0:SYS65520:POKEV+21,0
   390 PRINT"(";RIGHT$(SN$,SL);") ";"<reverse on>W<rev off>IPE <reverse on>C<rev off>RUNCH <reverse on>G<rev off>ET <reverse on>N<rev off>UM <reverse on>L<rev off> <reverse on>S<rev off> <reverse on>R<rev off>EN";
   391 PRINT"UM <reverse on>X<rev off>Y"
   400 PRINT" <reverse on>V<rev off> <reverse on>D<rev off>EL <reverse on>B<rev off>GN <reverse on>M<rev off>EM R<reverse on>A<rev off>M CO<reverse on>P<rev off>Y AL<reverse on>T<rev off> L<reverse on>I<rev off>ST MC<reverse on>O<rev off>L<reverse on>12<rev off>"
   410 GETT$:IFT$=""THEN410
   420 IF ASC(T$)=136THEN 410
   422 IF T$="R" ANDPEEK(1022)=1THEN2200
   424 IF T$="T" ANDPEEK(1022)=1THEN2300
   425 IF T$="C" THEN POKEV+21,1:GOTO 850
   430 IF T$<>"O" THEN 440
   431 GOTO 433
   432 GETT$:IFT$=""THEN432
   433 IFT$="O"ANDPEEK(53270)<>216 THEN POKE53270,216:SYS RE:GOTO435
   434 IFT$="O"ANDPEEK(53270)<>200 THEN POKE53270,200:SYS RE
   435 IF T$="1" THEN POKE53282,(PEEK(53282)AND15)+1
   436 IF T$="2" THEN POKE53283,(PEEK(53283)AND15)+1
   437 IF ASC(T$)<>13THEN432
   438 GOTO 370
   440 IF T$="W" THEN PRINT"<clr>":GOTO370
   450 IF T$="N" THEN 610
   460 IF T$="G" AND PEEK(1022)=1 THEN 720
   470 IF T$="P" THEN SYS RC:GOTO590
   480 IF T$="I" AND PEEK(1022)=1 THEN SYSLS:GOSUB1700:PRINT"<clr>":GOTO370
   490 IF T$="S" THEN 970
   500 IF T$="B" THEN 1550
   510 IF T$="L" THEN 1090
   520 IF T$="V" AND PEEK(1022)=1THEN 1250
   530 IF T$="M" THEN 1630
   550 IF T$="D" AND PEEK(1022)=1THEN 1750
   555 IF T$="X" THEN 2400
   560 IF T$<>"A" THEN 590
   570 IFPEEK(53272)=21 THEN POKE53272,31:GOTO590
   580 POKE53272,21
   590 SYS RE:REM RETURNMIN4LINES
   600 GOTO370
   609 REM *****SET SCREEN NUMBER**
   610 Y=13:X=7:TX$="ENTER SCREEN NUMBER :":GOSUB2000:POKEV+21,1
   620 SN=S1:SN$=S1$:SL=S2:SYSRE:GOTO370
   699 REM ********GET SCREEN******
   720 TX$="WHICH SCREEN NUMBER ?":X=7:Y=13:GOSUB2000
   800 A=S1:GOSUB1510:POKE820,LB:POKE821,HB:SYSRE
   810 SYS DC:IF(PEEK(2)AND1)=0THEN 370
   820 POKEV+21,0:POKE781,13:POKE782,1:POKE783,0:SYS65520
   830 PRINT"          SCREEN NOT FOUND!       "
   840 GOSUB1700:POKEV+21,1:SYSRE:GOTO370
   849 REM **********CRUNCH********
   850 IF SN=255 THEN PRINT"  NEXT SCREEN NUMBER>255 -ALTER NUMBER":GOTO610
   855 SYS RE:REM RETURNMIN4LINES
   860 A=SN:GOSUB1500:POKE820,LB:POKE821,HB
   880 POKEV+23,1:POKEV+29,1
   890 SYSCR:IF(PEEK(2)AND128)=0THEN900
   895 POKEV+23,0:POKEV+29,0:SYSCL:PRINTTAB(9)"<reverse on>OUT OF CRUNCH MEMORY"
   896 POKEV+21,0:GOTO1630
   900 SN=SN+1:SN$=STR$(SN):SL=LEN(SN$)-1:POKEV+23,0:POKEV+29,0:GOTO370
   950 :
   960 REM *** SAVE ****
   970 EL=PEEK(BASE)+1
   980 EH=PEEK(BASE+1)
   990 IF EL=256THENEL=0:EH=EH+1
  1000 GOSUB1170:IF F$=""THEN280
  1010 SYS57812F$,D,1:POKE193,BL:POKE194,BH:REM$4000=BASE
  1020 POKE174,EL:POKE175,EH:REM END
  1030 SYS62957:REM SAVE
  1040 INPUT"END (Y/N)";E$
  1050 IF E$="N"THEN280
  1060 END
  1070 :
  1080 REM **** LOAD *****
  1090 GOSUB 1170:IF F$=""THEN280
  1091 IF F$="$"THEN1900
  1100 POKE147,0:SYS57812F$,D,1:SYS62631
  1110 IF T$="T"THEN 1140
  1120 OPEN15,8,15:INPUT#15,Z1,Z$,Z2,Z3:CLOSE15
  1130 PRINT"<cursor down><cursor left>"Z1;Z$;Z2;Z3:GOSUB1700
  1140 POKE1022,1:GOTO280
  1150 :
  1160 REM ***GET LOAD/SAVE PARAMETERS***
  1170 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><reverse on>D<rev off>ISK OR <reverse on>T<rev off>APE   :";
  1180 GETT$:IFT$=""THEN1180
  1185 IF ASC(T$)=13THENRETURN
  1190 D=1:IF T$="D"THEN D=8:GOTO1210
  1200 IF T$<>"T"THEN 1180
  1210 PRINTT$:INPUT"ENTER FILENAME :<cursor left><cursor left>";F$
  1220 RETURN
  1230 :
  1240 REM **VIEW ALL/SELECTED SCREENS**
  1250 POKE53280,9:POKE53281,9
  1270 PRINT"<clr><cursor down><cursor down><cursor down><cursor down>"TAB(6)"<white>VIEW ALL/SELECTED SCREENS"
  1280 PRINTTAB(6)"<light gray>🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂🮂<light green>"
  1290 TX$="<white>ENTER START SCREEN<yellow> :":X=8:Y=10:GOSUB2000:S=S1
  1300 TX$="<white>ENTER  END  SCREEN<yellow> :":X=8:Y=11:GOSUB2000:E=S1:PRINT
  1320 IF S>ETHEN 1290
  1330 PRINTTAB(4);:PRINT"<cursor down><white>PRESS 'RETURN' FOR NEXT SCREEN"
  1340 PRINTTAB(10);:PRINT"PRESS 'E' TO EXIT<cursor down><cursor down>"
  1350 PRINTTAB(6)"<cursor down><cursor down><white>PRESS 'C' FOR FIRST SCREEN"
  1360 PRINTTAB(10)"<white>PRESS 'X' TO CORECT"
  1370 GETK$:IFK$=""THEN1370
  1380 IF K$="C"THEN1410
  1390 IF K$="X"THEN1270
  1400 GOTO 1370
  1410 A=S:AS=SN:PRINT"<clr>"
  1420 GOSUB 1510:POKE820,LB:POKE821,HB
  1430 SYS DC:IF A=ETHENSN=AS:GOTO370
  1440 IF (PEEK(2)AND1)=1THENA=A+1:GOTO1420
  1450 GETT$:IFT$=""THEN1450
  1460 IF T$="E"THEN SN=AS:GOTO370
  1470 IF T$="C"THEN 1450
  1480 A=A+1:GOTO 1420
  1490 :
  1500 REM ****CONVERT TO 2 BYTE VAL****
  1510 HB=INT(A/256):LB=A-(HB*256):RETURN
  1520 :
  1530 REM **INITIALISE SCREEN POINTER***
  1540 REM *****TO START OF MEMORY*******
  1550 PRINTTAB(9)"<cursor up><reverse on>ARE YOU SURE (Y/N)<rev off>"
  1560 GETY$:IFY$=""THEN1560
  1570 IF Y$="N"THEN SYS RE:GOTO370
  1580 IF Y$<>"Y"THEN1560
  1590 PRINTTAB(16)"O.K."
  1600 GOSUB1700:SYS RE:POKE1022,0:GOTO370
  1610 :
  1620 REM ****PRINT MEMORY USED****
  1630 IF PEEK(1022)=0THENL=BA:GOTO1650
  1640 L=PEEK(BA)+PEEK(BA+1)*256
  1650 PRINTTAB(5)"NEXT SCREEN AT"L"($";
  1660 L=L/4096:FORJ=1TO4:L%=L:L$=CHR$(48+L%-(L%>9)*7)
  1670 PRINTL$;:L=16*(L-L%):NEXT:PRINT")":GOSUB 1700:SYS RE:GOTO370
  1680 :
  1690 REM *****WAIT FOR KEYPRESS****
  1700 FORT=1TO500:NEXT:POKE198,0
  1710 GETR$:IFR$=""THEN1710
  1720 RETURN
  1730 :
  1740 REM *****DELETE SCREEN****
  1750 X=3:Y=13:TX$="DELETE WHICH SCREEN(S) :":GOSUB2100
  1760 A=VAL(A$):IF A=13 OR A=0 THEN SYSRE:GOTO370
  1770 LA=LEN(A$):FORN=1TOLA:IF MID$(A$,N,1)="-"THEN1790
  1780 NEXT:N1=A:N2=A:GOTO1820
  1790 N1=VAL(MID$(A$,1,N-1))
  1800 N2=VAL(MID$(A$,N+1,LEN(A$)-N))
  1810 N=LA:IF N2=0THENN2=SN-1:REM "NUM-"
  1820 FORN=N1TON2:A=N:GOSUB1510:POKE820,LB:POKE821,HB:SYSDS:NEXT:SYSRE:GOTO370
  1828 :
  1898 :
  1899 REM ****READ DISK DIRECTORY*****
  1900 OPEN1,8,0,"$"
  1905 GET#1,Z$,Z$
  1910 GET#1,Z$,Z$,Z$,Z$
  1920 IF ST THEN CLOSE 1:GOSUB1700:GOTO370
  1924 GET#1,Z$:IFZ$=""THENPRINT:GOTO1910
  1930 IF Z$=CHR$(34)THENQ=NOT Q
  1950 IF Q THEN PRINTZ$;
  1960 GOTO 1924
  1998 :
  1999 REM ****GET NUMERIC INPUT*****
  2000 POKE781,Y:POKE782,0:POKE783,0:SYS65520:POKEV+21,0:POKE650,0
  2010 PRINT"                                       ":TT$=""
  2020 POKE781,Y:POKE782,X:POKE783,0:SYS65520:PRINTTX$;:IFF=1THENRETURN
  2030 GETT$:IFT$=""THEN2030
  2035 IF T$="←"THEN 2000
  2040 IF ASC(T$)=13 THEN 2090
  2060 IF ASC(T$)<48 OR ASC(T$)>57 THEN2030
  2070 IF LEN(TT$)=6 THEN2000
  2080 TT$=TT$+T$:PRINTT$;:GOTO2030
  2090 S1=VAL(TT$):IF S1>255 OR S1<1 THEN2000
  2093 S1$=STR$(S1):S2=LEN(S1$)-1:POKE650,128:RETURN
  2098 :
  2099 REM *****GET STRING INPUT******
  2100 F=1:A$="":GOSUB 2000
  2110 GETT$:IFT$=""THEN2110
  2115 T=ASC(T$)
  2120 IF T$="←" THEN 2100
  2130 IF T=13 THEN F=0:POKE650,128:RETURN
  2135 IF T>47 AND T<58 OR T$="-" THEN 2150
  2140 GOTO2110
  2150 A$=A$+T$:IFLEN(A$)<12THENPRINTT$;:GOTO2110
  2160 GOTO2100
  2198 :
  2199 REM *****RENUMBER*****
  2200 TX$="RENUMBER INCREMENT :":X=7:Y=13:GOSUB2000
  2210 POKE695,S1:SYSRN:SYSRE:GOTO370
  2298 :
  2299 REM ****ALTER SCREEN NUMBER***
  2300 TX$="TARGET SCREEN NUMBER :":X=5:Y=12:GOSUB2000:A=S1:GOSUB1510
  2310 POKE 820,LB:POKE821,HB
  2320 TX$="NEW SCREEN NUMBER    :":X=5:Y=13:GOSUB2000:A=S1:GOSUB1510
  2330 POKE 695,LB:POKE696,HB
  2340 SYS AL:IF(PEEK(2)AND1)=0THENSYSRE:GOTO370
  2350 SYSRE:GOTO820
  2390 :
  2391 REM ****PRINT CRSR CO-ORDS***
  2400 A=1024+PEEK($02B2)+40*PEEK($02B3):GOSUB1510
  2405 F=1:TX$="HB=":X=12:Y=12:GOSUB2000:PRINTHB;"LB=";LB
  2410 GOSUB1700:SYSRE:F=0:GOTO370

:�"� SCREEN DESIGNER  BY WILLIAM A CHRISTIE  �J
� A � 30,40hA�1:�"CRUNCH/DECR.MC",8,1�A�2:�"GETCHAR.MC",8,1�(�55,190:�56,47:�:� END OF BASIC MEMORY=$3000-64�2V�53248:�2040,191:�650,128:�53280,6:�53281,0		7�1022,0:� RESET SCREEN MEMORY/	<� POKE788,52:REM DISABLE RUN/STOPW	FBASE�4096�4:A�BA:� 1510:BH�HB:BL�LBp	P�N�12224�N�63:�N,0:��	Z�N�12224�N�23:�S:�N,S:��	d� 255,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,255,0,0
n�V�21,0:�"�"�12)"SC�RE�EN DE�SI�GN�ER"
s��12)"���������������"=
t��10)"�BY WILLIAM CHRISTIE"`
x��8)"FOR COMMODORE DISK USER"�
��""�7)"�F1 :ALTER BACKGROUND COLOUR"�
���7)"�F2 :ALTER FOREGROUND COLOUR"�
���7)"�F3 :ALTER CHARACTER COLOUR"���7)"�F5 :SUBSTITUTE CHARACTER"���7)"�F7 :MAIN MENU"S�TX$�"�SCREEN NUMBER (1-255) ?:�":X�7:Y�17:�2000p�SN�S1:SN$�S1$:SL�S2:�280��"�":�251,10:�252,10:�253,0:�V�21,1:SP�35:�56325,SP�"CR�32768:DC�33536:� CRUNCH/DECR�,CL�51218:� CLEARMID4LINES	6RE�51243:� RETURNMID4LINES @GC�50704:� GETCHARBJRC�51699:� CHARACTER ROM COPY_TDS�51755:� DELETE SCREEN�hLS�52011:� LIST SCREEN NUMBERS�jRN�52126:� RENUMBER�mAL�52199:� ALTER SCREEN NUMBER�r�V�21,1:� GC:� GETCHAR
|�781,10:�782,1:�783,0:�65520:�V�21,0F
��"(";�(SN$,SL);") ";"W�IPE C�RUNCH G�ET N�UM L� S� R�EN";U
��"UM X�Y"�
��" V� D�EL B�GN M�EM RA�M COP�Y ALT� LI�ST MCO�L12�"�
��T$:�T$�""�410�
�� �(T$)�136� 410�
�� T$�"R" ��(1022)�1�2200�
�� T$�"T" ��(1022)�1�2300�� T$�"C" � �V�21,1:� 850+�� T$��"O" � 4405�� 433H��T$:�T$�""�432y��T$�"O"��(53270)��216 � �53270,216:� RE:�435���T$�"O"��(53270)��200 � �53270,200:� RE��� T$�"1" � �53282,(�(53282)�15)�1��� T$�"2" � �53283,(�(53283)�15)�1�� �(T$)��13�432�� 370(�� T$�"W" � �"�":�370;�� T$�"N" � 610Z�� T$�"G" � �(1022)�1 � 720s�� T$�"P" � � RC:�590��� T$�"I" � �(1022)�1 � �LS:�1700:�"�":�370��� T$�"S" � 970��� T$�"B" � 1550��� T$�"L" � 1090�� T$�"V" � �(1022)�1� 1250� T$�"M" � 1630/&� T$�"D" � �(1022)�1� 1750C+� T$�"X" � 2400W0� T$��"A" � 590y:��(53272)�21 � �53272,31:�590�D�53272,21�N� RE:� RETURNMIN4LINES�X�370�a� *****SET SCREEN NUMBER**bY�13:X�7:TX$�"ENTER SCREEN NUMBER :":�2000:�V�21,1"lSN�S1:SN$�S1$:SL�S2:�RE:�370A�� ********GET SCREEN******p�TX$�"WHICH SCREEN NUMBER ?":X�7:Y�13:�2000� A�S1:�1510:�820,LB:�821,HB:�RE�*� DC:�(�(2)�1)�0� 370�4�V�21,0:�781,13:�782,1:�783,0:�65520>�"          SCREEN NOT FOUND!       "H�1700:�V�21,1:�RE:�370:Q� **********CRUNCH********xR� SN�255 � �"  NEXT SCREEN NUMBER>255 -ALTER NUMBER":�610�W� RE:� RETURNMIN4LINES�\A�SN:�1500:�820,LB:�821,HB�p�V�23,1:�V�29,1�z�CR:�(�(2)�128)�0�900�V�23,0:�V�29,0:�CL:��9)"OUT OF CRUNCH MEMORY"&��V�21,0:�1630]�SN�SN�1:SN$��(SN):SL��(SN$)�1:�V�23,0:�V�29,0:�370c�:w�� *** SAVE ****��EL��(BASE)�1��EH��(BASE�1)��� EL�256�EL�0:EH�EH�1���1170:� F$�""�280���57812F$,D,1:�193,BL:�194,BH:�$4000=BASE��174,EL:�175,EH:� END"�62957:� SAVE6�"END (Y/N)";E$G� E$�"N"�280M$�S.:i8� **** LOAD *****�B� 1170:� F$�""�280�C� F$�"$"�1900�L�147,0:�57812F$,D,1:�62631�V� T$�"T"� 1140�`�15,8,15:�15,Z1,Z$,Z2,Z3:�15j�"�"Z1;Z$;Z2;Z3:�1700t�1022,1:�280~:<�� ***GET LOAD/SAVE PARAMETERS***a��"�D�ISK OR T�APE   :";u��T$:�T$�""�1180��� �(T$)�13����D�1:� T$�"D"� D�8:�1210��� T$��"T"� 1180���T$:�"ENTER FILENAME :��";F$�����:�� **VIEW ALL/SELECTED SCREENS**��53280,9:�53281,9I��"�"�6)"VIEW ALL/SELECTED SCREENS"o��6)"���������������������������"�
TX$�"ENTER START SCREEN� :":X�8:Y�10:�2000:S�S1�TX$�"ENTER  END  SCREEN� :":X�8:Y�11:�2000:E�S1:��(� S�E� 12902��4);:�"PRESS 'RETURN' FOR NEXT SCREEN";<��10);:�"PRESS 'E' TO EXIT"cF��6)"PRESS 'C' FOR FIRST SCREEN"�P��10)"PRESS 'X' TO CORECT"�Z�K$:�K$�""�1370�d� K$�"C"�1410�n� K$�"X"�1270�x� 1370��A�S:AS�SN:�"�"��� 1510:�820,LB:�821,HB�� DC:� A�E�SN�AS:�370+�� (�(2)�1)�1�A�A�1:�1420?��T$:�T$�""�1450X�� T$�"E"� SN�AS:�370k�� T$�"C"� 1450|�A�A�1:� 1420��:��� ****CONVERT TO 2 BYTE VAL****��HB��(A�256):LB�A�(HB�256):���:��� **INITIALISE SCREEN POINTER***� *****TO START OF MEMORY*******6��9)"�ARE YOU SURE (Y/N)�"J�Y$:�Y$�""�1560b"� Y$�"N"� � RE:�370u,� Y$��"Y"�1560�6��16)"O.K."�@�1700:� RE:�1022,0:�370�J:�T� ****PRINT MEMORY USED****�^� �(1022)�0�L�BA:�1650�hL��(BA)��(BA�1)�256r��5)"NEXT SCREEN AT"L"($";G|L�L�4096:�J�1�4:L%�L:L$��(48�L%�(L%�9)�7)t��L$;:L�16�(L�L%):�:�")":� 1700:� RE:�370z�:��� *****WAIT FOR KEYPRESS****���T�1�500:�:�198,0���R$:�R$�""�1710�����:��� *****DELETE SCREEN**** �X�3:Y�13:TX$�"DELETE WHICH SCREEN(S) :":�2100D�A��(A$):� A�13 � A�0 � �RE:�370n�LA��(A$):�N�1�LA:� �(A$,N,1)�"-"�1790���:N1�A:N2�A:�1820��N1��(�(A$,1,N�1))�N2��(�(A$,N�1,�(A$)�N))�N�LA:� N2�0�N2�SN�1:� "NUM-"
�N�N1�N2:A�N:�1510:�820,LB:�821,HB:�DS:�:�RE:�370$:j:<k� ****READ DISK DIRECTORY*****Kl�1,8,0,"$"Yq�#1,Z$,Z$mv�#1,Z$,Z$,Z$,Z$��� ST � � 1:�1700:�370���#1,Z$:�Z$�""��:�1910��� Z$��(34)�Q�� Q��� Q � �Z$;��� 1924��:��� ****GET NUMERIC INPUT*****&��781,Y:�782,0:�783,0:�65520:�V�21,0:�650,0\��"                                       ":TT$�""���781,Y:�782,X:�783,0:�65520:�TX$;:�F�1�����T$:�T$�""�2030��� T$�"_"� 2000��� �(T$)�13 � 2090�� �(T$)�48 � �(T$)�57 �2030�� �(TT$)�6 �2000 TT$�TT$�T$:�T$;:�20309*S1��(TT$):� S1�255 � S1�1 �2000^-S1$��(S1):S2��(S1$)�1:�650,128:�d2:�3� *****GET STRING INPUT******�4F�1:A$�"":� 2000�>�T$:�T$�""�2110�CT��(T$)�H� T$�"_" � 2100�R� T�13 � F�0:�650,128:�
W� T�47 � T�58 � T$�"-" � 2150\�21109fA$�A$�T$:��(A$)�12��T$;:�2110Cp�2100I�:b�� *****RENUMBER*****��TX$�"RENUMBER INCREMENT :":X�7:Y�13:�2000���695,S1:�RN:�RE:�370��:��� ****ALTER SCREEN NUMBER*** �TX$�"TARGET SCREEN NUMBER :":X�5:Y�12:�2000:A�S1:�1510  	� 820,LB:�821,HB[ 	TX$�"NEW SCREEN NUMBER    :":X�5:Y�13:�2000:A�S1:�1510p 	� 695,LB:�696,HB� $	� AL:�(�(2)�1)�0��RE:�370� .	�RE:�820� V	:� W	� ****PRINT CRSR CO-ORDS***� `	A�1024��($02B2)�40��($02B3):�1510!e	F�1:TX$�"HB=":X�12:Y�12:�2000:�HB;"LB=";LB-!j	�1700:�RE:F�0:�370

:HE@."TTTTTT.E screen designer  by william a christie  .@jHJ@. a . 30,40@HHT@a.1:."crunch/decr.mc",8,1@.H.@a.2:."getchar.mc",8,1@.H(@.55,190:.56,47:.:. end of basic memory=$3000-64@.H2@v.53248:.2040,191:.650,128:.53280,6:.53281,0@II7@.1022,0:. reset screen memory@/I<@. poke788,52:rem disable run/stop@wIf@base.4096.4:a.ba:. 1510:bh.hb:bl.lb@PIp@.n.12224.n.63:.n,0:.@.Iz@.n.12224.n.23:.s:.n,s:.@.ID@. 255,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,255,0,0@AJN@.v.21,0:.".QQ".12)"Esc.re.en Ede.si.gn.er"@]JS@..12)"£..............."@=JT@..10)".by william christie"@.JX@..8)"Qfor commodore disk user"@.J.@."QQQQ".7)".f1 .:alter background colour"@.J.@..7)".f2 .:alter foreground colour"@.J.@..7)".f3 .:alter character colour"@BK.@..7)".f5 .:substitute character"@.K.@..7)".f7 .:main menuQQQ"@sK.@tx$.".screen number (1-255) ?:.":x.7:y.17:.2000@PK.@sn.s1:sn$.s1$:sl.s2:.280@.KXA.".":.251,10:.252,10:.253,0:.v.21,1:sp.35:.56325,sp@.K"Acr.32768:dc.33536:. crunch/decr@.K,Acl.51218:. clearmid4lines@IL6Are.51243:. returnmid4lines@ L@Agc.50704:. getchar@bLjArc.51699:. character rom copy@.LtAds.51755:. delete screen@.LHAls.52011:. list screen numbers@.LJArn.52126:. renumber@.LMAal.52199:. alter screen number@.LRA.v.21,1:. gc:. getchar@AM.A.781,10:.782,1:.783,0:.65520:.v.21,0@fM.A."(";.(sn$,sl);") ";"Rw.ipe Rc.runch Rg.et Rn.um Rl. Rs. Rr.en";@uM.A."um Rx.y"@.M.A." Rv. Rd.el Rb.gn Rm.em rRa.m coRp.y alRt. lRi.st mcRo.lR12."@.M.A.t$:.t$."".410@.M.A. .(t$).136. 410@.M.A. t$."r" ..(1022).1.2200@.M.A. t$."t" ..(1022).1.2300@WN.A. t$."c" . .v.21,1:. 850@+N.A. t$.."o" . 440@5N.A. 433@hN.A.t$:.t$."".432@YN.A.t$."o"..(53270)..216 . .53270,216:. re:.435@.N.A.t$."o"..(53270)..200 . .53270,200:. re@.N.A. t$."1" . .53282,(.(53282).15).1@.N.A. t$."2" . .53283,(.(53283).15).1@EO.A. .(t$)..13.432@OO.A. 370@(O.A. t$."w" . .".":.370@;O.A. t$."n" . 610@zO.A. t$."g" . .(1022).1 . 720@SO.A. t$."p" . . rc:.590@.O.A. t$."i" . .(1022).1 . .ls:.1700:.".":.370@.O.A. t$."s" . 970@.O.A. t$."b" . 1550@.O.A. t$."l" . 1090@.OHB. t$."v" . .(1022).1. 1250@PPRB. t$."m" . 1630@/P&B. t$."d" . .(1022).1. 1750@cP+B. t$."x" . 2400@wP0B. t$.."a" . 590@YP:B..(53272).21 . .53272,31:.590@.PdB.53272,21@.PnB. re:. returnmin4lines@.PxB.370@.PAB. *****set screen number**@AQBBy.13:x.7:tx$."enter screen number :":.2000:.v.21,1@"QLBsn.s1:sn$.s1$:sl.s2:.re:.370@aQ.B. ********get screen******@PQ.Btx$."which screen number ?":x.7:y.13:.2000@.Q Ca.s1:.1510:.820,lb:.821,hb:.re@.Q*C. dc:.(.(2).1).0. 370@.Q4C.v.21,0:.781,13:.782,1:.783,0:.65520@@R>C."          screen not found!       "@[RhC.1700:.v.21,1:.re:.370@:RqC. **********crunch********@XRrC. sn.255 . ."  next screen number>255 -alter number":.610@.RwC. re:. returnmin4lines@.R£Ca.sn:.1500:.820,lb:.821,hb@.RPC.v.23,1:.v.29,1@.RZC.cr:.(.(2).128).0.900@TS.C.v.23,0:.v.29,0:.cl:..9)"Rout of crunch memory"@&S.C.v.21,0:.1630@]S.Csn.sn.1:sn$..(sn):sl..(sn$).1:.v.23,0:.v.29,0:.370@CS.C:@WS.C. *** save ****@.S.Cel..(base).1@.S.Ceh..(base.1)@.S.C. el.256.el.0:eh.eh.1@.S.C.1170:. f$."".280@.S.C.57812f$,d,1:.193,bl:.194,bh:.$4000=base@PT.C.174,el:.175,eh:. end@"TFD.62957:. save@6TPD."end (y/n)";e$@gTZD. e$."n".280@mT$D.@sT.D:@IT8D. **** load *****@.TbD. 1170:. f$."".280@.TcD. f$."$".1900@.TlD.147,0:.57812f$,d,1:.62631@.TvD. t$."t". 1140@.T.D.15,8,15:.15,z1,z$,z2,z3:.15@@UJD."Q."z1;z$;z2;z3:.1700@QUTD.1022,1:.280@WU.D:@<U.D. ***get load/save parameters***@AU.D.".QQQQQQQRd.isk or Rt.ape   :";@UU.D.t$:.t$."".1180@.U.D. .(t$).13..@.U.Dd.1:. t$."d". d.8:.1210@.U.D. t$.."t". 1180@.U.D.t$:."enter filename :..";f$@.U.D.@.U.D:@GV.D. **view all/selected screens**@]V.D.53280,9:.53281,9@iV.D.".QQQQ".6)"Eview all/selected screens"@OV@E..6)"..........................."@.VJEtx$."Eenter start screen. :":x.8:y.10:.2000:s.s1@.VTEtx$."Eenter  end  screen. :":x.8:y.11:.2000:e.s1:.@.V(E. s.e. 1290@YW2E..4);:."QEpress 'return' for next screen"@;W<E..10);:."press 'e' to exitQQ"@CWfE..6)"QQEpress 'c' for first screen"@.WpE..10)"Epress 'x' to corect"@.WzE.k$:.k$."".1370@.WDE. k$."c".1410@.WNE. k$."x".1270@.WXE. 1370@.W.Ea.s:as.sn:."."@.W.E. 1510:.820,lb:.821,hb@NX.E. dc:. a.e.sn.as:.370@+X.E. (.(2).1).1.a.a.1:.1420@?X.E.t$:.t$."".1450@xX.E. t$."e". sn.as:.370@KX.E. t$."c". 1450@.X.Ea.a.1:. 1420@.X.E:@.X.E. ****convert to 2 byte val****@.X.Ehb..(a.256):lb.a.(hb.256):.@.X.E:@.X.E. **initialise screen pointer***@VYDF. *****to start of memory*******@6YNF..9)".Rare you sure (y/n)."@jYXF.y$:.y$."".1560@BY"F. y$."n". . re:.370@UY,F. y$.."y".1560@.Y6F..16)"o.k."@.Y@F.1700:. re:.1022,0:.370@.YjF:@.YtF. ****print memory used****@.Y.F. .(1022).0.l.ba:.1650@.YHFl..(ba)..(ba.1).256@YZRF..5)"next screen at"l"($";@gZ.Fl.l.4096:.j.1.4:l%.l:l$..(48.l%.(l%.9).7)@TZ.F.l$;:l.16.(l.l%):.:.")":. 1700:. re:.370@ZZ.F:@.Z.F. *****wait for keypress****@.Z.F.t.1.500:.:.198,0@.Z.F.r$:.r$."".1710@.Z.F.@.Z.F:@.Z.F. *****delete screen****@ [.Fx.3:y.13:tx$."delete which screen(s) :":.2100@d[.Fa..(a$):. a.13 . a.0 . .re:.370@N[.Fla..(a$):.n.1.la:. .(a$,n,1)."-".1790@.[.F.:n1.a:n2.a:.1820@.[.Fn1..(.(a$,1,n.1))@.[HGn2..(.(a$,n.1,.(a$).n))@.[RGn.la:. n2.0.n2.sn.1:. "num-"@M££G.n.n1.n2:a.n:.1510:.820,lb:.821,hb:.ds:.:.re:.370@S£$G:@Y£JG:@<£KG. ****read disk directory*****@k£LG.1,8,0,"$"@y£QG.#1,z$,z$@M£VG.#1,z$,z$,z$,z$@.£.G. st . . 1:.1700:.370@.£.G.#1,z$:.z$.""..:.1910@.£.G. z$..(34).q.. q@.£.G. q . .z$;@.£.G. 1924@.£.G:@.£.G. ****get numeric input*****@&].G.781,y:.782,0:.783,0:.65520:.v.21,0:.650,0@£].G."                                       ":tt$.""@.].G.781,y:.782,x:.783,0:.65520:.tx$;:.f.1..@.].G.t$:.t$."".2030@.].G. t$.".". 2000@.].G. .(t$).13 . 2090@.]LH. .(t$).48 . .(t$).57 .2030@.]VH. .(tt$).6 .2000@U. Htt$.tt$.t$:.t$;:.2030@9.*Hs1..(tt$):. s1.255 . s1.1 .2000@..-Hs1$..(s1):s2..(s1$).1:.650,128:.@D.2H:@..3H. *****get string input******@..4Hf.1:a$."":. 2000@..>H.t$:.t$."".2110@..cHt..(t$)@..hH. t$."." . 2100@..rH. t.13 . f.0:.650,128:.@M.wH. t.47 . t.58 . t$."-" . 2150@W.£H.2110@9.FHa$.a$.t$:..(a$).12..t$;:.2110@c.PH.2100@i..H:@B..H. *****renumber*****@...Htx$."renumber increment :":x.7:y.13:.2000@...H.695,s1:.rn:.re:.370@...H:@...H. ****alter screen number***@K .Htx$."target screen number :":x.5:y.12:.2000:a.s1:.1510@  FI. 820,lb:.821,hb@[ PItx$."new screen number    :":x.5:y.13:.2000:a.s1:.1510@P ZI. 695,lb:.696,hb@. $I. al:.(.(2).1).0..re:.370@. .I.re:.820@. vI:@. wI. ****print crsr co-ords***@. .Ia.1024..($02b2).40..($02b3):.1510@V!EIf.1:tx$."hb=":x.12:y.12:.2000:.hb;"lb=";lb@-!JI.1700:.re:f.0:.370@@@

00000000  3a 08 05 00 8f 22 14 14  14 14 14 14 8d 05 20 53  |:...."........ S|
00000010  43 52 45 45 4e 20 44 45  53 49 47 4e 45 52 20 20  |CREEN DESIGNER  |
00000020  42 59 20 57 49 4c 4c 49  41 4d 20 41 20 43 48 52  |BY WILLIAM A CHR|
00000030  49 53 54 49 45 20 20 9e  00 4a 08 0a 00 91 20 41  |ISTIE  ..J.... A|
00000040  20 89 20 33 30 2c 34 30  00 68 08 14 00 41 b2 31  | . 30,40.h...A.1|
00000050  3a 93 22 43 52 55 4e 43  48 2f 44 45 43 52 2e 4d  |:."CRUNCH/DECR.M|
00000060  43 22 2c 38 2c 31 00 82  08 1e 00 41 b2 32 3a 93  |C",8,1.....A.2:.|
00000070  22 47 45 54 43 48 41 52  2e 4d 43 22 2c 38 2c 31  |"GETCHAR.MC",8,1|
00000080  00 b6 08 28 00 97 35 35  2c 31 39 30 3a 97 35 36  |...(..55,190:.56|
00000090  2c 34 37 3a 9c 3a 8f 20  45 4e 44 20 4f 46 20 42  |,47:.:. END OF B|
000000a0  41 53 49 43 20 4d 45 4d  4f 52 59 3d 24 33 30 30  |ASIC MEMORY=$300|
000000b0  30 2d 36 34 00 e7 08 32  00 56 b2 35 33 32 34 38  |0-64...2.V.53248|
000000c0  3a 97 32 30 34 30 2c 31  39 31 3a 97 36 35 30 2c  |:.2040,191:.650,|
000000d0  31 32 38 3a 97 35 33 32  38 30 2c 36 3a 97 35 33  |128:.53280,6:.53|
000000e0  32 38 31 2c 30 00 09 09  37 00 97 31 30 32 32 2c  |281,0...7..1022,|
000000f0  30 3a 8f 20 52 45 53 45  54 20 53 43 52 45 45 4e  |0:. RESET SCREEN|
00000100  20 4d 45 4d 4f 52 59 00  2f 09 3c 00 8f 20 50 4f  | MEMORY./.<.. PO|
00000110  4b 45 37 38 38 2c 35 32  3a 52 45 4d 20 44 49 53  |KE788,52:REM DIS|
00000120  41 42 4c 45 20 52 55 4e  2f 53 54 4f 50 00 57 09  |ABLE RUN/STOP.W.|
00000130  46 00 42 41 53 45 b2 34  30 39 36 ac 34 3a 41 b2  |F.BASE.4096.4:A.|
00000140  42 41 3a 8d 20 31 35 31  30 3a 42 48 b2 48 42 3a  |BA:. 1510:BH.HB:|
00000150  42 4c b2 4c 42 00 70 09  50 00 81 4e b2 31 32 32  |BL.LB.p.P..N.122|
00000160  32 34 a4 4e aa 36 33 3a  97 4e 2c 30 3a 82 00 8c  |24.N.63:.N,0:...|
00000170  09 5a 00 81 4e b2 31 32  32 32 34 a4 4e aa 32 33  |.Z..N.12224.N.23|
00000180  3a 87 53 3a 97 4e 2c 53  3a 82 00 d2 09 64 00 83  |:.S:.N,S:....d..|
00000190  20 32 35 35 2c 30 2c 30  2c 31 32 39 2c 30 2c 30  | 255,0,0,129,0,0|
000001a0  2c 31 32 39 2c 30 2c 30  2c 31 32 39 2c 30 2c 30  |,129,0,0,129,0,0|
*
000001c0  2c 31 32 39 2c 30 2c 30  2c 32 35 35 2c 30 2c 30  |,129,0,0,255,0,0|
000001d0  00 01 0a 6e 00 97 56 aa  32 31 2c 30 3a 99 22 93  |...n..V.21,0:.".|
000001e0  11 11 22 a3 31 32 29 22  05 53 43 9b 52 45 98 45  |..".12)".SC.RE.E|
000001f0  4e 20 05 44 45 9b 53 49  98 47 4e 97 45 52 22 00  |N .DE.SI.GN.ER".|
00000200  1d 0a 73 00 99 a3 31 32  29 22 1c a3 a3 a3 a3 a3  |..s...12)"......|
00000210  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 22 00 3d 0a 74 00  |..........".=.t.|
00000220  99 a3 31 30 29 22 81 42  59 20 57 49 4c 4c 49 41  |..10)".BY WILLIA|
00000230  4d 20 43 48 52 49 53 54  49 45 22 00 60 0a 78 00  |M CHRISTIE".`.x.|
00000240  99 a3 38 29 22 11 46 4f  52 20 43 4f 4d 4d 4f 44  |..8)".FOR COMMOD|
00000250  4f 52 45 20 44 49 53 4b  20 55 53 45 52 22 00 8e  |ORE DISK USER"..|
00000260  0a 82 00 99 22 11 11 11  11 22 a3 37 29 22 99 46  |...."....".7)".F|
00000270  31 20 1e 3a 41 4c 54 45  52 20 42 41 43 4b 47 52  |1 .:ALTER BACKGR|
00000280  4f 55 4e 44 20 43 4f 4c  4f 55 52 22 00 b6 0a 8c  |OUND COLOUR"....|
00000290  00 99 a3 37 29 22 99 46  32 20 1e 3a 41 4c 54 45  |...7)".F2 .:ALTE|
000002a0  52 20 46 4f 52 45 47 52  4f 55 4e 44 20 43 4f 4c  |R FOREGROUND COL|
000002b0  4f 55 52 22 00 dd 0a 96  00 99 a3 37 29 22 99 46  |OUR".......7)".F|
000002c0  33 20 1e 3a 41 4c 54 45  52 20 43 48 41 52 41 43  |3 .:ALTER CHARAC|
000002d0  54 45 52 20 43 4f 4c 4f  55 52 22 00 02 0b a0 00  |TER COLOUR".....|
000002e0  99 a3 37 29 22 99 46 35  20 1e 3a 53 55 42 53 54  |..7)".F5 .:SUBST|
000002f0  49 54 55 54 45 20 43 48  41 52 41 43 54 45 52 22  |ITUTE CHARACTER"|
00000300  00 1f 0b aa 00 99 a3 37  29 22 99 46 37 20 1e 3a  |.......7)".F7 .:|
00000310  4d 41 49 4e 20 4d 45 4e  55 11 11 11 22 00 53 0b  |MAIN MENU...".S.|
00000320  b4 00 54 58 24 b2 22 9a  53 43 52 45 45 4e 20 4e  |..TX$.".SCREEN N|
00000330  55 4d 42 45 52 20 28 31  2d 32 35 35 29 20 3f 3a  |UMBER (1-255) ?:|
00000340  9f 22 3a 58 b2 37 3a 59  b2 31 37 3a 8d 32 30 30  |.":X.7:Y.17:.200|
00000350  30 00 70 0b b6 00 53 4e  b2 53 31 3a 53 4e 24 b2  |0.p...SN.S1:SN$.|
00000360  53 31 24 3a 53 4c b2 53  32 3a 89 32 38 30 00 a8  |S1$:SL.S2:.280..|
00000370  0b 18 01 99 22 93 22 3a  97 32 35 31 2c 31 30 3a  |....".":.251,10:|
00000380  97 32 35 32 2c 31 30 3a  97 32 35 33 2c 30 3a 97  |.252,10:.253,0:.|
00000390  56 aa 32 31 2c 31 3a 53  50 b2 33 35 3a 97 35 36  |V.21,1:SP.35:.56|
000003a0  33 32 35 2c 53 50 00 cc  0b 22 01 43 52 b2 33 32  |325,SP...".CR.32|
000003b0  37 36 38 3a 44 43 b2 33  33 35 33 36 3a 8f 20 43  |768:DC.33536:. C|
000003c0  52 55 4e 43 48 2f 44 45  43 52 00 ea 0b 2c 01 43  |RUNCH/DECR...,.C|
000003d0  4c b2 35 31 32 31 38 3a  8f 20 43 4c 45 41 52 4d  |L.51218:. CLEARM|
000003e0  49 44 34 4c 49 4e 45 53  00 09 0c 36 01 52 45 b2  |ID4LINES...6.RE.|
000003f0  35 31 32 34 33 3a 8f 20  52 45 54 55 52 4e 4d 49  |51243:. RETURNMI|
00000400  44 34 4c 49 4e 45 53 00  20 0c 40 01 47 43 b2 35  |D4LINES. .@.GC.5|
00000410  30 37 30 34 3a 8f 20 47  45 54 43 48 41 52 00 42  |0704:. GETCHAR.B|
00000420  0c 4a 01 52 43 b2 35 31  36 39 39 3a 8f 20 43 48  |.J.RC.51699:. CH|
00000430  41 52 41 43 54 45 52 20  52 4f 4d 20 43 4f 50 59  |ARACTER ROM COPY|
00000440  00 5f 0c 54 01 44 53 b2  35 31 37 35 35 3a 8f 20  |._.T.DS.51755:. |
00000450  44 45 4c 45 54 45 20 53  43 52 45 45 4e 00 82 0c  |DELETE SCREEN...|
00000460  68 01 4c 53 b2 35 32 30  31 31 3a 8f 20 4c 49 53  |h.LS.52011:. LIS|
00000470  54 20 53 43 52 45 45 4e  20 4e 55 4d 42 45 52 53  |T SCREEN NUMBERS|
00000480  00 9a 0c 6a 01 52 4e b2  35 32 31 32 36 3a 8f 20  |...j.RN.52126:. |
00000490  52 45 4e 55 4d 42 45 52  00 bd 0c 6d 01 41 4c b2  |RENUMBER...m.AL.|
000004a0  35 32 31 39 39 3a 8f 20  41 4c 54 45 52 20 53 43  |52199:. ALTER SC|
000004b0  52 45 45 4e 20 4e 55 4d  42 45 52 00 d8 0c 72 01  |REEN NUMBER...r.|
000004c0  97 56 aa 32 31 2c 31 3a  9e 20 47 43 3a 8f 20 47  |.V.21,1:. GC:. G|
000004d0  45 54 43 48 41 52 00 01  0d 7c 01 97 37 38 31 2c  |ETCHAR...|..781,|
000004e0  31 30 3a 97 37 38 32 2c  31 3a 97 37 38 33 2c 30  |10:.782,1:.783,0|
000004f0  3a 9e 36 35 35 32 30 3a  97 56 aa 32 31 2c 30 00  |:.65520:.V.21,0.|
00000500  46 0d 86 01 99 22 28 22  3b c9 28 53 4e 24 2c 53  |F...."(";.(SN$,S|
00000510  4c 29 3b 22 29 20 22 3b  22 12 57 92 49 50 45 20  |L);") ";".W.IPE |
00000520  12 43 92 52 55 4e 43 48  20 12 47 92 45 54 20 12  |.C.RUNCH .G.ET .|
00000530  4e 92 55 4d 20 12 4c 92  20 12 53 92 20 12 52 92  |N.UM .L. .S. .R.|
00000540  45 4e 22 3b 00 55 0d 87  01 99 22 55 4d 20 12 58  |EN";.U...."UM .X|
00000550  92 59 22 00 98 0d 90 01  99 22 20 12 56 92 20 12  |.Y"......" .V. .|
00000560  44 92 45 4c 20 12 42 92  47 4e 20 12 4d 92 45 4d  |D.EL .B.GN .M.EM|
00000570  20 52 12 41 92 4d 20 43  4f 12 50 92 59 20 41 4c  | R.A.M CO.P.Y AL|
00000580  12 54 92 20 4c 12 49 92  53 54 20 4d 43 12 4f 92  |.T. L.I.ST MC.O.|
00000590  4c 12 31 32 92 22 00 ab  0d 9a 01 a1 54 24 3a 8b  |L.12."......T$:.|
000005a0  54 24 b2 22 22 a7 34 31  30 00 c0 0d a4 01 8b 20  |T$."".410...... |
000005b0  c6 28 54 24 29 b2 31 33  36 a7 20 34 31 30 00 dd  |.(T$).136. 410..|
000005c0  0d a6 01 8b 20 54 24 b2  22 52 22 20 af c2 28 31  |.... T$."R" ..(1|
000005d0  30 32 32 29 b2 31 a7 32  32 30 30 00 fa 0d a8 01  |022).1.2200.....|
000005e0  8b 20 54 24 b2 22 54 22  20 af c2 28 31 30 32 32  |. T$."T" ..(1022|
000005f0  29 b2 31 a7 32 33 30 30  00 17 0e a9 01 8b 20 54  |).1.2300...... T|
00000600  24 b2 22 43 22 20 a7 20  97 56 aa 32 31 2c 31 3a  |$."C" . .V.21,1:|
00000610  89 20 38 35 30 00 2b 0e  ae 01 8b 20 54 24 b3 b1  |. 850.+.... T$..|
00000620  22 4f 22 20 a7 20 34 34  30 00 35 0e af 01 89 20  |"O" . 440.5.... |
00000630  34 33 33 00 48 0e b0 01  a1 54 24 3a 8b 54 24 b2  |433.H....T$:.T$.|
00000640  22 22 a7 34 33 32 00 79  0e b1 01 8b 54 24 b2 22  |"".432.y....T$."|
00000650  4f 22 af c2 28 35 33 32  37 30 29 b3 b1 32 31 36  |O"..(53270)..216|
00000660  20 a7 20 97 35 33 32 37  30 2c 32 31 36 3a 9e 20  | . .53270,216:. |
00000670  52 45 3a 89 34 33 35 00  a5 0e b2 01 8b 54 24 b2  |RE:.435......T$.|
00000680  22 4f 22 af c2 28 35 33  32 37 30 29 b3 b1 32 30  |"O"..(53270)..20|
00000690  30 20 a7 20 97 35 33 32  37 30 2c 32 30 30 3a 9e  |0 . .53270,200:.|
000006a0  20 52 45 00 cb 0e b3 01  8b 20 54 24 b2 22 31 22  | RE...... T$."1"|
000006b0  20 a7 20 97 35 33 32 38  32 2c 28 c2 28 35 33 32  | . .53282,(.(532|
000006c0  38 32 29 af 31 35 29 aa  31 00 f1 0e b4 01 8b 20  |82).15).1...... |
000006d0  54 24 b2 22 32 22 20 a7  20 97 35 33 32 38 33 2c  |T$."2" . .53283,|
000006e0  28 c2 28 35 33 32 38 33  29 af 31 35 29 aa 31 00  |(.(53283).15).1.|
000006f0  05 0f b5 01 8b 20 c6 28  54 24 29 b3 b1 31 33 a7  |..... .(T$)..13.|
00000700  34 33 32 00 0f 0f b6 01  89 20 33 37 30 00 28 0f  |432...... 370.(.|
00000710  b8 01 8b 20 54 24 b2 22  57 22 20 a7 20 99 22 93  |... T$."W" . .".|
00000720  22 3a 89 33 37 30 00 3b  0f c2 01 8b 20 54 24 b2  |":.370.;.... T$.|
00000730  22 4e 22 20 a7 20 36 31  30 00 5a 0f cc 01 8b 20  |"N" . 610.Z.... |
00000740  54 24 b2 22 47 22 20 af  20 c2 28 31 30 32 32 29  |T$."G" . .(1022)|
00000750  b2 31 20 a7 20 37 32 30  00 73 0f d6 01 8b 20 54  |.1 . 720.s.... T|
00000760  24 b2 22 50 22 20 a7 20  9e 20 52 43 3a 89 35 39  |$."P" . . RC:.59|
00000770  30 00 a2 0f e0 01 8b 20  54 24 b2 22 49 22 20 af  |0...... T$."I" .|
00000780  20 c2 28 31 30 32 32 29  b2 31 20 a7 20 9e 4c 53  | .(1022).1 . .LS|
00000790  3a 8d 31 37 30 30 3a 99  22 93 22 3a 89 33 37 30  |:.1700:.".":.370|
000007a0  00 b5 0f ea 01 8b 20 54  24 b2 22 53 22 20 a7 20  |...... T$."S" . |
000007b0  39 37 30 00 c9 0f f4 01  8b 20 54 24 b2 22 42 22  |970...... T$."B"|
000007c0  20 a7 20 31 35 35 30 00  dd 0f fe 01 8b 20 54 24  | . 1550...... T$|
000007d0  b2 22 4c 22 20 a7 20 31  30 39 30 00 fc 0f 08 02  |."L" . 1090.....|
000007e0  8b 20 54 24 b2 22 56 22  20 af 20 c2 28 31 30 32  |. T$."V" . .(102|
000007f0  32 29 b2 31 a7 20 31 32  35 30 00 10 10 12 02 8b  |2).1. 1250......|
00000800  20 54 24 b2 22 4d 22 20  a7 20 31 36 33 30 00 2f  | T$."M" . 1630./|
00000810  10 26 02 8b 20 54 24 b2  22 44 22 20 af 20 c2 28  |.&.. T$."D" . .(|
00000820  31 30 32 32 29 b2 31 a7  20 31 37 35 30 00 43 10  |1022).1. 1750.C.|
00000830  2b 02 8b 20 54 24 b2 22  58 22 20 a7 20 32 34 30  |+.. T$."X" . 240|
00000840  30 00 57 10 30 02 8b 20  54 24 b3 b1 22 41 22 20  |0.W.0.. T$.."A" |
00000850  a7 20 35 39 30 00 79 10  3a 02 8b c2 28 35 33 32  |. 590.y.:...(532|
00000860  37 32 29 b2 32 31 20 a7  20 97 35 33 32 37 32 2c  |72).21 . .53272,|
00000870  33 31 3a 89 35 39 30 00  87 10 44 02 97 35 33 32  |31:.590...D..532|
00000880  37 32 2c 32 31 00 a2 10  4e 02 9e 20 52 45 3a 8f  |72,21...N.. RE:.|
00000890  20 52 45 54 55 52 4e 4d  49 4e 34 4c 49 4e 45 53  | RETURNMIN4LINES|
000008a0  00 ab 10 58 02 89 33 37  30 00 ca 10 61 02 8f 20  |...X..370...a.. |
000008b0  2a 2a 2a 2a 2a 53 45 54  20 53 43 52 45 45 4e 20  |*****SET SCREEN |
000008c0  4e 55 4d 42 45 52 2a 2a  00 01 11 62 02 59 b2 31  |NUMBER**...b.Y.1|
000008d0  33 3a 58 b2 37 3a 54 58  24 b2 22 45 4e 54 45 52  |3:X.7:TX$."ENTER|
000008e0  20 53 43 52 45 45 4e 20  4e 55 4d 42 45 52 20 3a  | SCREEN NUMBER :|
000008f0  22 3a 8d 32 30 30 30 3a  97 56 aa 32 31 2c 31 00  |":.2000:.V.21,1.|
00000900  22 11 6c 02 53 4e b2 53  31 3a 53 4e 24 b2 53 31  |".l.SN.S1:SN$.S1|
00000910  24 3a 53 4c b2 53 32 3a  9e 52 45 3a 89 33 37 30  |$:SL.S2:.RE:.370|
00000920  00 41 11 bb 02 8f 20 2a  2a 2a 2a 2a 2a 2a 2a 47  |.A.... ********G|
00000930  45 54 20 53 43 52 45 45  4e 2a 2a 2a 2a 2a 2a 00  |ET SCREEN******.|
00000940  70 11 d0 02 54 58 24 b2  22 57 48 49 43 48 20 53  |p...TX$."WHICH S|
00000950  43 52 45 45 4e 20 4e 55  4d 42 45 52 20 3f 22 3a  |CREEN NUMBER ?":|
00000960  58 b2 37 3a 59 b2 31 33  3a 8d 32 30 30 30 00 93  |X.7:Y.13:.2000..|
00000970  11 20 03 41 b2 53 31 3a  8d 31 35 31 30 3a 97 38  |. .A.S1:.1510:.8|
00000980  32 30 2c 4c 42 3a 97 38  32 31 2c 48 42 3a 9e 52  |20,LB:.821,HB:.R|
00000990  45 00 ad 11 2a 03 9e 20  44 43 3a 8b 28 c2 28 32  |E...*.. DC:.(.(2|
000009a0  29 af 31 29 b2 30 a7 20  33 37 30 00 d6 11 34 03  |).1).0. 370...4.|
000009b0  97 56 aa 32 31 2c 30 3a  97 37 38 31 2c 31 33 3a  |.V.21,0:.781,13:|
000009c0  97 37 38 32 2c 31 3a 97  37 38 33 2c 30 3a 9e 36  |.782,1:.783,0:.6|
000009d0  35 35 32 30 00 00 12 3e  03 99 22 20 20 20 20 20  |5520...>.."     |
000009e0  20 20 20 20 20 53 43 52  45 45 4e 20 4e 4f 54 20  |     SCREEN NOT |
000009f0  46 4f 55 4e 44 21 20 20  20 20 20 20 20 22 00 1b  |FOUND!       "..|
00000a00  12 48 03 8d 31 37 30 30  3a 97 56 aa 32 31 2c 31  |.H..1700:.V.21,1|
00000a10  3a 9e 52 45 3a 89 33 37  30 00 3a 12 51 03 8f 20  |:.RE:.370.:.Q.. |
00000a20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 43 52 55 4e 43 48  |**********CRUNCH|
00000a30  2a 2a 2a 2a 2a 2a 2a 2a  00 78 12 52 03 8b 20 53  |********.x.R.. S|
00000a40  4e b2 32 35 35 20 a7 20  99 22 20 20 4e 45 58 54  |N.255 . ."  NEXT|
00000a50  20 53 43 52 45 45 4e 20  4e 55 4d 42 45 52 3e 32  | SCREEN NUMBER>2|
00000a60  35 35 20 2d 41 4c 54 45  52 20 4e 55 4d 42 45 52  |55 -ALTER NUMBER|
00000a70  22 3a 89 36 31 30 00 93  12 57 03 9e 20 52 45 3a  |":.610...W.. RE:|
00000a80  8f 20 52 45 54 55 52 4e  4d 49 4e 34 4c 49 4e 45  |. RETURNMIN4LINE|
00000a90  53 00 b2 12 5c 03 41 b2  53 4e 3a 8d 31 35 30 30  |S...\.A.SN:.1500|
00000aa0  3a 97 38 32 30 2c 4c 42  3a 97 38 32 31 2c 48 42  |:.820,LB:.821,HB|
00000ab0  00 c6 12 70 03 97 56 aa  32 33 2c 31 3a 97 56 aa  |...p..V.23,1:.V.|
00000ac0  32 39 2c 31 00 e0 12 7a  03 9e 43 52 3a 8b 28 c2  |29,1...z..CR:.(.|
00000ad0  28 32 29 af 31 32 38 29  b2 30 a7 39 30 30 00 14  |(2).128).0.900..|
00000ae0  13 7f 03 97 56 aa 32 33  2c 30 3a 97 56 aa 32 39  |....V.23,0:.V.29|
00000af0  2c 30 3a 9e 43 4c 3a 99  a3 39 29 22 12 4f 55 54  |,0:.CL:..9)".OUT|
00000b00  20 4f 46 20 43 52 55 4e  43 48 20 4d 45 4d 4f 52  | OF CRUNCH MEMOR|
00000b10  59 22 00 26 13 80 03 97  56 aa 32 31 2c 30 3a 89  |Y".&....V.21,0:.|
00000b20  31 36 33 30 00 5d 13 84  03 53 4e b2 53 4e aa 31  |1630.]...SN.SN.1|
00000b30  3a 53 4e 24 b2 c4 28 53  4e 29 3a 53 4c b2 c3 28  |:SN$..(SN):SL..(|
00000b40  53 4e 24 29 ab 31 3a 97  56 aa 32 33 2c 30 3a 97  |SN$).1:.V.23,0:.|
00000b50  56 aa 32 39 2c 30 3a 89  33 37 30 00 63 13 b6 03  |V.29,0:.370.c...|
00000b60  3a 00 77 13 c0 03 8f 20  2a 2a 2a 20 53 41 56 45  |:.w.... *** SAVE|
00000b70  20 2a 2a 2a 2a 00 88 13  ca 03 45 4c b2 c2 28 42  | ****.....EL..(B|
00000b80  41 53 45 29 aa 31 00 99  13 d4 03 45 48 b2 c2 28  |ASE).1.....EH..(|
00000b90  42 41 53 45 aa 31 29 00  b3 13 de 03 8b 20 45 4c  |BASE.1)...... EL|
00000ba0  b2 32 35 36 a7 45 4c b2  30 3a 45 48 b2 45 48 aa  |.256.EL.0:EH.EH.|
00000bb0  31 00 c9 13 e8 03 8d 31  31 37 30 3a 8b 20 46 24  |1......1170:. F$|
00000bc0  b2 22 22 a7 32 38 30 00  f6 13 f2 03 9e 35 37 38  |."".280......578|
00000bd0  31 32 46 24 2c 44 2c 31  3a 97 31 39 33 2c 42 4c  |12F$,D,1:.193,BL|
00000be0  3a 97 31 39 34 2c 42 48  3a 8f 24 34 30 30 30 3d  |:.194,BH:.$4000=|
00000bf0  42 41 53 45 00 10 14 fc  03 97 31 37 34 2c 45 4c  |BASE......174,EL|
00000c00  3a 97 31 37 35 2c 45 48  3a 8f 20 45 4e 44 00 22  |:.175,EH:. END."|
00000c10  14 06 04 9e 36 32 39 35  37 3a 8f 20 53 41 56 45  |....62957:. SAVE|
00000c20  00 36 14 10 04 85 22 45  4e 44 20 28 59 2f 4e 29  |.6...."END (Y/N)|
00000c30  22 3b 45 24 00 47 14 1a  04 8b 20 45 24 b2 22 4e  |";E$.G.... E$."N|
00000c40  22 a7 32 38 30 00 4d 14  24 04 80 00 53 14 2e 04  |".280.M.$...S...|
00000c50  3a 00 69 14 38 04 8f 20  2a 2a 2a 2a 20 4c 4f 41  |:.i.8.. **** LOA|
00000c60  44 20 2a 2a 2a 2a 2a 00  80 14 42 04 8d 20 31 31  |D *****...B.. 11|
00000c70  37 30 3a 8b 20 46 24 b2  22 22 a7 32 38 30 00 92  |70:. F$."".280..|
00000c80  14 43 04 8b 20 46 24 b2  22 24 22 a7 31 39 30 30  |.C.. F$."$".1900|
00000c90  00 b1 14 4c 04 97 31 34  37 2c 30 3a 9e 35 37 38  |...L..147,0:.578|
00000ca0  31 32 46 24 2c 44 2c 31  3a 9e 36 32 36 33 31 00  |12F$,D,1:.62631.|
00000cb0  c4 14 56 04 8b 20 54 24  b2 22 54 22 a7 20 31 31  |..V.. T$."T". 11|
00000cc0  34 30 00 e5 14 60 04 9f  31 35 2c 38 2c 31 35 3a  |40...`..15,8,15:|
00000cd0  84 31 35 2c 5a 31 2c 5a  24 2c 5a 32 2c 5a 33 3a  |.15,Z1,Z$,Z2,Z3:|
00000ce0  a0 31 35 00 00 15 6a 04  99 22 11 9d 22 5a 31 3b  |.15...j..".."Z1;|
00000cf0  5a 24 3b 5a 32 3b 5a 33  3a 8d 31 37 30 30 00 11  |Z$;Z2;Z3:.1700..|
00000d00  15 74 04 97 31 30 32 32  2c 31 3a 89 32 38 30 00  |.t..1022,1:.280.|
00000d10  17 15 7e 04 3a 00 3c 15  88 04 8f 20 2a 2a 2a 47  |..~.:.<.... ***G|
00000d20  45 54 20 4c 4f 41 44 2f  53 41 56 45 20 50 41 52  |ET LOAD/SAVE PAR|
00000d30  41 4d 45 54 45 52 53 2a  2a 2a 00 61 15 92 04 99  |AMETERS***.a....|
00000d40  22 93 11 11 11 11 11 11  11 12 44 92 49 53 4b 20  |".........D.ISK |
00000d50  4f 52 20 12 54 92 41 50  45 20 20 20 3a 22 3b 00  |OR .T.APE   :";.|
00000d60  75 15 9c 04 a1 54 24 3a  8b 54 24 b2 22 22 a7 31  |u....T$:.T$."".1|
00000d70  31 38 30 00 86 15 a1 04  8b 20 c6 28 54 24 29 b2  |180...... .(T$).|
00000d80  31 33 a7 8e 00 a2 15 a6  04 44 b2 31 3a 8b 20 54  |13.......D.1:. T|
00000d90  24 b2 22 44 22 a7 20 44  b2 38 3a 89 31 32 31 30  |$."D". D.8:.1210|
00000da0  00 b6 15 b0 04 8b 20 54  24 b3 b1 22 54 22 a7 20  |...... T$.."T". |
00000db0  31 31 38 30 00 d7 15 ba  04 99 54 24 3a 85 22 45  |1180......T$:."E|
00000dc0  4e 54 45 52 20 46 49 4c  45 4e 41 4d 45 20 3a 9d  |NTER FILENAME :.|
00000dd0  9d 22 3b 46 24 00 dd 15  c4 04 8e 00 e3 15 ce 04  |.";F$...........|
00000de0  3a 00 07 16 d8 04 8f 20  2a 2a 56 49 45 57 20 41  |:...... **VIEW A|
00000df0  4c 4c 2f 53 45 4c 45 43  54 45 44 20 53 43 52 45  |LL/SELECTED SCRE|
00000e00  45 4e 53 2a 2a 00 1d 16  e2 04 97 35 33 32 38 30  |ENS**......53280|
00000e10  2c 39 3a 97 35 33 32 38  31 2c 39 00 49 16 f6 04  |,9:.53281,9.I...|
00000e20  99 22 93 11 11 11 11 22  a3 36 29 22 05 56 49 45  |.".....".6)".VIE|
00000e30  57 20 41 4c 4c 2f 53 45  4c 45 43 54 45 44 20 53  |W ALL/SELECTED S|
00000e40  43 52 45 45 4e 53 22 00  6f 16 00 05 99 a3 36 29  |CREENS".o.....6)|
00000e50  22 9b b7 b7 b7 b7 b7 b7  b7 b7 b7 b7 b7 b7 b7 b7  |"...............|
00000e60  b7 b7 b7 b7 b7 b7 b7 b7  b7 b7 b7 99 22 00 a4 16  |............"...|
00000e70  0a 05 54 58 24 b2 22 05  45 4e 54 45 52 20 53 54  |..TX$.".ENTER ST|
00000e80  41 52 54 20 53 43 52 45  45 4e 9e 20 3a 22 3a 58  |ART SCREEN. :":X|
00000e90  b2 38 3a 59 b2 31 30 3a  8d 32 30 30 30 3a 53 b2  |.8:Y.10:.2000:S.|
00000ea0  53 31 00 db 16 14 05 54  58 24 b2 22 05 45 4e 54  |S1.....TX$.".ENT|
00000eb0  45 52 20 20 45 4e 44 20  20 53 43 52 45 45 4e 9e  |ER  END  SCREEN.|
00000ec0  20 3a 22 3a 58 b2 38 3a  59 b2 31 31 3a 8d 32 30  | :":X.8:Y.11:.20|
00000ed0  30 30 3a 45 b2 53 31 3a  99 00 eb 16 28 05 8b 20  |00:E.S1:....(.. |
00000ee0  53 b1 45 a7 20 31 32 39  30 00 19 17 32 05 99 a3  |S.E. 1290...2...|
00000ef0  34 29 3b 3a 99 22 11 05  50 52 45 53 53 20 27 52  |4);:."..PRESS 'R|
00000f00  45 54 55 52 4e 27 20 46  4f 52 20 4e 45 58 54 20  |ETURN' FOR NEXT |
00000f10  53 43 52 45 45 4e 22 00  3b 17 3c 05 99 a3 31 30  |SCREEN".;.<...10|
00000f20  29 3b 3a 99 22 50 52 45  53 53 20 27 45 27 20 54  |);:."PRESS 'E' T|
00000f30  4f 20 45 58 49 54 11 11  22 00 63 17 46 05 99 a3  |O EXIT..".c.F...|
00000f40  36 29 22 11 11 05 50 52  45 53 53 20 27 43 27 20  |6)"...PRESS 'C' |
00000f50  46 4f 52 20 46 49 52 53  54 20 53 43 52 45 45 4e  |FOR FIRST SCREEN|
00000f60  22 00 83 17 50 05 99 a3  31 30 29 22 05 50 52 45  |"...P...10)".PRE|
00000f70  53 53 20 27 58 27 20 54  4f 20 43 4f 52 45 43 54  |SS 'X' TO CORECT|
00000f80  22 00 97 17 5a 05 a1 4b  24 3a 8b 4b 24 b2 22 22  |"...Z..K$:.K$.""|
00000f90  a7 31 33 37 30 00 a9 17  64 05 8b 20 4b 24 b2 22  |.1370...d.. K$."|
00000fa0  43 22 a7 31 34 31 30 00  bb 17 6e 05 8b 20 4b 24  |C".1410...n.. K$|
00000fb0  b2 22 58 22 a7 31 32 37  30 00 c6 17 78 05 89 20  |."X".1270...x.. |
00000fc0  31 33 37 30 00 d9 17 82  05 41 b2 53 3a 41 53 b2  |1370.....A.S:AS.|
00000fd0  53 4e 3a 99 22 93 22 00  f4 17 8c 05 8d 20 31 35  |SN:."."...... 15|
00000fe0  31 30 3a 97 38 32 30 2c  4c 42 3a 97 38 32 31 2c  |10:.820,LB:.821,|
00000ff0  48 42 00 0e 18 96 05 9e  20 44 43 3a 8b 20 41 b2  |HB...... DC:. A.|
00001000  45 a7 53 4e b2 41 53 3a  89 33 37 30 00 2b 18 a0  |E.SN.AS:.370.+..|
00001010  05 8b 20 28 c2 28 32 29  af 31 29 b2 31 a7 41 b2  |.. (.(2).1).1.A.|
00001020  41 aa 31 3a 89 31 34 32  30 00 3f 18 aa 05 a1 54  |A.1:.1420.?....T|
00001030  24 3a 8b 54 24 b2 22 22  a7 31 34 35 30 00 58 18  |$:.T$."".1450.X.|
00001040  b4 05 8b 20 54 24 b2 22  45 22 a7 20 53 4e b2 41  |... T$."E". SN.A|
00001050  53 3a 89 33 37 30 00 6b  18 be 05 8b 20 54 24 b2  |S:.370.k.... T$.|
00001060  22 43 22 a7 20 31 34 35  30 00 7c 18 c8 05 41 b2  |"C". 1450.|...A.|
00001070  41 aa 31 3a 89 20 31 34  32 30 00 82 18 d2 05 3a  |A.1:. 1420.....:|
00001080  00 a6 18 dc 05 8f 20 2a  2a 2a 2a 43 4f 4e 56 45  |...... ****CONVE|
00001090  52 54 20 54 4f 20 32 20  42 59 54 45 20 56 41 4c  |RT TO 2 BYTE VAL|
000010a0  2a 2a 2a 2a 00 c6 18 e6  05 48 42 b2 b5 28 41 ad  |****.....HB..(A.|
000010b0  32 35 36 29 3a 4c 42 b2  41 ab 28 48 42 ac 32 35  |256):LB.A.(HB.25|
000010c0  36 29 3a 8e 00 cc 18 f0  05 3a 00 f1 18 fa 05 8f  |6):......:......|
000010d0  20 2a 2a 49 4e 49 54 49  41 4c 49 53 45 20 53 43  | **INITIALISE SC|
000010e0  52 45 45 4e 20 50 4f 49  4e 54 45 52 2a 2a 2a 00  |REEN POINTER***.|
000010f0  16 19 04 06 8f 20 2a 2a  2a 2a 2a 54 4f 20 53 54  |..... *****TO ST|
00001100  41 52 54 20 4f 46 20 4d  45 4d 4f 52 59 2a 2a 2a  |ART OF MEMORY***|
00001110  2a 2a 2a 2a 00 36 19 0e  06 99 a3 39 29 22 91 12  |****.6.....9)"..|
00001120  41 52 45 20 59 4f 55 20  53 55 52 45 20 28 59 2f  |ARE YOU SURE (Y/|
00001130  4e 29 92 22 00 4a 19 18  06 a1 59 24 3a 8b 59 24  |N).".J....Y$:.Y$|
00001140  b2 22 22 a7 31 35 36 30  00 62 19 22 06 8b 20 59  |."".1560.b.".. Y|
00001150  24 b2 22 4e 22 a7 20 9e  20 52 45 3a 89 33 37 30  |$."N". . RE:.370|
00001160  00 75 19 2c 06 8b 20 59  24 b3 b1 22 59 22 a7 31  |.u.,.. Y$.."Y".1|
00001170  35 36 30 00 85 19 36 06  99 a3 31 36 29 22 4f 2e  |560...6...16)"O.|
00001180  4b 2e 22 00 a1 19 40 06  8d 31 37 30 30 3a 9e 20  |K."...@..1700:. |
00001190  52 45 3a 97 31 30 32 32  2c 30 3a 89 33 37 30 00  |RE:.1022,0:.370.|
000011a0  a7 19 4a 06 3a 00 c7 19  54 06 8f 20 2a 2a 2a 2a  |..J.:...T.. ****|
000011b0  50 52 49 4e 54 20 4d 45  4d 4f 52 59 20 55 53 45  |PRINT MEMORY USE|
000011c0  44 2a 2a 2a 2a 00 e2 19  5e 06 8b 20 c2 28 31 30  |D****...^.. .(10|
000011d0  32 32 29 b2 30 a7 4c b2  42 41 3a 89 31 36 35 30  |22).0.L.BA:.1650|
000011e0  00 fa 19 68 06 4c b2 c2  28 42 41 29 aa c2 28 42  |...h.L..(BA)..(B|
000011f0  41 aa 31 29 ac 32 35 36  00 19 1a 72 06 99 a3 35  |A.1).256...r...5|
00001200  29 22 4e 45 58 54 20 53  43 52 45 45 4e 20 41 54  |)"NEXT SCREEN AT|
00001210  22 4c 22 28 24 22 3b 00  47 1a 7c 06 4c b2 4c ad  |"L"($";.G.|.L.L.|
00001220  34 30 39 36 3a 81 4a b2  31 a4 34 3a 4c 25 b2 4c  |4096:.J.1.4:L%.L|
00001230  3a 4c 24 b2 c7 28 34 38  aa 4c 25 ab 28 4c 25 b1  |:L$..(48.L%.(L%.|
00001240  39 29 ac 37 29 00 74 1a  86 06 99 4c 24 3b 3a 4c  |9).7).t....L$;:L|
00001250  b2 31 36 ac 28 4c ab 4c  25 29 3a 82 3a 99 22 29  |.16.(L.L%):.:.")|
00001260  22 3a 8d 20 31 37 30 30  3a 9e 20 52 45 3a 89 33  |":. 1700:. RE:.3|
00001270  37 30 00 7a 1a 90 06 3a  00 9b 1a 9a 06 8f 20 2a  |70.z...:...... *|
00001280  2a 2a 2a 2a 57 41 49 54  20 46 4f 52 20 4b 45 59  |****WAIT FOR KEY|
00001290  50 52 45 53 53 2a 2a 2a  2a 00 b1 1a a4 06 81 54  |PRESS****......T|
000012a0  b2 31 a4 35 30 30 3a 82  3a 97 31 39 38 2c 30 00  |.1.500:.:.198,0.|
000012b0  c5 1a ae 06 a1 52 24 3a  8b 52 24 b2 22 22 a7 31  |.....R$:.R$."".1|
000012c0  37 31 30 00 cb 1a b8 06  8e 00 d1 1a c2 06 3a 00  |710...........:.|
000012d0  ee 1a cc 06 8f 20 2a 2a  2a 2a 2a 44 45 4c 45 54  |..... *****DELET|
000012e0  45 20 53 43 52 45 45 4e  2a 2a 2a 2a 00 20 1b d6  |E SCREEN****. ..|
000012f0  06 58 b2 33 3a 59 b2 31  33 3a 54 58 24 b2 22 44  |.X.3:Y.13:TX$."D|
00001300  45 4c 45 54 45 20 57 48  49 43 48 20 53 43 52 45  |ELETE WHICH SCRE|
00001310  45 4e 28 53 29 20 3a 22  3a 8d 32 31 30 30 00 44  |EN(S) :":.2100.D|
00001320  1b e0 06 41 b2 c5 28 41  24 29 3a 8b 20 41 b2 31  |...A..(A$):. A.1|
00001330  33 20 b0 20 41 b2 30 20  a7 20 9e 52 45 3a 89 33  |3 . A.0 . .RE:.3|
00001340  37 30 00 6e 1b ea 06 4c  41 b2 c3 28 41 24 29 3a  |70.n...LA..(A$):|
00001350  81 4e b2 31 a4 4c 41 3a  8b 20 ca 28 41 24 2c 4e  |.N.1.LA:. .(A$,N|
00001360  2c 31 29 b2 22 2d 22 a7  31 37 39 30 00 84 1b f4  |,1)."-".1790....|
00001370  06 82 3a 4e 31 b2 41 3a  4e 32 b2 41 3a 89 31 38  |..:N1.A:N2.A:.18|
00001380  32 30 00 9a 1b fe 06 4e  31 b2 c5 28 ca 28 41 24  |20.....N1..(.(A$|
00001390  2c 31 2c 4e ab 31 29 29  00 b6 1b 08 07 4e 32 b2  |,1,N.1)).....N2.|
000013a0  c5 28 ca 28 41 24 2c 4e  aa 31 2c c3 28 41 24 29  |.(.(A$,N.1,.(A$)|
000013b0  ab 4e 29 29 00 d7 1b 12  07 4e b2 4c 41 3a 8b 20  |.N)).....N.LA:. |
000013c0  4e 32 b2 30 a7 4e 32 b2  53 4e ab 31 3a 8f 20 22  |N2.0.N2.SN.1:. "|
000013d0  4e 55 4d 2d 22 00 0d 1c  1c 07 81 4e b2 4e 31 a4  |NUM-"......N.N1.|
000013e0  4e 32 3a 41 b2 4e 3a 8d  31 35 31 30 3a 97 38 32  |N2:A.N:.1510:.82|
000013f0  30 2c 4c 42 3a 97 38 32  31 2c 48 42 3a 9e 44 53  |0,LB:.821,HB:.DS|
00001400  3a 82 3a 9e 52 45 3a 89  33 37 30 00 13 1c 24 07  |:.:.RE:.370...$.|
00001410  3a 00 19 1c 6a 07 3a 00  3c 1c 6b 07 8f 20 2a 2a  |:...j.:.<.k.. **|
00001420  2a 2a 52 45 41 44 20 44  49 53 4b 20 44 49 52 45  |**READ DISK DIRE|
00001430  43 54 4f 52 59 2a 2a 2a  2a 2a 00 4b 1c 6c 07 9f  |CTORY*****.K.l..|
00001440  31 2c 38 2c 30 2c 22 24  22 00 59 1c 71 07 a1 23  |1,8,0,"$".Y.q..#|
00001450  31 2c 5a 24 2c 5a 24 00  6d 1c 76 07 a1 23 31 2c  |1,Z$,Z$.m.v..#1,|
00001460  5a 24 2c 5a 24 2c 5a 24  2c 5a 24 00 87 1c 80 07  |Z$,Z$,Z$,Z$.....|
00001470  8b 20 53 54 20 a7 20 a0  20 31 3a 8d 31 37 30 30  |. ST . . 1:.1700|
00001480  3a 89 33 37 30 00 a1 1c  84 07 a1 23 31 2c 5a 24  |:.370......#1,Z$|
00001490  3a 8b 5a 24 b2 22 22 a7  99 3a 89 31 39 31 30 00  |:.Z$.""..:.1910.|
000014a0  b6 1c 8a 07 8b 20 5a 24  b2 c7 28 33 34 29 a7 51  |..... Z$..(34).Q|
000014b0  b2 a8 20 51 00 c5 1c 9e  07 8b 20 51 20 a7 20 99  |.. Q...... Q . .|
000014c0  5a 24 3b 00 d0 1c a8 07  89 20 31 39 32 34 00 d6  |Z$;...... 1924..|
000014d0  1c ce 07 3a 00 f7 1c cf  07 8f 20 2a 2a 2a 2a 47  |...:...... ****G|
000014e0  45 54 20 4e 55 4d 45 52  49 43 20 49 4e 50 55 54  |ET NUMERIC INPUT|
000014f0  2a 2a 2a 2a 2a 00 26 1d  d0 07 97 37 38 31 2c 59  |*****.&....781,Y|
00001500  3a 97 37 38 32 2c 30 3a  97 37 38 33 2c 30 3a 9e  |:.782,0:.783,0:.|
00001510  36 35 35 32 30 3a 97 56  aa 32 31 2c 30 3a 97 36  |65520:.V.21,0:.6|
00001520  35 30 2c 30 00 5c 1d da  07 99 22 20 20 20 20 20  |50,0.\...."     |
00001530  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001550  20 20 22 3a 54 54 24 b2  22 22 00 89 1d e4 07 97  |  ":TT$.""......|
00001560  37 38 31 2c 59 3a 97 37  38 32 2c 58 3a 97 37 38  |781,Y:.782,X:.78|
00001570  33 2c 30 3a 9e 36 35 35  32 30 3a 99 54 58 24 3b  |3,0:.65520:.TX$;|
00001580  3a 8b 46 b2 31 a7 8e 00  9d 1d ee 07 a1 54 24 3a  |:.F.1........T$:|
00001590  8b 54 24 b2 22 22 a7 32  30 33 30 00 b0 1d f3 07  |.T$."".2030.....|
000015a0  8b 20 54 24 b2 22 5f 22  a7 20 32 30 30 30 00 c6  |. T$."_". 2000..|
000015b0  1d f8 07 8b 20 c6 28 54  24 29 b2 31 33 20 a7 20  |.... .(T$).13 . |
000015c0  32 30 39 30 00 e6 1d 0c  08 8b 20 c6 28 54 24 29  |2090...... .(T$)|
000015d0  b3 34 38 20 b0 20 c6 28  54 24 29 b1 35 37 20 a7  |.48 . .(T$).57 .|
000015e0  32 30 33 30 00 fb 1d 16  08 8b 20 c3 28 54 54 24  |2030...... .(TT$|
000015f0  29 b2 36 20 a7 32 30 30  30 00 15 1e 20 08 54 54  |).6 .2000... .TT|
00001600  24 b2 54 54 24 aa 54 24  3a 99 54 24 3b 3a 89 32  |$.TT$.T$:.T$;:.2|
00001610  30 33 30 00 39 1e 2a 08  53 31 b2 c5 28 54 54 24  |030.9.*.S1..(TT$|
00001620  29 3a 8b 20 53 31 b1 32  35 35 20 b0 20 53 31 b3  |):. S1.255 . S1.|
00001630  31 20 a7 32 30 30 30 00  5e 1e 2d 08 53 31 24 b2  |1 .2000.^.-.S1$.|
00001640  c4 28 53 31 29 3a 53 32  b2 c3 28 53 31 24 29 ab  |.(S1):S2..(S1$).|
00001650  31 3a 97 36 35 30 2c 31  32 38 3a 8e 00 64 1e 32  |1:.650,128:..d.2|
00001660  08 3a 00 86 1e 33 08 8f  20 2a 2a 2a 2a 2a 47 45  |.:...3.. *****GE|
00001670  54 20 53 54 52 49 4e 47  20 49 4e 50 55 54 2a 2a  |T STRING INPUT**|
00001680  2a 2a 2a 2a 00 9b 1e 34  08 46 b2 31 3a 41 24 b2  |****...4.F.1:A$.|
00001690  22 22 3a 8d 20 32 30 30  30 00 af 1e 3e 08 a1 54  |"":. 2000...>..T|
000016a0  24 3a 8b 54 24 b2 22 22  a7 32 31 31 30 00 bb 1e  |$:.T$."".2110...|
000016b0  43 08 54 b2 c6 28 54 24  29 00 cf 1e 48 08 8b 20  |C.T..(T$)...H.. |
000016c0  54 24 b2 22 5f 22 20 a7  20 32 31 30 30 00 eb 1e  |T$."_" . 2100...|
000016d0  52 08 8b 20 54 b2 31 33  20 a7 20 46 b2 30 3a 97  |R.. T.13 . F.0:.|
000016e0  36 35 30 2c 31 32 38 3a  8e 00 0d 1f 57 08 8b 20  |650,128:....W.. |
000016f0  54 b1 34 37 20 af 20 54  b3 35 38 20 b0 20 54 24  |T.47 . T.58 . T$|
00001700  b2 22 2d 22 20 a7 20 32  31 35 30 00 17 1f 5c 08  |."-" . 2150...\.|
00001710  89 32 31 31 30 00 39 1f  66 08 41 24 b2 41 24 aa  |.2110.9.f.A$.A$.|
00001720  54 24 3a 8b c3 28 41 24  29 b3 31 32 a7 99 54 24  |T$:..(A$).12..T$|
00001730  3b 3a 89 32 31 31 30 00  43 1f 70 08 89 32 31 30  |;:.2110.C.p..210|
00001740  30 00 49 1f 96 08 3a 00  62 1f 97 08 8f 20 2a 2a  |0.I...:.b.... **|
00001750  2a 2a 2a 52 45 4e 55 4d  42 45 52 2a 2a 2a 2a 2a  |***RENUMBER*****|
00001760  00 90 1f 98 08 54 58 24  b2 22 52 45 4e 55 4d 42  |.....TX$."RENUMB|
00001770  45 52 20 49 4e 43 52 45  4d 45 4e 54 20 3a 22 3a  |ER INCREMENT :":|
00001780  58 b2 37 3a 59 b2 31 33  3a 8d 32 30 30 30 00 a9  |X.7:Y.13:.2000..|
00001790  1f a2 08 97 36 39 35 2c  53 31 3a 9e 52 4e 3a 9e  |....695,S1:.RN:.|
000017a0  52 45 3a 89 33 37 30 00  af 1f fa 08 3a 00 d0 1f  |RE:.370.....:...|
000017b0  fb 08 8f 20 2a 2a 2a 2a  41 4c 54 45 52 20 53 43  |... ****ALTER SC|
000017c0  52 45 45 4e 20 4e 55 4d  42 45 52 2a 2a 2a 00 0b  |REEN NUMBER***..|
000017d0  20 fc 08 54 58 24 b2 22  54 41 52 47 45 54 20 53  | ..TX$."TARGET S|
000017e0  43 52 45 45 4e 20 4e 55  4d 42 45 52 20 3a 22 3a  |CREEN NUMBER :":|
000017f0  58 b2 35 3a 59 b2 31 32  3a 8d 32 30 30 30 3a 41  |X.5:Y.12:.2000:A|
00001800  b2 53 31 3a 8d 31 35 31  30 00 20 20 06 09 97 20  |.S1:.1510.  ... |
00001810  38 32 30 2c 4c 42 3a 97  38 32 31 2c 48 42 00 5b  |820,LB:.821,HB.[|
00001820  20 10 09 54 58 24 b2 22  4e 45 57 20 53 43 52 45  | ..TX$."NEW SCRE|
00001830  45 4e 20 4e 55 4d 42 45  52 20 20 20 20 3a 22 3a  |EN NUMBER    :":|
00001840  58 b2 35 3a 59 b2 31 33  3a 8d 32 30 30 30 3a 41  |X.5:Y.13:.2000:A|
00001850  b2 53 31 3a 8d 31 35 31  30 00 70 20 1a 09 97 20  |.S1:.1510.p ... |
00001860  36 39 35 2c 4c 42 3a 97  36 39 36 2c 48 42 00 8e  |695,LB:.696,HB..|
00001870  20 24 09 9e 20 41 4c 3a  8b 28 c2 28 32 29 af 31  | $.. AL:.(.(2).1|
00001880  29 b2 30 a7 9e 52 45 3a  89 33 37 30 00 9b 20 2e  |).0..RE:.370.. .|
00001890  09 9e 52 45 3a 89 38 32  30 00 a1 20 56 09 3a 00  |..RE:.820.. V.:.|
000018a0  c1 20 57 09 8f 20 2a 2a  2a 2a 50 52 49 4e 54 20  |. W.. ****PRINT |
000018b0  43 52 53 52 20 43 4f 2d  4f 52 44 53 2a 2a 2a 00  |CRSR CO-ORDS***.|
000018c0  e7 20 60 09 41 b2 31 30  32 34 aa c2 28 24 30 32  |. `.A.1024..($02|
000018d0  42 32 29 aa 34 30 ac c2  28 24 30 32 42 33 29 3a  |B2).40..($02B3):|
000018e0  8d 31 35 31 30 00 16 21  65 09 46 b2 31 3a 54 58  |.1510..!e.F.1:TX|
000018f0  24 b2 22 48 42 3d 22 3a  58 b2 31 32 3a 59 b2 31  |$."HB=":X.12:Y.1|
00001900  32 3a 8d 32 30 30 30 3a  99 48 42 3b 22 4c 42 3d  |2:.2000:.HB;"LB=|
00001910  22 3b 4c 42 00 2d 21 6a  09 8d 31 37 30 30 3a 9e  |";LB.-!j..1700:.|
00001920  52 45 3a 46 b2 30 3a 89  33 37 30 00 00 00        |RE:F.0:.370...|
0000192e

Our privacy policy is here.
Last updated: 15 Dec 2025, 16:13 UTC
Website designed by .