10 POKE 59468,14:PRINT "":LIST 11 " ******************************** 12 " *** I.C.P.U.G. DISK NO. L3 *** 13 " ******************************** 25 " ******************************** 26 " *** LIST-ME PROGRAM BY: *** 27 " *** JOE GRIFFIN (ICPUG) *** 28 " *** 7 APRIL 1985 *** 29 " ******************************** 30 " ******************************** 31 " *** OK TO COPY BUT NOT TO **** 32 " *** BE SOLD OR PUBLISHED **** 33 " *** FOR PROFIT. **** 34 " ******************************** 35 " ******************************** 36 " * TO THE BEST OF OUR KNOWLEDGE * 37 " * THE PROGRAMS ON THIS DISK * 38 " * ARE IN THE PUBLIC DOMAIN. * 39 " * * 40 " * SHOULD THIS NOT BE THE CASE, * 41 " * PLEASE CONTACT US AT ICPUG. * 42 " * * 43 " ******************************** 44 " 50 " THIS DISK CONTAINS A NUMBER OF COMAL PROGRAMS, LIST'ED TO DISK. 51 " TO GET THE FILES INTO THE MACHINE USE ENTER 'FILENAME' 52 " 100 " LIST-ME.L3 THIS FILE CONTAINS DESCRIPTIONS OF THE FILES ON 101 " ICPUG DISK NO. L3 - LOAD AND LIST IT. (A BASIC FILE) 102 " 103 " COMAL.L3 THIS COMAL LIST'ED FILE CONTAINS DESCRIPTIONS OF 104 " THE FILES ON ICPUG DISK NO. L3 - ENTER AND LIST IT. 105 " 106 " REMOVE //.L REMOVE COMMENT LINES FROM A LIST'ED COMAL PROGRAM 107 " FILE'TO'PRINT.L PRINT A FILE WHICH WAS LISTED TO DISK 108 " DISK'GET.L 'GET' A SINGLE CHARACTER FROM A DISK FILE 109 " DISK'GET'INIT.L INITIALISATION FOR DISK'GET 110 " DISK'GET'STRIN.L 'GET' A STRING FROM DISK 111 " GET'CHAR.L 'GET' A CHARACTER FROM THE KEYBOARD 112 " JIFFIES.L CALCULATE JIFFIE COUNT 113 " SCAN.L QUICK SCAN OF KEYBOARD 114 " VALUE.L RETURN VALUE OF AN INTEGER STRING 115 " CURSOR.L POSITION CURSOR 116 " GENERRORMESSAG.L ERROR MESSAGE GENERATOR 117 " FORMATTER.L FORMATTED OUTPUT OF LIST'ED FILE 118 " SCAN'DISK2.L SCAN DISK TO FIND PROCEDURES USED 119 " TRANSFER/FIX.L CONVERT PROGRAM FILES TO LIST FILES 120 " UTILITIES.L A WHOLE RANGE OF UTILITIES 121 " EVALUATOR.L EXPRESSION EVALUATION 122 " READ'DIR.L READ DISK DIRECTORY 123 " DIRECTORY.L MODIFY DISK DIRECTORY 124 " DISK'TO'TAPE.L COPY 'SEQ' FILE TO TAPE 125 " AUTO'MENU.L AUTOMATIC MENU PROGRAM SELECTION 126 " FORMAT-2COL.L FORMAT TEXT FROM DISK INTO TWO COLUMNS 127 " SCREEN'IMAGE.L SAVE SCREEN TO DISK FILE 128 " FORMATTER'DISK.L 'FORMATTER' FOR A WHOLE DISK 129 " SEE.L SHOW 'SEQ' FILE ON SCREEN - PAGE AT TIME 130 " SEE2.L SHOW 'SEQ' FILE ON SCREEN - SCROLLING 131 " QUICKSORT'DEMO.L DEMONSTRATION OF QUICKSORT TECHNIQUE 132 " BENCHMARKSYS.L BENCHMARK SYSTEM TESTS 133 " BENCHMARKSYS.B BENCHMARKS - IN BASIC 134 " SEEINSTRUCTION.L DISPLAY AN INSTRUCTION FILE 135 " HANOI40.L TOWER OF HANOI - 40 COLUMN 136 " MATRIX INVERSE.L INVERT A MATRIX 137 " DDPLOTTING.L DOUBLE DENSITY PLOTTING 138 " 139 " OLSENMAIN.L SCHOOL RECORD PROGRAM SUITE - MENU 140 " ENROLL.L - ENROLL CLASS OR INDIVIDUAL 141 " PRINTOUT.L - PRINTOUT LISTS 142 " ENTERMARKS.L - ENTER PUPIL'S MARKS 143 " WINDOW.L - DISPLAY RECORDS 144 " CORRECTIONS.L - CORRECT RECORDS 145 " DELETE.L - DELETE RECORDS 146 " DELREC.L - DELETE RECORDS 147 " KEYS - KEY FILE FOR OLSEN SCHOOL 998 " 999 " ************************* THAT'S ALL FOLKS ************ DPG ***** READY.