@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr O                   }                          }        MEMOPADIT IS A FILING SYSTEM FOR MEMORANDA THAT I USE T}O KEEP TRACK OF BOOK/MAGAZINE ARTICLES.MEMO'S ARE SEPARATED BY returns ;BY REMOVING RETURNS, MEMO'S OF ANY LENGTH CAN BE MAD}E.EACH MEMO IS PRECEEDED BY 6 CODE-BYTES:1+2 HOLD 16 BITS, EACH EQUALS A REFENCE KEY (E.G.GRAPHICS, SOUND, EDITORIAL)3-4 H }OLD NUMBERS IN WHICH I STORE THE YEAR(E.G. THE 89 OF 1900)+THE ISSUE NO. OF A MAGAZINE)5+6 HOLDS PAGE OR SEQUENTIAL NO.WHEN } I SEARCH FOR A PARTICULAR MEMO, I CAN USE 2 'WORDS' (SEQUENCE OF CHARACTERS) I THINK OCCUR IN THE MEMO.THE SEARCH CAN BE F }OR BOTH WORDS IN ONE MEMO, OR EITHER WORD.(OR ONLY ONE WORD).THE DISK DIRECTORY IS SHOWN BEFORE A FILE IS SAVED, OR LOADED. }A USER USES HIS OWN KEYS (KEYWORDS) THEREFORE A SHORT PROGRAM IS PROVIDED TO MAKE YOUR OWN 16 KEYS.WHEN A FILE IS SAVED THE }16 KEYWORDS FOR THAT FILE ARE SAVED WITH IT AND ON LOADING ARE LOADED WITH THEIR FILE.SO YOU CAN MAKE MEMOFILES ABOUT MAGAZI}NE ARTICLES, MUSIC RECORDS, GENEOLOGY ETC EACH FILE WITH A PERTINENT SET OF KEYWORDS.OF COURSE YOU CAN SEARCH THE FILE ON AN}Y COMBINATION (1-16) OF KEYWORDS.IMAGINE UP TO 16 DESCRIPTIVE KEY WORDS FOR 'CROSSFILING' AND RETRIEVING THAT ONLY COST YOU }2 BYTES PER RECORD.FURTHERMORE, YOU CAN DELETE A MEMO OR UPDATE IT WHILE THE PRESENT CONTENTS ARE ON DISPLAY.ONLY COST YOU oO                   }                          }        OPERATION1.MENUSEE SCREEN 1.THE ARROW & BLOCK MOVE }ALONG THE CHOICES AT EACH KEYPRESS UNLESS return IS PRESSED. AT THAT POINT THE CHOICE IS MADE.WHEN THE CHOSEN OPERATION IS D}ONE, THE PROGRAM RETURNS TO REQUEST: PRESS RETURN=END OTHER KEY=CONTINUECONTINUATION WILL PRODUCE THE MENU AGA}IN.2.LOAD FILE or SAVE FILESEE SCREEN 2.THE DIRECTORY OF DRIVE 1 IS SHOWN WITH THE TEXT: ENTER FILESPECS (Dn:....)}BE SURE TO ENTER >D:FILENAME.EXT<3.MAKE RECORDSEE SCREEN 3.THE 16 KEYWORDS ARE SHOWN PRECEEDED BY THEIR NUMBER.TYPE IN THE} NUMBERS OF THE KEYWORDS THAT YOU THINK TYPIFY YOUR MEMO.IF YOU TYPE THE SAME NUMBER 2x THAT DOESN'T MATTER.IF YOU MAKE AN E}RROR, FINISH MAKING THE MEMO AND THEN CHOSE THE OPTION >CORRECT< FROM THE MENU.YOU TERMINATE ENTRY OF THE KEY NUMBERS BY TYP}ING A NON-VALID NUMBER >16 OR <1 OR PRESSING BREAK.THIS DOESN'T STOP THE PROGRAM, BUT TRAPS IT TO THE NEXT PROGRAM LINE.IN T}HIS YOU ENTER -THE YEAR( MINUS 1900) ,-THE ISSUE , -THE PAGENUMBER OF THE MEMO.N.B.AS THE PROGRAM IS COMPLETELY IN TURBO BA}SIC, YOU CAN CHANCE THESE ENTRIES TO REFLECT OTHER DATA (LN.1170-1180 ).NOW YOU WILL GET THE PROMPT: NOW ENTER TEXT}WHEN THE TEXT IS ENTERED.YOU WILL READ: PRESS RETURN = FINISH ENTRIES PRESS + = ADD TO ABOVE RECORD O}THER KEY = INPUT NEXT FILEIF YOU MADE AN ERROR, YOU PRESS return AND VIA THE MENU EXECUTE >CORRECT< .THE >> + << MOVES THE }PROGRAM DIRECTLY TO ENTER TEXT TO BE ADDED TO THE PRECEEDING MEMO. ANY OTHER KEY WILL AGAIN ASK FOR KEYWORDS ETC.4.FIND PAR }TSEE SCREEN 4.YOU MAY WANT TO USE ONE WORD ONLY, THEN PRESS RETURN WHEN ASKED FOR THE SECOND WORD.IN THE LATTER CASE, YOU WI!}LL NOT SEE THE PROMPT: SELECT ON BOTH(2) OR EITHER(1) WORD(ENTER 2 OR 1)THAT IS OBVIOUSIF YOU SELECTED ON 2 'WORDS"}' THEN 2 WILL ONLY SHOW MEMO'S WITH BOTH 'WORDS' ,THE 1 (EITHER) WILL LOOK 2x THROUGH THE FILE ONCE FOR EACH WORD.WHEN A MEM#}O IS FOUND, YOU WILL SEE IT FOLLOWED BY: <=B$(A,C) ESCAPE =CLASSIFICATIONS PRESS KEY = CONTINUETHE COMPLE$}TE FILE IS B$. THE MEMO IS B$(A,C); OF WHICH THE TEXT YOU SEE ON SCREEN IS B$(A+6,C).THESE DATA MAY ASSIST YOU.IF YOU PRESS%} escape YOU GET THE KEYWORD(S) +DATE,NUMBER AND PAGE OF THE ISSUE.A KEYPRESS WILL CONTINUE THE SEARCHWHEN YOU WANT TO MAKE C&}HANGES IN THE MEMO'S YOUR SEARCH SHOWS, OR SCRAP THEM THEN THE OPTIONS >CTRL-A< AND >CTRL-C< ARE HANDY, AS THEY DO NOT INTER'}RUPT THE SEARCH AS SUCH.WHEN THE SEARCH IS COMPLETED YOU WILL GET THE MESSAGE: NO (FURTHER) MATCHES FOUNDA KEY PR(}ESS WILL THEN GET YOU THE CHOICE OF -FINISH- OR -MENU-.6.CORRECTWHEN YOU WANT TO CORRECT A MEMO,FIRST FIND IT AND THEN USE)} THE OPTION TO CORRECT AS THIS BRINGS YOU TO THE CORRECT PART OF THE STRING IN WICH THE MEMO IS SITUATED.USE CORRECT FROM TH*}E MENU,IF YOU HAVE STARTED A NEW FILE AND WANT TO CORRECT A NUMBER OF MEMO'S.IT IS ONLY FOR THIS REASON THAT >CORRECT< IS AVA+}ILABLE ON THE MENU I.O. ONLY AS THE SUBROUTINE IT IS.THE OPTION SHOWS A MEMO + ITS KEYS AND THE PROMPT: IS CODING CO,}RRECT? TYPE Y/N(EXACTLY AS WHEN YOU PRESS >CTRL-C< DURING THE OPTION >FIND PART>)IF YOU TYPE >N< YOU GET SCREEN 3 TO REDO T-}HE CODING.THE NEXT STEP SHOWS: TEXT WAS>........ NOW INPUT CORRECT TEXTON THE DOTS THE TEXT OP THE ORIGIN.}AL MEMO IS SHOWN.YOU MUST(!) NOW ENTER A TEXT,AS THE ORIGINAL TEXT WILL BE DELETED.7.MAKE KEYWORDSYOU ARE PROMPTED 16 TIME/}S TO ENTER A KEY(WORD) IN THIS WAY: INPUT WORD 1 INPUT WORD 2 THIS WAY YOU NOW HOW MANY, AND WHICH WORDS YOU0} HAVE HAD.AFTER INPUT 16 ALL 16 ARE DISPLAUED AS IN THE TOP OF SCREEN 3.IT IS IMPORTANT THAT YOU REALISE THAT EACH FILE OF 1}MEMO'S WHEN YOU SAVE IT, IS SAVED WITH SUCH A LIST OF KEYS.SO DO NOT CHANGE KEYS WITH 'FILES IN MEMORY' ; THEY WERE ENTERED 2}WITH THE FORMER SET OF KEYS AND WILL NOW BE DISPLAYED WITH THE NEW KEYS.! MAKE KEYWORDS WHEN YOU START A FILE !! SAVE THE F3}ILE BEFORE CHANGING KEYWORDS!----------------------------------------------------------------------------D2:F1 VE THE FuO                   5}                          6}        PRORAMMING FEATURESI USE MOSTLY 10-LINE STEPS.THE FIRST7} 100 LINES ARE THE PROGRAM; THE PROCEDURES (PROCS) CALLED RUN FROM 100 TO 100.<100 MENU >--SELECT ACTIVITY<200 LOADFILE >--8}GET MEMOFILE FROM DISK<300 SAVEFILE >--WRITE MEMOFILE TO DISK<400 WORDLIST >--DISPLAY KEYWORDS IN 2 COLUMNS<500 LIMITS >--9}DEFINE LIMITS OF 1 MEMO IN THE FILE <600 FINDTEXT >--SEARCH FOR WORDS IN TEXT OF FILES<800 DECODE >--INTERPRET FIRST 6 BYTE:}S OF A MEMO<900 CORRECT >--CORRECT ONE MEMO<1100 MAKECODE >--COMPACT INPUT OF KEYWORDS AND OTHER DATA IN 6 BYTES<1200 MAKE;}TEXT >--ENTER TEXT-PART OF FILE<1300 RECORDMAKE >--PROCESS MAKECODE & MAKETEXT<1400 SUBJECT >--CHECK 2 BYTES FOR BITS 'ON'<}<1500 INIT >--DIMENSION/EFINE STRINGS & VARIABLES<1600 MATCHCODE >--CHECK WITH >TURBO &< FUNCTION FOR BITS IN DOUBLE BYTE<1=}700 KEYSTRING >--ESTABLISH KEYWORDSLINE 0----IS > 0 REM D:.....":REM short descriptionTHIS WAY I CAN EASILY SAVE BY PUTTI>}NG THE CURSOR PAST >REM< AND KNOW AT A GLANCE WAHT THE PROGRAM IS ABOUT.LINE 4----ALL MY PROCS ARE SEPARATELY ON DISK ; IF ?}THEY NEED ANY DIMENSIONING OR SETTING OF VARIABLES, THIS IS DONE IN A BLOCK OF LINES, PROC INIT.SO I CAN ENTER ALL PROCS I N@}EED TO BUILD A COMPOSITE PROGRAM AND PROC INIT WILL BE CALLED AT THE START AND ONLY ONCE.LINE 140---- IN 1550 I SEPARATE PAA}RTS OF TEXT IN A CLEARLY VISIBLE WAY WITH *IN 1570 I REPLACE * WITH RETURNS TO ALLOW 140 TO PRINT M$ IN A COLUMNLINE 160---B}-THE 7's IN THE FORMULA CAUSE THE ARROW TO MOVE OVER 7 POSITIONS, A 1-LINE MENU PICKER.LINE 270/280----SEE 330IN THE FILE C}LOADED THE MEMO-PART COMES FIRST ,THEN 10*CHR$(0) BUFFER ,THEN THE KEYWORDS IN W$. IN 280 I FIND/REMOVE THE BUFFER I MADE ON D}SAVING (330)LINE 430----IN THE CODE$ (W$) A KEY(WORD) IS PRECEEDED BY AN ASCI CHARACTER ,WHOSE VALUE = THE LENGTH OF THAT KE}EY.W1 IS THE FIRST LETTER AT POSITION BEG(IN)+1 ;W2 IS THE LAST LETTER. THE LENGTH OF THE WORD W$(W1,W2)=BEG.AND THEN THE NEF}XT WORDLENGTH IS CODED IN W2+1 WHICH BECOMES THE NEXT BEG.LINE 440----TO GET THE 16 WORDS IN 2 COLUMNS, I USED THE >DIV< FUG}NCTIONLINE 510----VALUE A IS SET TO FALL WITHIN THE CHOSEN FILE; THE REPEAT/UNTIL TRACKS BACK TO FILE-START, LINE 530 THEN H}GETS THE FILE-END (BOTH BEING RETURNS)D2:F2HIN THE CHOSEN FILE; THE REPEAT/UNTIL TRACKS BACK TO FILE-START, LINE 530 THEN .O                   J}                          K}        LINE 600/730----INITIALLY C=1 SO IN 650 B$ WILL BE SEARCHED FROM A. WHEN A MATCH IS FOU L}ND, THE LIMITS (START-END) OF THAT MEMO ARE FOUND WITH PROC LIMITS.IF SEARCH IS FOR 'BOTH' KEYWORDS, SEARCH FOR KEY 2 WITHIN M} THE LIMITS (B$(A,C)) IS MADE WITH APPROPIATE ACTION DEPENDING ON RESULT.IF SEARCH IS FOR 'EITHER' KEY THEN THERE IS A SEARC N}H FOR KEY 1, AND WHEN THE WHOLE B$ IS INSPECTED, INSPECTION ON KEY 2 IS MADE.(LINE 730)LINE 930----KEY=(K-89)*(K-78).I FIND O} THIS NEGATIVE CODING MORE ELEGANT.ANY INPUT THAT CORRESPONDS TO THE VALUES I LOOK FOR, MAKES KEY=0.SO THE POSITIVE RESULT RE P}PEATS THE LOOP.LINE 1130----*B+ COMBINED WITH TRAP IS USEFUL IN AN INPUT SITUATION AS IN 1140 TO AVOID TO MANY IFS.LINE 11 Q}40----WITH INPUTS, PEOPLE THINK,SO A FAST PROCESS - WHICH Z/2^S IS NOT - IS NOT REQUIRED, SO A RELATIVELY SLOW METHOD USING R}ONLY A FEW BYTES IS USED.LINE 1160----WHEN THIS PROC IS USED AS PART OF THE PROC MATCH, THEN THE NEXT LINES ARE UNNECESSARY S} ,HENCE THE ENDPROCLINE 1270----THE REMOVAL OF THE RETURN BETWEEN 2 MEMO'S, WELDS THEM TOGETHER.LINE 1400/1480----THE SUM T} OF THE CODED KEYS=B (MAX 256*256-1) V=256*256/2 IN 1420 I CHECK IF B>V IF SO LN 1440 WILL PRINT AND I SUBTRACT V (THE VALUE U} FOUND ) FROM B.IN ANY CASE WITH EACH STEP FROM THE FOR NEXT LOOP I MOVE ONE WORD IN THE KEY-CODE-STRING. (1420) AND V IS HA V}LVED (1450).LINE 1520----LOOK AT THE CHARACTERS IN W$, THEIR ASCI VALUE IS THE LENGTH OF THE WORD TO FOLLOW. E.G.6-REVIEW, W}4-GAME.LINE 1620----B1 IS THE BINARY SUM OF THE KEYS I LOOK FOR. B2= THE CODE OF A MEMO.B3 HOLDS THE COMMON BINARY VALUE O X}F B1 & B2. NEVER LARGER THAN EITHER OF THEM.(1630) IF B3=B1 IT MEANS THAT B3 CONTAINS B1 AND THAT B1 IS AT LEAST CONTAINED Y}IN B2. B2. NEVER LARGER THAN EITHER OF THEM.(1630) IF B3=B1 IT MEANS THAT B3 CONTAINS B1 AND THAT B1 IS AT LEAST CONTAINED O                   [}                          \}        DAS BINDEMO PROGRAM AN SICH LAEUFT FROM 1500-1700. ES GIBT EIN BEISPIEL VON DEN BINAEREN]} OPERATOREN,WIE OBEN ERWAEHNT.LINIE 1510 ZEIGT WIE EINFAG ES GEHT.LINIE 1630 ZEIGT DER GEBRAUCH VON *B+ UM OHNE STOERENDE T^}EXTEN (STOPPED AT LINE ...) IN EIN PROGRAM EIN ZU GREIFEN.1640-NULACHT GEHOERT NICHT ZUM PROGAM BINDEMO, WIRD ABER IN ZUSAMM_}ENHANG MIT LINIE 1630 GEBRAUCHT UM EIN ZEITLUPE EINES LAUFENDES PROGRAM ZU SCHAFFEN.NULACHT WANDELT EIN GR.0 SCHIRM UM IN EI`}N GR.8+16 SCHIRM UND DASZ LAESST SICH MIT EINEM PRINTERDUMP (GR8TOPR= GR.8 TO PRINTER ) EINFACH MACHEN.GR8TOPR IST EIN PROC a}DIE EIN DUMP ZUM> SEIKOSHA GP-100AT < MACHT (7-NADEL).HARDCOPY- IST DAVON DAS BEFEHL 'JETZT DRUECKEN'.NULACHTAUSGEZEIGNEb}T UM AN ANLEITUNG HER ZU STELLEN, WEIL ES ZEIGT WAS SICH AUFS SCHIRM ZEIGT.ES IST TEIL MEINER PROCSERIE , UND LAEUFT VON 700c}0-7110.DIE PROCSERIE IST EIN SUBROUTINEN SAMMLUNG MIT JEDER SEIN EIGENEN REGELNUMMER BEREICH.GEMEINSAM HABEN SIE NUR LINIEd} 4 (EXEC INIT ) SO DASZ ALLE DIMENSIONIERUNG USW IM ANFANG UND NUR EINMALIG GESCHAEHT )DIE PROCS LASSEN SICH ALSO FREILICH Ze}USAMMEN STELLEN WIE EIN MENU.GR8TOPRLINIE 20000-20260 NUR FUER SEIKOSHA GP-100AT ETWA WIE DIE 1029 .GEBRAUCHT MAN ANDEREf} PRINTER, KAN MAN DIESES LINIEN BLOCK FUER SEIN EIGENE GR.8 DUMP GEBRAUCHEN.INNERHALB DIESE PROC IST DIE PRINT BEFEHL PROC HAg}RDCOPY 20240-20260 . S LINIEN BLOCK FUER SEIN EIGENE GR.8 DUMP GEBRAUCHEN.INNERHALB DIESE PROC IST DIE PRINT BEFEHL PROC HA0 REM "D:1029DUMP.LST":REM A GR.8+16 DUMP FOR THE 1029 ATARI PRINTER.UNTRIED BY W.WALRAVEN SOFAR20000 SCREEN=PEEK(88)+256*PEi}EK(89):IOCB=2:IF OFFSET>160 OR OFFSET<0 THEN OFFSET=020010 ON PEEK(1570)=6 GOTO 20020:RESTORE 20040:FOR I=0 TO 171:READ A:POj}KE 1536+I,A:NEXT I20020 FOR PR=0 TO 27:CLOSE #IOCB:OPEN #IOCB,8,0,"P:":? #IOCB;CHR$(27);"9";CHR$(27);"A";CHR$(1);CHR$(64+OFFk}SET);20025 ON OFFSET=0 GOTO 20030:FOR I=1 TO OFFSET:? #IOCB;CHR$(0);:NEXT I20030 DUMMY=USR(1536,IOCB,SCREEN):SCREEN=SCRl}EEN+280:NEXT PR:RETURN 20040 DATA 104,104,104,10,10,10,10,141,182,6,104,141,173,6,10420050 DATA 141,172,6,169,0,141,183,6,3m}2,54,6,24,173,94,6,105,1,141,172,6,17320060 DATA 95,6,105,0,141,173,6,238,183,6,173,183,6,201,40,208,226,96,162,0,2420070 Dn}ATA 173,173,6,157,95,6,173,172,6,157,94,6,105,40,141,172,6,173,173,6,10520080 DATA 0,141,173,6,24,138,105,6,170,224,37,144,2o}21,162,0,14,255,255,62,174,620090 DATA 14,255,255,62,174,6,14,255,255,62,174,6,14,255,255,62,174,6,14,255,25520100 DATA 62,p}174,6,14,255,255,62,174,6,14,255,255,62,174,6,232,224,8,208,209,17420110 DATA 182,6,169,11,157,66,3,169,174,157,68,3,169,6,1q}57,69,3,169,0,157,7320120 DATA 3,169,8,157,72,3,32,86,228,969,17420110 DATA 182,6,169,11,157,66,3,169,174,157,68,3,169,6,1>0 REM D:GETSCRN.LST":REM SHORT PTOGRAM TO GET A GR.24 SCREEN5 TRAP 3010 OPEN #1,4,0,"D:LFINENG.PIC"15 GRAPHICS 8+1620 SC=s}DPEEK(88):BGET #1,SC,768030 CLOSE #150 PAUSE 10060 GRAPHICS 0:? "THIS KIND OF PICTURE CAN BE MADE AND PRINTED VIA A GR.8+1t}6 DUMP"70 ? :? :? 80 ? "W.WALRAVEN":? "P.LAMMEKENSSTRAAT 6":? "4827CM BREDA":? "NETHERLANDS":? "TLF 076-875985"100 END +1{v}w}x}y}z}UUU{}ꪪUUUꪪ|}UUUꪪUUU}}ꪪUUUꪪUUU~}ꪪUUUꪪ}?UU?U}U??}??U?<<?<<U?}???U ?? ??}U????U}U}UU}UU}????U5W5W:}:U5W5W::U5W}5W::U5W:}U5W:U5W}:U5W:}UU??U UW UUUpUUUUp UU\\5U\}:U UW UUUpUUUUp UU\\5U\:U} UW UUUpUUUUp UU\\5U\:UWWW=WW}>U5WUp5WUpUpUpUp::U5W}Up5WUpUpUpUp::U5WUp5WUpUpUpUp:}:U5W_5WU_UpUp::U5W UU\5W}UUUUpUp::U5W UU\5WUUUUpUp::}U5W UU\5WUUUUpUp::U5WW5WUUp}꪿::UUUUUU5WUp5WUpUpꪪ::}UUUUUU5WUp5WUpUpꪪ::UUUUUU5WUp5WUpUpꪪ}::UUUUUUU_U_U_ꪪUUUUUU }UU\UUU\Up UUUpUUꪪꪰꪪUUUUUU UU\UUU\Up UUUpUUꪪ}ꪰꪪUUUUUU UU\UUU\Up UUUpUUꪪꪰꪪ?}?????}}}}}}}}><<f<<`<<|<>x~<f`fffff`ff`f<fffff`f~f<f`ff`}`ff|`<f|ff`f<<|`<`v|fv;`<>|<~}8888 8><8>x<|b8~<>ff0xf~`4xf~0fbffff`Lf``~`fn``fnft`fff<~<f``~ff`fff8`}>f>2`vf<<<<<v<`|<~>||~}` ``8>~8<>~<<>x|<|<|~|>``ff`fffffffffff`}`<ff<ff`ff~ff~ff<bf>fffff`f|`ff<|<`|<<v;`>v;|}~080`  80~|}~<|~<|8>>0fffff`ff`f|f~f`~<~f<`0f`>`}``ff<0>v><<|>v<v<|<0|}99##燃#99##3$333ϙ}$))333$333$333$333ϟ$33ǟß$É$9}93$333ϟ$33ǟß$É$970 REM D:SHADING.LST10 GRAPHICS 24:SC=DPEEK(88)20 FOR I=1 TO 6:READ A,B:GOSUB 120:NEXT I30 FOR I=1 TO 2:READ A,B,C:GOSUB 14 }0:NEXT I40 FOR I=1 TO 3:READ A,B,C,D:GOSUB 142:NEXT I60 COLOR 1:FOR X=152 TO 160:PLOT X,0:DRAWTO X,178:NEXT X70 COLOR 0:FO }R X=161 TO 169:PLOT X,0:DRAWTO X,178:NEXT X90 EXEC GR8TOPR:EXEC HARDCOPY100 GOTO 100120 FOR X=0 TO 39:FOR Y=0 TO 16 STEP 2 }:POKE SC+X+Y*40,A:POKE SC+X+Y*40+40,B130 NEXT Y:NEXT X:SC=SC+X+Y*40-40:RETURN 140 FOR X=0 TO 39:FOR Y=0 TO 14 STEP 3:POKE } SC+X+Y*40,A:POKE SC+X+Y*40+40,B:POKE SC+X+Y*40+80,C141 NEXT Y:NEXT X:SC=SC+X+Y*40-80:RETURN 142 FOR X=0 TO 39:FOR Y=0 TO } 15 STEP 4:Z=Y*40:POKE SC+X+Z,A:POKE SC+X+Z+40,B:POKE SC+X+Z+80,C:POKE SC+X+Z+120,D143 NEXT Y:NEXT X:SC=SC+X+Y*40-120:RETU }RN 150 DATA 136,34,153,102,170,85,119,221,170,170,136,136160 DATA 146,36,73,170,85,85170 DATA 136,68,34,17,17,34,68,136,13 }6,0,34,0200 STOP 20000 PROC GR8TOPR20001 RESTORE 20000:FOR I=0 TO 211:READ J:POKE 1536+I,J:NEXT I20002 REM LINES TO U }SE>INV=1: OPEN#7,8,0,"P:":X=USR(1536,7,INV):CLOSE#7:,Z67B:,%@,.>:AU&,^ d (B:,@y6-6)}-'6-1+@$;@]6-F:@,%AV$F:@,k6-%Ay6-%A''-@A$)}&@@O-@3%@@$%%@:7%,,O%@@$%%@:7%,,e,%@@$%%F:BsD) }%%&@,e%@@$%%%AAU&F:BsD%%&@, A6-%@"@9)6-76-) }%A A A  B, N7 #B!-A%"3A6%7 !NV6-@/@@) }P:H6-?:A6<@<,S@V$"NUSE GR.8+16:SE.2,0,0:C.1*N((104,201,2,240,15,170,240,5,104,1) }044N,,202,208,251,169,132,133,212,134,213,96>N''104,104,10,10,10,10,133,206,162,0HN++104,104,208,1,202,134,207,186,134,) }205RN**169,0,133,212,133,213,165,88,133,203\N))165,89,133,204,169,28,133,208,160,6fN((185,205,6,32,166,6,136,208,247,16)}9pN((8,133,209,165,203,72,165,204,72,72zN((162,8,165,209,133,4,177,203,74,198N))4,208,251,104,106,72,165,203,24,105N)}**40,133,203,144,2,230,204,202,208,228N''104,69,207,166,208,202,208,2,41,7N**32,164,6,104,133,204,104,133,203,198N,,)}209,208,196,200,192,40,144,187,165,203N))24,105,24,133,203,165,204,105,1,133N))204,198,208,240,2,208,157,169,15,32N&)}&166,6,169,155,9,128,132,4,72,166N&&206,169,11,157,66,3,169,0,157,72N$$3,157,73,3,169,78,157,75,3,104N%%32,86,228,1)}89,67,3,16,5,133,212N%%166,205,154,164,4,96,79,0,16,27N 8,10R661185,1750,749,1485,1449,1295,1360,1303,1333,1242R5)}51594,1214,1281,1744,1097,1433,1007,1010,822,971R 911,18 D2:FANCY8.BAS749,1485,1449,1295,1360,1303,1333,1242R5(Sfffffff>`<|fl0fF68of;880  00f< 80 0 ~~`0 0`<-}f f``f<ffffbx`bbx``||ff~fff xlxxl```bv~nf-}`<|<fffff<fff<<f<f`f< |v000|000`~`|fff8<f<`lxxl8<-}fff`<|~fff;bt8|lf<|~L2~<~~<-}8x8-}00000000.900-}E7   00000000.900,vw/ TIREGEPOSITISKEUTXPQAABBCCDDEEFFGGHHJJKKOOABAHCDGDJKDEDFOOGP1 }QRG (BBsD@@@A@ @ @7P @7@!1!}@@?wwww?@V@A@%A2@A@AD@TAD1"}AA2 AB!A"A5#A'$@R%A'&A'A(@t)@A*&A+&A,X&A-&1#}A. &A/\ A0A1t2@"3?r4@5AP6//FISHTEXT.BAS >W.WALRAVEN BREDA 7 AUG.19861$}AY c6-@76-@!'6-@36-@K6-@'+&@,c6-@'+&@,6-@V1%}6-@'6-A36-@%?6-A2K6-@W6-Ac6-@o6-AD{6-@T6-6-A1&}6-6-AB6-6-A5i6-A'6-@R!6--6-A96-AE6-@tQ6-@]61'}-@i6-CC9<,9<,9<,9<,9<,9<,9<,9@<,(#-@#6-+&@,$21(}/68<,-P:&+&,$,/68<,-P:%+&,$,4/68<,-P:%+&,$,/68<,-P:%+&,$,6$68<,-$68<,-P:%+&,1)}$,8/68<,-P:%+&,$,/68<,-P:&+&,$,:/68<,-P:&+&,$,/68<,-P:&+&,$,< > -6-+&,1*}$@/68<,-P:&+&,$,/68<,-P:&+&,$,B/68<,-P:%+&,$,/68<,-P:&+&,$,D E~+@@1+}<6-F:@,%AV$F:@,NAY@4b,@t%@~6-@'@$A`F-A`$@1,}H/G:,$%E:,$%J P ,RK -/8<,8<,+/8<,8<,;/8<,8<,K/8<,8<,T1-}/8<,8<, V5 --!/8<,8<,1/8<,8<,5  ,// ,/ ,/1.} ,/,6-6-BsD6;@@,; A @ A6-@AD$-@B:,@'@1/}D6-+@&,$A &@]-@^N-@N%%%%$@@F:%+@:7<,,&@2,$@10}%,c d Ae g  A h A`/" 6. A.T.A.R.I.,6-@/$/"@11} 6. O.O.O.O.O.,6-/$%%6.W.WALRAVEN ATARI CLUB BREDA+6-@+6-@$A &@_-@12}B:,(-@_%%%%$@@F:%+@:7<,,&@2,$@%,  X=X+1 $6-%A13}$D2:FISHTEXT.BAS%%%$@@F:%+@:7<,,&@2,$@%,  X=X+1 $6-%A0 DECKTEMAKE@QA4@R@@!@R@R@8 @ @55} @ @ @FAST SHUFFLE & DEAL""^^^^^^^^^^^^^^^^^^^^^^^^^^^^"">> FAST SHUFFLE AND DEAL <<"">56}> W.WALRAVEN 076-875985 <<"">> SHAREWARE 11-4-1986 C. <<""^^^^^^^^^^^^^^^^^^^^^^^^^^^^ _ +2( THERE ARE 3 57}PARTS TO THE PROGRAM5(_(%1. THE SHUFFLING OF THE CARDS 120-170R(R(G2.DEALING THEM ON THE GR.7 SCREEN THE X-VALU58}ES ARE THE CARD VALUESS5(- THE SCAN OF POSITIONS IS SHOWN IN THE WINDOW8(S(3.LAYING THE HANDS OUT(( ($(PRESS 59}ANY KEY TO START()x6-@Q9,-68,- -@6@!!6-P:H:,$+%@5:},,% 6-8,68,-8,!68,-% # +@@#6-$-%%@$,8,# 65;}-%@#A A.6-6-.OPEN #5,4,0,"S:"W-6@"1(-,5<}(8!I68,-%@W6-%@ 6-%@A A +6-,F5=};@,6-(6-@46-@FAR@1$-%%@$6-8,6d, A%P:+&@5>},'@,$@:-@>"B E#S6-%@Y-](a d(@6-%@A0A'"@5?}6-@'6-@(B'"@&6-@'6-@C'"@96-@'6-@E AJ=-5@}@ ((START BIDDING!:AR=T 2,3,4,5,6,7,8,9,10,J,D,K,A^ 2,3,4,5,6,7,8,9,10,J,D,K,Ah 2,3,4,5A}5,6,7,8,9,10,J,D,K,Ar 2,3,4,5,6,7,8,9,10,J,D,K,AQ'8,@*8&@,!@56-%@;6-A-N(>:@5B},Q$$Q'8,@&*8&@,!@&56-%@;6-A-N(>:@,Q$$Q'8,@9*8&5C}@,!@956-%@;6-A-N(>:,Q$$5P:'@,"'@"6-(-5(>:A#,$5D}D2:SHUFFLE.BAS%@;6-A-N(>:,Q$$5P:'@,"'@"6-(-5(>:A#,$4?@@KbXXPMMMMRZXYFRPNDNSTARSECBISECXY@@@BA\@D@Q(W9F}@C@@As` A`@ AG AG A! @C@AA@ R8 @A@Tffff@S3333@9G}@'P @@@A I#@&pv0A`$aS?P@(W(bb"D:CIRCLEWW.BAS":REM ARE A 5-9H}LINER THAT MAKES AN ARRAY WHICH PLOTS A CIRCLE CLOCKWISEw +@6-@%6-@16-@b;@E @9I}O @pY @c Apm A w A ԠƠҠ "9@V'@$<@,.6-9J}L6-@"'@&@$b6-@'@$p6-@$~6-@$6-@$6-@$6- 6-%9K}68<,-/68&<,-76-&J68%<,-]68&<,-e6-%x68%<,-68&<9L},-6-&68%<,-68&<,-6-&/68<@,-B68&<@,-J6-%]68&<@,-p9M}68%<@,-x6-%68%<@,-68&<@,-6-&68%<@,-)68&<@,-m6-%@9N}$%+,$+@&$@,%@$+ ,6-&+,6-%@6-%@ @!< -9O}168<,-8%@<,U68<@,-8%@<@,Y g-,8<,8<@,9P} $AĠƠқF[-@@'-S,+8<,&,'%+8<@,&,'%W [ G;-9Q}'@!,7/8<,8<@,; HU-@Q,8<,'@%@$8<@,'@%9R}@`U I]-'@S,8<,'@%@$8<@,'@%@`Y/] S$Z$$( A9S}TARI RIGHT ON TARGET[-@A $d>>COMMENTARY<>SOLUTIO9Y}N<uLFINENG PICbSHADING LSTb>BILD8NR2PICbFANCY8 BASb FANCY FNTbFISHTEXTBASb4SHUFFLE BASb.ECIRCLEWWBASb:|FRACTIONBASbABCMUSICBASb CONWAY BASbNONTRANSBASbFISHCARDPLBbDIRPRINTPLBb%DOS SYSb*;DUP SYS#eAUTORUN SYS#CLETTERG GBB :MARCO TRY DMARCO LSTK:(0PRESS RETURN TO CONTINUE-ESCAPE FOR NEXT PROGRAMC @,C/8<,'@%8<@,'9r}@%/ @,//8<,8<@,B)@B A0%@$+"AU,%@$+"@', P9s} ,//8<,8<@,<(>:A%,F APP A @$>;(3HIT ANY KEY (EXCEPT ESCAPE OR RETUR9t}N) TO STOP CLOCK>$PIECHART;@, +@@r--,8<,8<@,1 r(9u}(@THEN PRESS ](@reward or penalty{(@is proportional.=}6-@% A@{6-&@16-P:H:,$%@,M6-P:H:,$%@,S Y6-_6-e6-=}q!@ { @p6-P:H:,$%@,;6-P:H:,$%@,A G6-M6-S6-p26/27 MAKE PROPE=}R FRACTIONU"*!@6-UOPTIONAL,AVOIDS EQUAL DENOMINATORS,UNLESS CHOICE R1 WAS 11 ' '6-6-6-=}%6-+6-16-( AP AP-r 6-$6-$'6-%+@D&,$/6-$:6-P:',D6-&$P"\6=}-h6-r @2 6-6-G 6-&H @I"@J @qP 6-6-6-=} @qZ 6-'6-' Ad APen6-A A@n(/When possible select denominator smal-ler t=}han X to get triple score!!f^6-'2 @*@'"P:@',Z(#NOT WRONG,BUT TOO LARGE,TRY AGAIN=}!!^ g1-@+(@7@,16-if "#-@&P:L:,,@F(@7@,7@,=}P AE\6-f A0n""P:O:&,',O:&,'A%xi AF'-@&P:L:,,@J(@7@=},7@,M(P(S(_6-i A0yF=COMMON FACTOR} 6- AG $-@@$(@=}?+6-A0 A@((#+6-'F "'%-@&P:L:,,@2(@< AEF A0 AG=} $-@ @$(@?-(6-A0 A@( (6-'1F "'%-@&P:L:,,@2(@=}< AEF A0E AG JN @-@@N(@7@ ,>:,=?7@,=}(6-A0 A@( (6-'T"*"%-@@(@7@,0 J AET Ah=}"%+@D&,$)-@T(@7@%P:L:,,,7@,^ AEh A& AG "=}@E A0a-@@-(@ --- ?-@a(@MAKE WHOLE NUMBER,IF;-=}@ 5(@IMPOSSIBLE ENTER 0;6- 6-A A@( < "-@@((@2 A=}E< A'  AG %"6-A0!6-% u-@7(@ ENTER NUMERATOR =}I-@ k(@EVEN IF IT WAS RIGHTu6-&$Y?6-A A@( 2-@?(@=}[j"*"+-@@>(@ 0 R-@AV ` AEj A\X "*'-@=}&P:L:,,@D(@ 7@,N AFX A5]T "#-@&P:L:,,@@(@ 7=}@,J AET A0q AG vT-@N(@ TYPE SMALLEST VALUE OF NUMERATOR7@,T6=}-6-A A@1 "*"6-+@' AE1 AZ "#-@&P:L:,,@F(@=}7@,7@,P AEZ A5 AG V-@P(@"TYPE SMALLEST VALUE OF DENO=}MINATOR7@,V6-!6-A5 A@%Z "#-@&P:L:,,@F(@7@,7@,P=} AEZ A9 AG % ++@%6-%@5-5(@SCORE AFTER =}TRY .-@.(@ score=    6-.-@.(@ Ž5-=}@5(@ $Q-@&P:L:,,@*(@D-@&P:L:,,@Q(@.=}\-@5(@--- >:, ----=O-@&P:L:,,@\(@3*-@&P:L:,,@*(@=}8B!!-@@.(@B"AB>"!-@@4(@=}> AGt-@@&(@---@-@&P:L:,,@M(@g-@&P:L:,,@t(@=}L@ N(6-F:@ , A( AOAQ{6-6-'6-36-=}?6-K6-W6-c6-o6-{6-V@-@ 6(@PICK NEXT NUME=}RATOR@ @& ++@.-.(@ Ža-@5(@YOUR T=}URN IS OVER!G-@a(@ %%(@Ӡ٠Ǡο{6-6-'6-=}36-?6-K6-W6-c6-o6-{6-6-6-u(=}@ ?@@K:L)@`>:,4Y)>:,4yk@u @]6-F=}:A,$-@ E(@󠠡Y-@A] :-@ 6(@ =} : q 6-%-@@4(@  F-@@Y(@GOOD e6-h(k(=}n(q$6-%@$%-@@<(@  N-@@d(@FINE p6-s(v(y=}(|($\t 6-&-@@4(@  F-@@Z(@ h6-%@k(n(q(t(f=}A!@(>:A%,*(ENTER >( AS THE ANSWER!A$p$r ++@1-@&P:L:,,>(@=}X-@ &P:L:,,r(@ -@@3(@--- >:, ---M-@&P:L:=},,@Z(@t-@ &P:L:,,@(@/-@@,(@  /$0-@@=}0(@* >:, *Z-@@,(@ --------->-@@W(@ NUMERATOR=?Z$=}%(@7@, fractionsD(@what will you do?d(@ADD? then type +(@SUBTRACT?then =}type -B!6-@:7@<@,,8O:&@D,@B AP V +@O(@7@, HOW MANY SUMS=}7@,WILL YOU MAKE?SV$> +@&(@ ONLY - OR +:-@A>  +@ AP=}D2:FRACTION.BASYOU MAKE?SV$> +@&(@ ONLY - OR +:-@A>  +@ AP<()= T WALTTCODEILTDECKTONETEMA8AhABsDBR@@&@AA} @&A  A @%@)@ D:ABCMUSIC.BASGR.2#6*8+MUSIC!!W.WALRAVEN.BREA}DA.1986-APRIL"" 220,300 FOR EXPLANATION A  \.9@,9@<@,9@,:6-BsD\6-F:A}@,%F:@,$AVB-@268,-@#+@&,6 B6- 6-8,s-@A}<68,-F:%+8,&@2,$@%,@ s i.o forms letter with lower i.o upper case# (}(4-@A} 6-8,4-@2/ 8,6-&8,%68<,-8,/ @p<68<,-A`F   K- (}+@A}-0@@PN-@+-@1-F(@>:8<,,J N di-288A},&@e,@@A-@A E S6-%@_!@%i Ai @%x6-@%9,9A},+-68,-"'68,-+ u +@-7(@>:8,%@e,Y288,,@A}@m-@Aq u 2%22(>:A%,-@6@!!6-P:H:A},$+%@,,% 6-8,68,-8,!68,-% 3-%68,-8,%@e) 3 @v-A}-(@>:8,%@2,W288,&@e,@@k-@Ao s vYY136,128,121,114,1A}08,102,96,91,85,76,72,68,64,60,57,53,50,47,45,42,40,37,35,33,31,29jj120/140 couples alphabet to notes(A=65..note 136 1A}50/180 shuffle letters;notes shuffle alongsidecc powers of 2,see matrix 8x8 stores point of letters =stA}art of "CHARACTERSET"XX=screenstart =sequence of letters after shuffle=storage of letter code__ I-loA}op detremines value of LAYER of letter,loop-J subtracts if possible powers of 2HHPOS. LETT(I,J) is thus filled with the lA}etter else with CHR$(160).@@ again 2 loops of 8 to fill a 64-matrix as per LLT.bb: speaker off, A}line 100 set SOUND to 0,0,0,0 , remove sound & tone statementsZZ reprints all letters shown in sequence (suggested usA}e correction of a dictation)ddThe link LETTER/TONEHEIGHT may help children,a modified version could be used in music lessA}onsD2:ABCMUSIC.BAS)ddThe link LETTER/TONEHEIGHT may help children,a modified version could be used in music less@:;|SNYYXXYXKEUZCYYXXYXCHOICFLAFIG@AbAcA`@2@@E}@@ @5A ) @ @ @@"@@@2@@@@E}@@@@A>> LIFE OF CONWAY <<10 FEB.1986 W.WALRAVEN A.AYE}.ԠӯΠٛ{6-@6-Ab'6-Ac36-A`?6-@2K6-@W6-c6E}-@9o6-{6-@5 S9@ <@@,,-@@-@9K68<,-O S ;AYE}@4+;ԠΠҠśu Ap-@--@@ Q(POSITION>:@',>:@1E},Ug-@ @ u(POSITION>(>:@',>:@), &-3(>:A`,>68<,-% A%set maE}rgins arrayscan%68<,-%68<@,-g-@ @!+-@@91-8(>:,< @ D gE}Π٠ ԠśQ --6-8<,$-+(>:,/ 3 QSEARCH & EVALUATE FIELDS> ApE}--(8<,46-> A2F  6-%@+-@@"<( CYCLE Nr. F Ad;;E}ŠϠŠӠŠҠҠeA6-8&@<&@,&6-%A68&@<&@,-i+6-E}8&@<,+68&@<,-%n;6-8&@<%@,;68&@<%@,-%s+6-8<&@,+68<&E}@,-%x+6-8<%@,+68<%@,-%;6-8%@<&@,;68%@<&@,-%+6-8E}%@<,+68%@<,-%;6-8%@<%@,;68%@<%@,-%$'"@6-&@E}' AP==ŠӠƠӠϠԠנĠӛx 6-6-6-6-'6-@36-?E}6-@9K6-xMAKE LOW VALUES TOO HIGH,HIGH ONES TOO LOW ---8<,"68<,-# A- E}AP68<,")8<,""68<,-, A6 AP68<,-W6-8<,-(>:, # WӠŠE}ӠנӠӠĠӛh6-@ @0rTN(FCOORDINATES HAVE MOVED OUTSIDE SCREEN LIMITS.RESTART WITE}H OR QT& 6-6- 6-&@ 6-%@ 6-&@ 6-E}%@$$BBΠΠǠͭҠĠΠƠll(dConway (SCIENTIFIC AMERICAN OCTE}.1970) describes the rise,changes and declinein a cellular community.rr(i8 fields surround a cell.These can be empty or oE}ccupied by a cell.If a cell touches 2 or 3 other cells,itrr(i stays.Anempty field in contacT with 3 cells,becomes a new E}cell. first the number of cells you want( to start with.NN(FFor each cell specify(horizontal 0-39,then veE}rtical 0-19)position.!kk(cFor some examples,press &type Ϡ then press copy figures on square grid pE}aper.&9 A5(#Type numbers only and press .9+9<@,0$X+!(٠ӡϠӡ+ AE}PC (}-C(AFTER  CYCLES THIS FIGURE DIEDA-@--8<,8<@,:(>:A`E},> A(STABLE CONFIGURATIONSpp(g E} ]](T jgE}(_ j(ll(dPOSITION IN CENTE}RE OF SCREEN.SOME MOVEREPEATE IN CYCLES OR GO OFFSCREEN.TRY THESE LONG STRIPES TOO!!-*(" ETCE}.-(qq(i nn(fE}  D2:CONWAY.BASfD| ABCBEURTURd@0@ I} NONTRANSITIVITY$$SC.AM.OCT.'74>B.WOLK'S FORMULA--W.WALRAVEN 15-4-86/ENGLISH VERSION 6/I}87%%******************************* A));@,;@,;A,.@.@@I}K:f6-@0#-@@0)@>67<,.>:,T"@r)"@\(>:,f @5 (>:I},!! A#  (( =Your choice2/#7@<@,4>:@r,/6-@<1#7@<@,4>:@rI},16-%@F1#7@<@,4>:@r,16-%@Ps$6-P:'@,$@%@I6-@$+'@I}&P:'@,,s67@<@,.>:@&@$,Zc6-P:'@,96-@$+'@&P:'@,,c67@I}<@,.>:@&@$,_c6-P:'@,96-@$+'@&P:'@,,c67@<@,.>:@&@I}$,cB( My choice=*-@A . 8MAB+dR-@@86-@$+H:,!?PI},N67<,.>:@r%,R s%%I=3 HIER!!,KIJK>? "AT 115 I=";Ix:$6-@$+H:,!?P,:67<,.>:@r%,I}.7&@<,4$6-%@. A.7&@<,4$6-%@. A6-%@ A b%(7I}@<,>7&@<,T(>>YOU HAD > I HAD >b6-%@@@6("Try again,type aI}nother combination@ @ A, +@#(@cOMPUTER9(@aSSISTEDN(@bETTINGY(@I}d(@o(@(@ by(@ W.WALRAVEN--@A  .i +&( I} The Rules.i(>The betting is on which combination of 3 will show up first./f(( HHH,HHT,HTH,THH,TTT,TTH,THT,HTTI}.+(f(6The computer will randomly chose HEADS or TAILS for us0jJ(BIf you suspect trickery,please try ourchoices out withI} real coins.j(The game runs for 10 tries.1tH(@You will see a line of H's and T'S the 'throws' of the coins.t(&WhenI} your- or the computer's choice is2CC(; thrown(last 3 letters) the winner and score are announced.3$$(Ready?Type yourI} combination!6 @2("(ONLY THE LETTERS H OR T.6-2 D2:NONTRANS.BASd.3$$(Ready?Type yourHd\] PQAABBCCDDEEFFGGHHJJKKABCDAHGDJKDEDFPQTIRF8RF8AM} M}@@@@@@@ !N}"#$%&'()*+,nnD:FISHCARD.PLB":REM USE RED&N}BLUE PEN POSITIONS,PUT YOUR NAME ADDRES ETC.IN LINE 110 & SEND ME YOUR CARD! AY 6-@#6-@!N}'6-@36-@K6-@'+&@,c6-@'+&@,o6-@{6-@6-@u6-@%6-N}@6-@6-Ap6-@6-A6-@T{6-A6-A'6-@36-AB?6-@uN}K6-A5W6-@c6-@Ro6-@{6-A``9<@,9<@,9<@,9<@,9N}<@,9<@,9<@,(#-@#6-+&@,$2;68<,-P:&+&,$,;68<@,-P:%+&N},$,4;68<,-P:%+&,$,;68<@,-P:%+&,$,6668<,-@668<@,-P:%+&,$,8;68N}<,-P:%+&,$,;68<@,-P:&+&,$,:;68<,-P:&+&,$,;68<@,-P:&+&,$,< >#-N}@#6-+&@,$@;68<,-P:&+&,$,;68<@,-P:&+&,$,B;68<,-P:%+&,$,;68<N }@,-P:&+&,$,D EAY@48@@P:Y(@>:@',>:@,(@N }C3*M0,-160*I*M@`,@%F77-A`$@@'@$A`H44(@DG:,$%@`N },E:,$%@J P))(@C1*MAp,@R-@(@*D8<,,8N }<@,*D8<,,8<@,*D8<,,8<@,T{T(@*D8<,,8<@N },*D8<,,8<@,X {(@D@,@Z))(@C3*MA,A[N}-@\TT(@*D8<,,8<@,*D8<,,8<@,^ _))(@C1*MN},APd5;@ ,$-@@ 167<,. 5 n~"(@ W.WALRAVENB(@P.LAN}MMEKENSSTR.6`(@4827 CM BREDA ~(@TLF.076-875985x'(@M0,-50'@D2:FISN}HCARD.PLB.6`(@4827 CM BREDA ~(@TLF.076-875985x'(@M0,-50'@D2:FISL AeeDIRPRINT.PLB":REM PLOT 3 COLUMN DISKDIRECTORY ON 1020 WITH INPUT FOR DISKN0.W.WALRAVENR} 25.10.86 ;@ ,6@@D:*.*V@@P:}("INPUT DISKNUMBER AND SIDER}(e.g.10a)(@ @(:@:(@>:@',>:@,***2 @@ZF-@R}@"(@& 1@<@F @D2:DIRPRINT.PLB:@,***2 @@ZF-@POd M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%V} DD˙`  }J)Lr J  ((  p L ()   JV}L= ( L 0q A    IB JC;? D W V} LL  ` W )LA!  ߰")-݆ p" V} $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ`V}$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H V}p h  hyhy D L> L JJ    ! LA*` BFV}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!LV}EE !E^ ^ E E7EȩEdE/EȩE  DV} .L }  ;F d  ;?F7F? ( .   Z D LL d V } . D  L    p  E` , d)  D L) 0BM݊L݉V!} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ GV"} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >GV#} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISKV1}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU V2} L ? .  t`GBJ ~DEHI B V0dVV3}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhV4}DEL8HI4 0 HI,0 0  9 .G VLOV5},0 L4*IJ`llD1:A*.SYS.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIV6} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHIV7} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO V8}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -V9}LLu ÝDEHILV 9 .l 9 .l  `` s$B BHV:}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu T} 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGZ<}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESZ=}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N'Z>}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx Z?}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECTZ@} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DLZA}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BDZB}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.ZC}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPECZD}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#ZE}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SYZF}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E ZG}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT AZH}LLOWED IN DESTINATION 0 <.|Ks3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<11111^f}{!!\]_\ED!EOHI B V`}   TUR^g}BO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ө)6L]""$$ (p%^h}J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5RŢt^i}d.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$L^j}ENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأ$^k} ,(""(222000000..222222222222222222222222222222**22*22&222$2222222222 ,(""(0^l}000000--**2*&22$2222222 V`hh@,lHH$HHHHHHӍl"H$H^m}Hl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( ӑ)^n} ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eeee^o}Ӧee褢%ƚƜ`88夅奅8夕^p}奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 *څۅ^q}܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈0^r}ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0ǠF^s}0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠ"(^t}"!""" "L**""""""&О"("!"""^u} "L**""""""&О"("!""" "L**"^v}"""""&О"("!""" "L**"""""^w}"&О"("!""" "L**""""""&Оd^x}"("!""" "L**""""""&ОL-6"e""e^y}""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"""m^z}"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօׅ؅`^{}` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiUȐF^|}iiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`I)^}})83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L--^~}E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8م٘^}؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥؅ץم^}؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱ሱ^}`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽ׽^}ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - M 1.^} &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ) 2^}f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$^})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1. #/ &^}F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G  1.^}Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍ֍^}׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥eՊi^}؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&&&&^}*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3ԥ}3^}`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢0^}襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ⅊^}0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30  5^}Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` O^}#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл B V,#^} 6` $#LllBHI V0HH V0Ԩh``a$%Ȏ$$xө$Ѝ$ ` `@^}X a)6 Ӆʢ ʎD  _ɠ %` ɩHH `өL: g^}% D:AUTORUN.BASөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0YڝDa۝E^}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐ^}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J^}?L˜ KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhh^}hh`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)^}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ ^}` UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ L^} ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}^} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ ^}LHé éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qL^} ĩ ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ ^}Ċ Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ L] Ln LŠ^}IHEDBL$HH hh +L `ħ LĢl ¦`YDAER ԅՅ֦^}󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih ^}L©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!^}!``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠ^}Ffؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`^}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א&^} eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅^} ]& 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم^}0&ffff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ^} ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]^}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :^}0 `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶ^}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥^}`LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3L^}BˢԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB^} ؐ=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩ^}jҤ /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (^}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h ^}L} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%^}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@^} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L^}8 n 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH^}@MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh ^}& Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`^}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝He^}םI Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,^}ߤ ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q^}% L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ^}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ^}0eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8^} e新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ^} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄^}`樱I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ^}, , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!^}!乡!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅi^}ȅiȅȩȩ Lfإ  4  \ +] ¥򄟄^}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5^}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e^} &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ^} 襡L 9:枢0 O L :H9Hhh tLHH`^}hhLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!L^}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰^}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ %^} +HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ո^}ԅ` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"^}嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛI^}FOҗNEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRA^}REAĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERR^}OR- DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUS^}ŖTIME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚ^}GOTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGA^}BINPADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,^}%5&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/^}01 2!3"4Ɛ"-"."-؂ٿ֐ː^}ĐאŐbj+9,+;,ʐͭ^}ͭ@ABC\=>[<+:е<,&%rvnnxc<^}\-78s_XV+@D&0d*"'2GJh ^}NRl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 ^} 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le^}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F^} :7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩^}" ¥ 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H Yh^}Z L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI ^}䦐Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHą^}ŅH h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ ^} , h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥^}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L^}.0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h^} #ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥^}剰#)iiLɠL4űI&`048ץğ=ȱȄ ^}`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ^}`,,L L PQ 8,L ȱI ѝߠȱ`^}ԩ,L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g ^}0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?L^}IN?FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONL^}EOTRUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM^}>DI?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0`^} 0` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2 sŠ 5  <)  ^}< L L + e +e`e`&&&&&&eee` ^}&&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ=^} ܥeƥiեLN@ ` **)]` 00`` ( ((((((((^}8`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ^} `  M 8*` 兙 󥐅i祣L{ &^}L  0 & L ȑ & L; # )ȱ L ^} )ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ^}```=`]``` E߭H Ġ} hL±&Lv`[  ȱ R^}]  L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ R\l89!!INIWRITTITLFONTSHAPFONSELECPSHOPDITITLESHBEGISELECSELECTDRNSIGRNFFONTNAMERTTITLETTERSWATITb}CHANGSECTMOVDCDACADDBUFFSCALLSECTGESECTPULHEADINKEESPICSHPICJUMSTICHSEXSIZYSIZTXTSCREEP1Sb}HAPP2P3P4CHFONTKEYTEXSSSSSTORCIOWRITEPPICNAMEPAPEPESRSMGtQUTb}s?@ mG9DMCb}}> )?!N?"#$V%b}&'()A*+,-./01234b}567S89:;<=>?@ABlLCDb}EFGHoVIJKLMNOPqqD:LETTERG.GBB":REM mb}akes each font character into an ikon(choice of 4 shades) overwrites on Pshop ikon disk ""WWWWWWWWWWWWWWWWWWWWWWWWWWWW "c}"W W ""W CHARACTER-to-IKON W ""W W""W CONVERTER c} W""W W""W WILLEM WALRAVEN W""W PD 1993 W""WWWWWWWWWWc}WWWWWWWWWWWWWWWWWW(P2P<GPGif î not on disk,then correct PROC TITLE accordinglyF P PPPZc}PdPnR A6-f$-@B:,:6-$@%@B6-%gN6-@:7,,RPxI67g<,.67%g<%h,.46c}7%@,. I67&@<%g,.(P P PTC+f (l(mA#A`@(Was cc}hosen font on disk?C&p +' ( Error nr.l&6-m2(In line69(F(ԡp(%Must write changed directoryc} to driveTO??DR=DRive,ACT(=PUT or GET resp.87/82)SC=sector being moved %gNr of drive" %h6-c}C:,"8%@8%@6-?:C:,,QT"O,6-@P6Q@TJOT6-@Pc}^QhTrO|2+f2$Input nr. of drive with PSHOP ikons>a A6-AaP97g<@,0 PRINT SHOPc }M( Not on DRIVE WMAa A2 6.-AbA2Directory sectorsP"-gA(@2"6c }-B:,67%g,.7<%@ ,])67%@,.7%@<%@",E67%@,.>:&A`,Y67%@,.>:,] c } QTO^% APS-gB:,@$6-C:7<,,2-f@ :6-%O(>:@',7<,c }S PP( =U:%@, =U:%@,%A` STARTBYTE=F:%@,) "PPF:@,@"c }P &Q0T:OD 6-C:7%@,, 6-U:,N- 6.-f@6--SECTOR INPUTXPb767c}B:,%g,.7g<A&,.6-C:7A',,76-U:,l v( 6-g6-f+@(6-U:@,g-gAr6-%%)c}@:7<,,?%@@@:7<,,G6-%gS"@Y6-gg6-%@,  g,Y@ A7<%@ ,3+(#Pc}ress key to return to index review/)3+fQTOA 6-g-AbAAPshop directory runs from 362-390c}PK-gA(@2967<%@ ,.7<%@ ,G6-%@K P QTO 4P+c}@ 6-U:@,4AV'AV4 6-f6-f6-@'6-@06.>:,4P > 6-f6-f-gAr'6c}-%%06-F:,>67<,.>:,*+ 6-%g"@6-f+6-%@@4 "gA >O "h-gAr%6-@:c}7<,,36-VApA67<,.>:,E O A HI +@!AV'AV'6-h-6-g96-@E6-@IPRXc}6-Ap6-f6-f)-gAr36-%%<6-F:,J67<,.>:,X6-@:7<,,\?67<,.>:Z,6-V#6-V167c}<,.>:,?6-ZAUf+ 6-%g"@6-f+6-%@@p z "i6. A G-gAr6-@:7:,G I 6-f6-f-gAr'6-%%56-@:7<,,;I%@@+ 6-c}%g"@6-f+6-%@ QTO 6.>:,67@,. :!@)67@,.>:&@2c},:67@,.SQTOd@@+I(%Ensure that drive 1 holds right font.d(O.K? Thec}n press a key H 6.) AP#@H@@D:*.FNT?@567B:,%@,.7@c}<@,? A@6@6-B:,)67&@,.6(>:A%,$L @ B(>:A%,#No file->.FNT<-(c}FONT) on this disk!L A .--@)(FONT SELECTION.-P86-6-@'6-@36-@c}T-@B:,&@@\-&m(7<%@,t6-66-%+!,6-%@ BR6-@6-hc}-g'-&&g:(>:,>:@1,>)R"AUA L4 -&&g( 6-6&6-%+!g,* 4 AV)Ac}U A`7(>:A%,$6-+&g,$@%g76.7<%@,jI 6-f-g@%6-@:7<,,76-%+"@2,c }; I6-@&t% !f67%g,.%Remove spaces~6(>:A%,-@f2(CHOICE OF LETTERS6P[-@@c!}%( SOLID WHITE4( SOLID GREY?(HOLLOWU(GREY+WHITE BORDER[6-hD -g( +6-%g&@$+"@,1-gDc"}(>:,>:@1,)AU Ap 6-&h(>:A%,QTOF-h@ 4(Press RETURN if c#}>:,>:@1,F-@@!Y(Indicates your choice/-@@"Y(%Else any other key !! EXCEPT BREAK !c$}QTO66-A&6-U:C:7,,,"P267g<,.7g<,6P 6-A'6-ARP6-AS6-Axc%}P6-Ay6-AP(+6-@h6-A'6-Ar+P2Q<TFOPc6.GOTHICcDisk musc&}t have this font,else substitute the name of a font that is on this diskZg @P+@$/AV'AV;6-c'}@G6-@S6-@_6-@g6.Pd],'/A9/AAK/Ac(}]/n],@@'/A@9/AAK/@A]/@@xPB6c)}-A$6-@'6-@36-@>6.ShopBPEAVA$6.O#6-i)6-i56-@2A6-ADc*}EP3 6.c6-g6-g#6-@@/6-AR3P06. W.Walraven6-h 6-h,6-@d0PQ6-A@6-@c+}%6.ABC)PQ1600/1640 "ABC" WITH OTHER PARAMETERSAV'AVP6-@PAVA$c,}P'AV'AV#6-@'P1AVA$!6-@-6-@1P-gA  QOc-}4 6.D:67@,.467B:,%@,..FNT+@+@@&C@C:,A$&c.}@"9C:,A$,Q6T@OJy1;@,;@,;@,;A$,R6-+F:A,&@,$Ac/}VoAF:A,&@y+TU6-Ah';A@,;@,36.h S`;6. L67A@,. U67hc0},.^<6-A@0;,;,;,;,;@,<6-@'h ;A#,;,;@b,rD&;@,;A(,;c1}@@,26->6-@D6.|;@,QTO%%6-?:C:,<<<<<<0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzPP(H}You can make a complete alphc4}abet(ABC) including numbers,into ikons,e.g:@((7@<@,0(7@<@6,=(7@7,@(m9(1Or you mayc5} make only some the above into ikons.M(Press 1 for allc(Press 2 for some.m A -(Input only 1 or 2!*c6}"@-Q&@A 0UU(M}Select from the following,by entering the characters you select as one word.:(c7} (DQNTXOb06-U:C:7A',,,P,67g<,.7<,0PlQvTOj@+jc8}(F shows ikon starts making ABC ikons)!(Ҡ show next ikon)(---ee(]NAMc9}E * ILE TARTS AT SECTOR * IRECTORY ECTOR + STARTBYTE THERE -------------QD2:LETTERG.GBB 067AM`{0 REM "D:SECTDEMO.LST":REM A DEMO OF SECTOR MOVEMENT+DUMP FROM GR.0 TO GR.8+ SCREENDUMP ON SEIKOSHA4 EXEC INIT10 DR=1:GRAPHg;}ICS 0:POKE 82,8:IP=12820 FOR S=1 TO 4:SC=IP+S30 B=20*(S=2)+20*(S=4):Y=11*(S>2)40 EXEC SECTGET:GOSUB 6050 NEXT S:IP=IPg<}+4:GOTO 2060 FOR I=1 TO LEN(BUFF$):A=ASC(BUFF$(I)):C=A+64-32*(A=0):? CHR$(C);61 NEXT I:RETURN 100 END 1500 PROC SECTMOVEg=}1510 REM DR=DRive*ACT=PUT(87) or GET(82)*A=nr.of the sector toRUN1520 POKE DCB+%1,DR:REM DR'ingeput'?1530 POKE DCB+%2g>},ACT:ADDR=ADR(BUFF$):DPOKE DCB+4,ADDR1550 DPOKE DCB+10,SC:REM SC=sector1560 X=USR(ADR(CALL$))1570 ENDPROC 1600 PROC Sg?}ECTGET1610 ACT=82:EXEC SECTMOVE1620 ENDPROC 1630 PROC SECTPUT1640 ACT=87:EXEC SECTMOVE1650 ENDPROC 1660 PROC SECTSHg@}OW1670 FOR Q=0 TO 7:FOR W=1 TO 16:E=Q*16+W:POSITION W+B,Q+Y:? CHR$(27);BUFF$(E,E):NEXT W:NEXT Q1680 ENDPROC 21200 PROC IgA}NIT21204 DIM SCR$(960):SCR$(1)="":SCR$(960)="":SCR$(2)=SCR$(1):REM GEBRUIK>POKE 82,0:GR.02)40 EXEC SECTGEkF}T:GOSUB 6050 NEXT SC:END 60 FOR I=1 TO LEN(BUFF$):A=ASC(BUFF$(I)):C=A+32:? CHR$(C);:TXT$(LEN(TXT$)+1)=CHR$(C)61 NEXT I:RETkG}URN 100 END 1500 PROC SECTMOVE1510 REM DR=DRive*ACT=PUT(87) or GET(82)*A=nr.of the sector toRUN1520 POKE DCB+%1,DR:REkH}M DR'ingeput'?1530 POKE DCB+%2,ACT:ADDR=ADR(BUFF$):DPOKE DCB+4,ADDR1550 DPOKE DCB+10,SC:REM SC=sector1560 X=USR(ADR(kI}CALL$))1570 ENDPROC 1600 PROC SECTGET1610 ACT=82:EXEC SECTMOVE1620 ENDPROC 1630 PROC SECTPUT1640 ACT=87:EXEC SECTMOkJ}VE1650 ENDPROC 1660 PROC SECTSHOW1670 FOR Q=0 TO 7:FOR W=1 TO 16:E=Q*16+W:POSITION W+B,Q+Y:? CHR$(27);BUFF$(E,E):NEXT W:kK}NEXT Q1680 ENDPROC 21200 PROC INIT21204 DIM SCR$(960):SCR$(1)="":SCR$(960)="":SCR$(2)=SCR$(1):REM GEBRUIK>POKE 82,0:GRkL}.0