KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKHIS IS HOY!'S MACHINE LANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THESE PROGRAMS FROM OUR MAGAZINE. - 58,173,32,170,177,96"":53280,6:53281,1:646,0AT,2,8:" Š " AT,9,12:"1. REAT 828:V21,0:ZZ$IN$(B,H)  2,8,2,"@0:"ZZ$",S,R" XX15( 2,TX$(XX)1 :2iAT,7,1:""I813:AT,I,1:" ""AT,14,1:" [/=ANCEL * PK 5,250,192,153  250,4,185,234,196,153,250,216#! 185,244,193,153,244,5,185,228I! 197,153,244,217,185,238,194,153m!  238,6,185,222,198,153,238,218! 200,208,205,96!FI9601022:N:I,N::!P 0,0,0,0,0,0,0!Z 0,0,0,0,0,0,0!dKKK C=UN ROGRAM] " ,AT,15,1:""[1AT,22,3:" ":10006XX15:AT,7XX,3:""TX$(XX):@AN$:AN$""4160JAN$(13)882:204TB1H3B1H5B1H62155K 0,0,0,0,0,1,192!n 0,0,224,0,0,112,0"x 255,252,0,255,255,0,255," 252,0,0,112,0,0,224B" 0,1,192,0,0,0,0V" 0,0,0,0,0,0,0j" 0,0,0,0,0,0,053  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,18KKK VB2H1B2H2B2H6B2H7B2H102155WB2H112155*XB3H22155;^882:V21,1[`I035:V,X1I:D135::lbV21,0:230{c882:1550h4160I828935:A:I,A:: 160,0,185,0,4,153,0,192 185,0,216,1KKKKK 53,240,195,185,250  4,153,250,192,185,250,216,153*  234,196,185,244,5,153,244,193P  185,244,217,153,228,197,185,238t  6,153,238,194,185,238,218,153  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,18K '********************************M * MENU PROGRAM V2.0 *s"* (C)1988 DOUBLE L SOFTWARE *&* ALL RIGHTS RESERVED *(********************************):53296,1*AT679:NATAT22:M:N,M: ,32,180,2, )"UN ROGRAM "11)"ANCEL INDOW "> 11)""OPO55507:X0k I116:POI,0::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55587PO55507>X2X0HAN$(13)2140R2080\ 2,2:""X %AT,1,3:"ENU ROGRAM (C) OUBLE OFTWARE" *AT,3,2:"  " /I419 4AT,I,2:2)"  ": >AT,20,2:" 1,10)" "+2 P$(1,11)"LOATING OINT":IN$(1,11)"LOATING IN"[7 P$(1,12)"IG IGS":IN$(1,12)"IG IGS IN"< P$(2,1)"SIG DIGS I":IN$(2,1)"SIG DIGS I IN"F P$(2,2)"SIG DIGS II":IN$(2,2)"SIG DIGS II IN"P P$(2,3)"APID ANDOM ":I 8:V21,0,AT,12,4:""X"4)" HIS IS A 128 ROGRAM. T MAY",4)" NOT BE LOADED IN THE 64 MODE."64)" OU MUST SWITCH TO THE 128 "@4)" MODE IN ORDER TO LOAD THIS "J4)" PROGR 1)"UOTE WITCHER":IN$(3,1)"UOTE WITCH IN"> P$(3,2)"AUTO INSERT":IN$(3,2)"AUTO INSERT IN"n P$(3,4)" ":IN$(3,4)" " P$(3,5)" ":IN$(3,5)" " P$(3,6)" ":IN$(3,6)" " P$(3,7 132,251,32,180,21 .166,251,76,240,255,32,253,174O 032,158,173,32,170,177,96g 253265,(53265)239 <4000:V53248:X175:Y1100 P P$(4,12),PG$(4,12),IN$(4,12):5000:NN3:B.:5190 d53280,0:53281,1:(14):2500 n2040,15:V39,10:V,X X0882:4100aX22180'bB1H3B1H5B1H62155ZcB2H1B2H2B2H6B2H7B2H102155mdB2H112155eB3H22155f2159k882:1550oX1882pI035:V,X1I:D135::zV21,0:230882:225  "G CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE " \AT,24,1:" N$(2,3)"APID AND IN"3Z P$(2,4)"APID ANDOM ":IN$(2,4)"APID AND IN"id P$(2,5)"NJUMBLED ORDS":IN$(2,5)"NJUMBLED IN"n P$(2,6)"POLAR GRAPHICS 1":IN$(2,6)"POLAR 1 IN" P$(2,7)"POLAR GRAPHICS 2":IN$(2,7)"POLAR 2 IN" P$(2,8 AM SUCCESSFULLY. SE THE"4T4)" PRESCRIBED METHOD WHICH IS "p^4)" ";(34);"ROGNAME";(34);". "h4)" [RESS ANY EY] "r4)""|AT,22,3:" )" ":IN$(3,7)" "/ P$(3,8)" ":IN$(3,8)" "c P$(3,9)" ":IN$(3,9)" " P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11)" "" P$(3,12)" 1:V1,Y1* x800:53265,(53265)16:53296,0G LC55590:P7:H1:V21,1[ BB1:BNNB1 I112:AT,I6,14:""P$(B,I)::V1,Y1 F(P$(B,H)):A0F:LCA,8::1000 AN$:AN$""206 AN$(17)1250 AN$(145)1300 AN$ I116:POI,5::* P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN"\ P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 BUG REP II":IN$(1,3)"BUG REP IN" P$(1,4)"UBULAR!":IN$(1,4)"UBULAR! IN" P$(1,5)"TRI WORDS":IN$(1,5)"TRI "fAT,3,10:""CpAT,4,10:" "izAT,5,10:""oS54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100::S4,0:Y1Y18:Y1188Y1100 )"ASTER INE":IN$(2,8)"ASTER INE IN"> P$(2,9)"UP F OOLEAN":IN$(2,9)"UP F OOL IN"d P$(2,10)"DMA":IN$(2,10)"DMA IN" P$(2,11)"GOTO/GOSUB":IN$(2,11)"GOTO/GOSUB IN" P$(2,12)"MOOTH CROLL":IN$(2,12)"MOOTH CROLL IN"  P$(3,  ":1000AN$:AN$""16701882:V21,1:225R **************************s **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTIONS"11  ":IN$(3,12)" ", P$(4,1)" ":IN$(4,1)" "! S CL718:AT,CL,14:" "::~POKE657,128:REM DISABLE SHIFT/COM KEYPOKE775,200:REM DISABLE LISTINGPOKE808,234:REM DISABLE STOP/RESTORE (13)2000$ AN$(32)3000:Y1100:140- 204Q "";:53280,0:53281,0:V21,0} "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" (142)"RUN": ""  631,13: 632,13: 198,2:% "":AT, WORDS IN" P$(1,6)"TRI.DATA":IN$(1,6)"TRI.DATA IN"S P$(1,7)"CREENAVER64":IN$(1,7)"CREENAVER64 IN" P$(1,8)"CREENAVER EMO":IN$(1,8)" " P$(1,9)"CREEN OCUS 64":IN$(1,9)"CREEN OCUS IN"( P$(1,10)"OCUS EMO":IN$( V1,Y1:I0F:LCI,0:"HH1:H12H16PP1:P18P7VLCLC40:LC56030LC55590_204zY1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55590LC56030(20482HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -64 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONWARD ONLY!) HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -128 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONLY! THERWISE USE 128 UG EP.) UBULAR! FOR THE -64 IS AN ADDIC- TIVE MULTILEVEL GAME. OLLECT 14 BELLS AND MAKE IT TO THE TOP OF THE PYRAMID BEFORE TIME IS OUT. OYSTICK IN ORT 2. 8 UG EP.) RI ORDS IS AN ENTERTAINING WORD GAME FOR THE -128. LAY AGAINST THE COMPUTER AND TRY TO FORM THREE-LETTER WORDS FROM A RANDOM GRID OF 16 JUMBO SIZED LETTERS. P.) RI.DATA FOR USE WITH RI ORDS CREATES A BINARY DATABASE CALLED . RI ORDS WILL LOAD THE FILE AT THE START OF EACH SESSION. UMBO SIZED LETTERS. P.) CREENAVER64 WILL ALLOW YOU TO SAVE AND RECALL OMMODORE 64 TEXT SCREENS. SE THIS ROUTINE TO PRODUCE PSEUDO-WINDOWS AND LOW-RES ANIMATION. UMBO SIZED LETTERS. P.) CREEN OCUS 64 LETS YOU CREATE MATERIALIZING AND DEMATERIALIZING TEXT SCREENS. SE THIS UTILITY TO CREATE NEW SCREENS ON MULTILEVEL GAMES OR USE IT TO CREATE MENUS. LOATING OINT ONVERTER FROM THIS MONTH'S UPERT EPORT WILL CONVERT A FLOATING POINT NUMBER TO THE COMPUTER'S INTERNAL REPRESENTATION AND VICE VERSA. CREATE MENUS. IG IGS IS A -64 SOLUTION TO THE ULY 1988 OMMODARE THAT REQUIRED THE READER TO WRITE A ROUTINE THAT WOULD DETERMINE THE 1'S AND 0'S SIGNIFICANT IN ANY INTEGER. . QIG IGS IS A -128 SOLUTION TO THE ULY 1988 OMMODARE OF THE SAME NAME. TO WRITE A ROUTINE THAT WOULD DETERMINE THE 1'S AND 0'S SIGNIFICANT IN ANY INTEGER. . aIG IGS IS ANOTHER -128 SOLU- TION TO THE ULY 1988 OMMODARE OF THE SAME NAME. NE THAT WOULD DETERMINE THE 1'S AND 0'S SIGNIFICANT IN ANY INTEGER. . APID ANDOM IS A SOLUTION TO THE ULY 1988 OMMODARE THAT RE- QUIRED THE READER TO SORT A 100 ELEMENT ARRAY AS QUICKLY AS POSSIBLE. IGNIFICANT IN ANY INTEGER. . bAPID ANDOM IS ANOTHER -64 SOLUTION TO THE ULY 1988 OMMODARE OF THE SAME NAME. 0 ELEMENT ARRAY AS QUICKLY AS POSSIBLE. IGNIFICANT IN ANY INTEGER. . NJUMBLED ORDS IS A SOLUTION TO THE ULY 1988 OMMODARE THAT RE- QUIRED THE READER TO WRITE A PRO- GRAM THAT WOULD OUTPUT EVERY PER- MUTATION OF A 5 OR 6 LETTER WORD. OLAR RAPHICS 1 IS A SOLUTION TO THE ULY 1988 OMMODARE THAT ASKED THE READER TO WRITE A PROGRAM THAT PLOTS THE EQUATION = 10 * * () * (). 6 LETTER WORD. jOLAR RAPHICS 2 IS ANOTHER -128 SOLUTION TO THE ULY 1988 OMMODARE OF THE SAME NAME. LOTS THE EQUATION = 10 * * () * (). 6 LETTER WORD. ASTER INE FROM IPS HOY! IS A ROUTINE THAT CREATES A ASTER N- TERRUPT DRIVEN WHITE LINE AT THE TOP OF THE SCREEN. 10 * * () * (). 6 LETTER WORD. nUP OF OOLEAN FROM IPS HOY! IS ROUTINE THAT SIMULATES OOLEAN LOGICAL FUNCTION ON THE -64 OR -128. E SCREEN. 10 * * () * (). 6 LETTER WORD. EMEDIES FROM IPS HOY! IS A REPLACEMENT ROUTINE FOR THE -128 THAT ENSURES THAT THE -128 IS IN MODE BEFORE A MEMORY TRANSFER COMMAND IS ISSUED. R WORD. OMPUTED / FROM IPS HOY! IS A ROUTINE FOR THE -128 THAT LETS YOU INCORPORATE MATH- EMATICAL EXPRESSIONS AS PART OF THE /'S LABEL. ISSUED. R WORD. yIMPLE MOOTH CROLL FROM IPS HOY! IS A PROGRAM THAT LETS YOU CREATE A SMOOTH SLIDING MESSAGE ON YOUR -64. ART OF THE /'S LABEL. ISSUED. R WORD. j,168,169,1,153,54! 3,24,144,157,169,4< 141,136,2,169,237,141P 40,3,165,1,9,1^ 133,1,96,172,32,-220,32(  -237,208,246,96,162,52,8,120J  165,1,134,1,170,177,172,134h  1,40,96,162,52,8,120,72  165,1,134,1,170,104,145,195 & 134,1,40,96,32,219,252,32 0 209,252,240,6,230,195,208,2 : 230,196,96,999,230,195,208,2J828903:X:J,X&CSCSX:@CS8431"ERROR!":N"S":828m120,169,91,141,20,3,169,3141,21,3,169,50,141,18,208173,17,208,41,127,141,17,208169,129,141,26,208,88,96,17325,208,141,25,208,48,7,173 13,220, : BOOLEAN$(1):BOOLEAN$(0)"FALSE":BOOLEAN$(1)"TRUE"SRV$(18):RO$(146)(147);:"ENTER YOUR NAME";N$:"ENTER YOUR AGE";A:"ENTER ANOTHER NAME";N1$:"ENTER ANOTHER AGE";A1 LINE 9 ASSIGNS A BOOLEAN VALUE  OF ZERO FO ?DMA1008: JMP76: ADR2816: HI(ADR256):LOADR(HI256)e DMA,JMP: DMA1,LO: DMA2,HIBYTES26: NUMBER OF BYTES IN DMA REPLACEMENT ROUTINE LD0 BYTES1: ML: ADRLD,ML LD$: ERASE LOADER ROUTINE. DA %"ML LOAD ADDRESS 4864";XL A5,3D,D0,02,C6,3E,C6,3D,20,C9,03s C9,89,F0,06,C9,8D,F0,02,D0,13,20 80,03,C9,2E,D0,0C,20,80,03,20,96 AF,20,0C,AF,4C,FB,59,6C,12,03,00JXX43:K$:K(K$):TTK:J,K:T4500"DATA   -SYS52224 TO START-< -SIMPLE SMOOTH SCROLL-W -BY MARCUS LINKERT-q(H$"0123456789ABCDEF"|2HD$""<V52223F HD$:VV1:V,HD$P V52435 500Z (HD$)0 "ERROR":d(HD$)2 "ERROR":nH0xI11 ,F0,05,FD,8D,16,D0,A90 h 79,8D,14,03,A9,CC,8D,15,03Q r A9,A4,8D,12,D0,A9,81,8D,19r | D0,8D,1A,D0,AD,0D,DC,68,A8  68,AA,68,40,AD,19,D0,29,01  F0,48,AD,16,D0,09,07,8D,16  D0,A5,FD,D0,2D,A8,C8,B9,08  06,88,99,08,06,4C,9A,CC,EA88,76,49,234,173,182 208,201,58,176,10,169,1,141R 33,208,169,58,76,130,3,169r 0,141,33,208,169,50,141,18 "208,76,188,254R FALSE OR ONE FOR7  TRUE TO THE VARIABLE NAMEBOOLEAN= W NAMEBOOLEAN(N$N1$)] LINE 15 ASIGNS A BOOLEAN VALUE OF ZERO FOR FALSE OR ONE FOR TRUE TO THE VARIABLE AGEBOOLEAN  AGEBOOLEAN(AA1)' :"TRUE OR FALTA REPLACEMENT DATA68 173,48,208,72,169,0,141,48,208[B 174,213,3,32,107,255,174,0,255|L 32,243,3,104,141,48,208,96EERROR!":#786,(768):787,(769)? 768,X255:769,X256:13,3,32,107,255,174,0,255|L 32,243,3,104,141,48,208,966 (HD$,1)(H$,I,1)HI:I16( I? H0 V,0: 70I HH1Q L0] I116 (HD$,1)(H$,I,1)LI:I16 I L0 V,0: 70 LL1 DH16L V,D 70  78,A9,3E,8D,14,03,A9,CC,8D  15,03,AD,11,D0,  EA,C8,C0,28,D0,EE,A0,00,E68  FB,D0,02,E6,FC,B1,FB,D0,0BY  A9,E0,85,FB,A9,CC,85,FC,4Cz  A7,CC,8D,2F,06,A9,3E,8D,14  03,A9,CC,8D,15,03,A9,90,8D  12,D0,A9,81,8D,19,D0,8D,1A  D0,4C,31,EA,00  -MESSAGE WRITER- A52448:T0:SA491523 CSASA37:D:TTD:C,D:b T4252"ERROR IN DATA STATEMENTS!":n 49152"QUOTE SWITCHER INSTALLED": 120,169,13,141,20,3 169,192,141,21,3,88 96,165,197,201,5,208 7,169,0,133,212,76 SE?":RV$;N$;RO$;" IS THE SAME AS ";RV$;N1$C  BOOLEAN$(NAMEBOOLEAN) :"TRUE OR FALSE?":RV$;A;RO$;" IS THE SAME AS ";RV$;A1  BOOLEAN$(AGEBOOLEAN) *** AUTOINSERT 128 ***A"ML ADDRESS";A:BA27:CA11\JAB:D:VVD:J,D:|V2744"DATA ERROR!":L%C255:H%C256:A1,L%:A6,H%:A6,"POKE250,0"(13):8,"POKE250,1"(13)"AFTER RESET, ENTER 'SYS"A"'": 169,198,141,002,003,169,077= 141,003,003,096,165,250,208_ 003,076,198,077,032,129,146 027,073,007,000,076,198,07729,7F,8D,11(  D0,A9,90,8D,12,D0,A9,81,8DI " 19,D0,8D,1A,D0,AD,0E,DC,29j , FE,8D,0E,DC,AD,16,D0,29,F7 6 09,07,8D,16,D0,A9,E0,85,FB @ A9,CC,85,FC,C6,FB,58,60,AD J 19,D0,29,01,F0,23,C6,FD,10 T 04,A9,07,85,FD,C6,FD,AD,16 ^ D0,29204,0:"MESSAGE:"  A$: A$"" 5206  A$(13) A,0:a  (A$)65 A$;:A,(A$):AA1: 520 &A$;:A,(A$)64:AA1: 520A 34,192,201,4,208,4-  169,1,133,212,76,49; $ 234,1860I HH1Q L0] I116 (HD$,1)(H$,I,1)LI:I16 I L0 V,0: 70 LL1 DH16L V,D 70  78,A9,3E,8D,14,03,A9,CC,8D  15,03,AD,11,D0,,0,0,0,0,0,0,0/l 0,0,0,0,0,0,0,00v 0,0,0,0,0,0,0,0(0 0,0,0,0,0,0,0,0>0 0,0,0,0,0,0,0,0T0 0,0,0,0,0,0,0,0j0 0,0,0,0,0,0,0,0dSS512005nSS9,53248256: START OF STORAGELxP$"PRESS A KEY"o65409: DEFAULT SCREEN SET UPD5:R0:590"WHEN PRINTING MESSAGE BOXES AND PSEUDO WINDOWS ON THE C-64 SCREEN,"; " THINGS DON'TALWAYS WORK OUT AS PLANNED.":Td *** SCREENSAVER 64 ***<nSS51200: RELOCATING ***ExCK0_D:CKCKD:D999150h130CK20519"*** ERROR IN DATA ***"::SASSD:D999220D0SA,D:210ADSS(D):HAD256:LAD(AD256)256 SA,L:SA % 53280,0:53281,0:"";:2,100;V$(24):V$(0)""[I124:V$(I)V$(I1)"":B$"":I139:B$B$" "::B$""B$I171:"SCREEN POCUS! ";::491524""V$(8);514)" "714)" SCREEN " 814)"  BOX ***  SS6: CLEAR LINKS! 590. RV$"";H I1W2:"";::""Y I1H:R);~ RV$"";:J1W2:" ";::"": R)RV$; &"";:I1W2:"";: 0"" : D N214,D1:: VERTICAL POSITION XR);: HORIZ POS.,32,-205,133,199+  200,32,-205,141,134,2,200,32Q  -205,72,200,32,-205,170,104,168s  24,76,240,255,160,0,133,173  132,172,24,105,3,133,175,169  232,133,174,96,132,195,133,196  32,-205,145,195,32,-237,208,246  96,32,-245,177 I1120:" SCREEN ";:1 300:49155:49152:"";M I1120:" POCUS ";:j 300:49155:49152:""; I1120:" MAGIC! ";: 300:49155:XX1:DY1500:DY,J 2,70:49152:"";:I123:B$: "V$(10)7)"PRESS ANY KEY TO RESTA T2:620H :"LINES THAT WRAP CAN DISRUPT YOUR NICE, NEAT BOX...":620W ""10)P$` 640w SS: SAVE SCREEN C1:430 640 SS3: RECALL SCRN 620 "BUT, IF YOU SET BIT 7 OF LOCATIONS 217 THRU 242,";:6206 " WRAPPSA1:SA,H SASA1:170> "SCREENSAVER INSTALLED"SS"TO"SAD a "TO SAVE SCREEN: SYS"SS "RECALL SCREEN : SYS"SS3 "CLEAR LINKS : SYS"SS6 "MOVE STORAGE : POKE"SS9", HIGH-BYTE" "CREENAVER EMO",8:"RUN"(13) " 18 POCUS! "& 914)" "A :14)" *DEMO* "\ ;14)" "~ <V$(23)13)"PRESS ANY KEY..." AI1700: F49155 ZA$:A$""90 d2,1:49152:""; x49155:49152 ""V$(7)6)"FADE SPEED MAY BE CONTR\ b l TIME DELAY! vT11000TT:::  WAIT FOR KEY PRESSN 198,0:198,1:5,1,134,1,170,104,145,195 & 134,1,40,96,32,219,252,32 0 209,252,240,6,230,195,208,2 : 230,196,96,999 SA49152,"PLEASE WAIT.........."OISASA200:A:I,A:CKCKA:qCK26102"ERROR IN DATA":2ASA6:B(A256):CAB256:SA1,C<SA2,BFASA51:B(A256):CAB256:SA5,BPSA4,CZ"OCUS EMO",8:"RUN"(13) dtRT" $49155:49152:""% 'A$:A$""295D (53280,0:53281,0:49155:h ,V$(12)16)"SPEED="((J),2):W2:" ";::"": R)RV$; &"";:I1W2:"";: 0"" : D N214,D1:: VERTICAL POSITION XR);: HORIZ POS.ED LINES ARE UN-LINKED AND THE BOX COMES OUT AS PLANNED.N 620:""R)P$:640g  SS: SS6:C3:430w "640: SS3 ,620 6"NOW EXECUTING MULTIPLE SCREEN SAVES..." @620 JW16:H4:D3:R5 TC14: SS ^SS9,(SS9)8: MOVE 4,80,7,184,80,85,184,806 , 70,208,173,136,2,32,-160,173[ 6 -9,133,196,132,195,32,-194,169 @ 216,32,-160,32,-191,32,-245,160 J 24,185,217,0,32,-220,136,16 T 247,160,25,165,199,32,-220,200 ^ 173,134,2,32,-220,56,32,240 h 255,138,7OLLED!"+ V$(10)6)"SCREENS MAY FADE OUT/IN"K V$(11)6)"SIMULTANEOUSLY!"{ V$(14)6)"ALL FOR  NEAT PRESENTATIONS!" 53280,6:53281,6:49155 V$(23)12)"PRESS ANY KEY..." A$:A$""182 X1:J110150:2,J:"":49152:"";251,169,160,133,254,165. 1,41,254,133,1,173J 27,212,168,177,251,209f 253,240,54,177,253,145~ 251,162,0,189,54,3 240,7,232,224,4,144 246,176,85,230,254,230 252,165,252,201,8,144 218,169,4,133,252,169 "160,133,25476,6,192,76,51,192* n169,0,141,54,3,141A x55,3,141,56,3,141Z 57,3,169,234,141,40t 3,169,249,141,14,212 169,238,141,15,212,169 0,141,24,212,169,129 141,18,212,169,160,141 136,2,96,162,0,169 4,133,252,134,253,134 ,165,2,141 ,52,3,160,25,136,2087 6253,206,52,3,208,246P @24,144,192,140,53,3l J173,27,212,201,128,144 T5,169,200,24,144,2 ^169,136,141,164,192,172 h53,3,177,251,209,253 r208,173,200,204,53,3 |208,244,165,252,56,233 4STORAGE h646,C:DD2:RR2:480# rA |620:590:""P$;:640\ C14:SS9,(SS9)8f SS3w TT.5:620:}  646,C:W22:H8:D4:R6:RV$"":490 D8:R12:590:RV$"LIKE THIS" 620:""R1)P$;   *** PRINT 2,152,160,27,32,-2203 r 104,200,76,-220,162,24,181,217U | 9,128,149,217,202,16,247,96w  173,-9,32,-160,173,136,2,32  -176,24,165,175,105,4,162,208  134,174,133,175,169,216,32,-176  160,24,32,-205,153,217,0,136  16,247,160,25#,160,0,0,65,72,79,89,33,0,0,50048:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(AG CK0:L48646399:A:CKCKA:L,A::CK17381"ERROR IN DATA":" READY TO WRITE WORD FILE":" PRESS ANY KEY WHEN READY"208,0:208,1:"WORDLIST",B0,P4864 P6400( 1,3,5,1,3,20,4,212 2,4,21,5,4,21,7,7< 1,19,7,1,25,# 4,4,9,5,11,9,4,3$# 21,20,13,1,16,20,9,14?# 20,5,14,19,9,24,15,1Y# 20,14,5,20,16,9,7,0t# 18,21,20,20,1,2,18,9# 7,16,5,14,16,5,1,14# 9,16,12,1,4,6,9,24# 7,21,13,2,21,13,2,1# 4,12,15,20,3,18,25,1# 9,4,6,1,18,10 7,0*( 5,18,1,12,15,2,8,5*2 24,9,18,5,4,9,14,12*< 7,15,3,1,4,3,15,25K*F 3,21,4,4,25,5,7,15f*P 2,9,18,11,22,5,24,25*Z 1,13,26,9,16,20,15,7*d 20,1,13,14,1,25,14,15*n 18,19,15,24,16,12,25,16*x 5,18,15,23,14,16,21,7* 23,1 ,4,15,20,4,18,25,0% h 25,5,19,15,12,4,15,9@ r 12,15,1,11,20,5,1,19\ | 21,14,15,14,5,21,19,5w  18,5,4,14,15,20,19,8  5,23,9,14,18,9,16,18  15,2,20,15,16,20,1,7  20,8,5,15,21,18,15,21  20,18,21,2,16,9,14,1  14,4,1,14,2 5' 19,16,25,3,21,5,2,1 ' 14,3,15,14,11,5,7,108' 1,7,6,21,18,7,1,2Q'$ 10,15,7,3,15,4,1,9j'. 12,4,1,13,4,5,23,7'8 21,20,7,15,4,12,1,7'B 6,9,7,2,21,25,2,25'L 5,10,15,20,5,1,20,6'V 9,2,5,12,11,15,23,5'` 19,15,2,18,15,4, 8,20,21,24,19,15,20,16-J 1,12,23,1,19,14,9,20)-T 8,9,5,9,12,11,21,13B-^ 16,6,5,4,22,9,13,0]-h 1,12,16,1,21,11,2,15w-r 16,2,21,18,3,1,23,3-| 1,25,3,15,19,3,15,24- 3,21,13,4,1,14,5,6- 20,5,13,21,5,18,7,6- 1,7,19,1,3,6,5,1 7,5,13F 2,15,23,2,15,24,6,159P 7,6,15,5,2,21,14,12SZ 5,20,12,5,7,12,1,23pd 13,15,16,13,21,4,13,15n 23,20,15,5,20,9,16,16x 1,4,16,1,14,19,11,25 19,11,9,19,5,23,19,5 20,13,1,25,13,5,14,22 1,14,22,1,20,18,9,2,1,18$ 11,5,25,16,1,20,3,21($ 2,8,1,20,6,9,20,3B$ 1,16,2,1,25,6,18,25\$ 13,1,4,18,1,20,19,1w$  20,16,5,20,23,5,2,25$ 5,20,16,9,20,19,1,4$  23,9,7,15,23,12,14,15$* 4,18,15,20,20,21,2,23$4 1,7,16,1,25,2,15,25$> 6,155,5,8,21,13,12,1+ 13,12,15,24,5,15,14,5)+ 7,15,4,15,14,1,23,12A+ 7,1,4,1,6,20,1,19\+ 16,6,12,21,7,5,12,12x+ 15,16,14,21,2,18,21,5+ 19,5,24,19,15,16,20,8+ 25,25,1,11,13,9,4,16+ 21,19,14,9,12,19,21,16+ 23,18,25,15,10,2,9,7! 2,9,14,8,15,23,11,93! 20,10,21,7,10,15,25,8L! 9,16,4,5,14,4,1,25d! 8,1,13,8,1,4,7,15~! 20,10,1,23,9,3,5,12! 1,16,12,5,4,8,21,7! 2,21,20,2,21,19,3,1! 20,3,1,18,4,15,7,8! 5,14,6,12,25,13,1,20" 16,15,2018,1(j 16,19,8,25,16,1,18,19#(t 15,4,16,18,25,15,1,6<(~ 10,1,25,8,21,5,8,1U( 7,11,9,14,3,1,13,5o( 12,6,23,1,25,9,3,25( 9,22,25,8,5,13,1,18( 11,6,9,18,1,23,5,7( 21,25,6,5,23,23,1,4( 12,1,24,13,1,18,16,18( 15,19,14- 6,5,25,6,5,26,6,9. 5,6,15,2,6,15,16,7'. 1,18,8,1,23,8,5,23@. 8,15,2,8,15,4,13,1\. 23,13,5,23,13,8,15,13v. 15,20,14,5,2,14,9,2. 15,2,9,15,12,5,15,22. 1,18,5,22,16,1,19,16. 15,9,16,25,24,18,5,13. 18,5,16,19, 23,15,14,2,21,4,2,21, 7,1,14,25,1,16,5,3E 1,14,2,1,20,7,9,14_ 7,5,20,9,14,11,1,18y 20,6,21,14,8,1,25,8 5,25,12,9,16,12,9,20 8,15,20,8,15,7,8,15 16,5,14,4,3,15,23,3 21,16,10,1,13,13,1,14 14,5,23,20,1,14,24,3,15,20,3,1%H 2,5,1,18,6,1,20,100%R 1,2,3,15,2,18,21,13L%\ 13,15,2,18,9,13,18,15g%f 23,23,9,20,14,1,7,20%p 15,23,23,5,4,19,1,25%z 16,21,14,18,1,23,19,1% 16,16,9,5,1,9,13,19% 9,18,20,1,24,4,9,16% 2,9,20,2,1,18,7,18,2,18,1, 8,20,15,13,25,5,1,21, 18,14,1,4,15,1,25,58, 4,21,15,3,21,18,9,15S, 14,6,18,15,2,15,1,22n, 9,5,7,14,21,19,15,23, 13,15,4,15,16,20,15,8," 13,18,15,5,1,16,20,1,, 18,3,2,1,8,4,21,14,6 8,5,18,10,9,2,21,7,@ ,18,1,25,19,15"& 14,20,15,14,20,9,5,19:"0 9,14,25,15,21,23,1,24V": 18,1,7,14,21,20,18,21q"D 7,19,21,13,1,19,11,1"N 18,13,6,1,14,10,5,20"X 6,9,14,6,15,18,10,15"b 2,12,1,25,12,15,23,2"l 9,4,2,5,4,1,9,18"v 8,1,19,12,9,5,8,96,1,19,15,25,25) 1,16,15,4,5,18,1,13,) 22,5,20,22,15,23,19,21F) 5,16,5,7,13,5,20,20b) 23,15,20,1,4,19,20,25~) 9,13,16,18,25,5,19,21) 2,18,9,4,2,15,7,16)  21,2,16,15,24,16,5,23) 10,21,20,12,25,5,1,24) 5,1,12,5,3,15,9,3,19,15. 12,12,5,9,20,1,23,20/ 9,3,20,15,18,20,21,143/ 22,9,1,1,12,2,23,1O/& 14,13,9,12,23,5,14,23j/0 15,11,25,1,8,25,1,23/: 25,5,14,25,5,23,25,9/D 16,2,18,1,15,6,20,21/N 13,16,2,5,25,12,5,1/X 0,0,0,0,0,0,0,0/b 0,18,21 14,16,21,20,14,1,16,149 15,23,20,1,18,23,8,25V 23,8,15,20,15,25,20,18r" 25,19,9,20,18,1,14,13, 9,24,19,9,16,23,1,186 1,7,5,1,18,5,4,9@ 13,4,9,7,7,21,14,8J 9,20,8,9,13,8,9,19T 12,9,4,12,15,7,1,20 ^ 5& 16,8,21,20,6,1,4,2& 1,7,2,5,7,5,12,134& 8,15,5,1,19,8,4,15M& 5,8,21,2,10,9,7,12e& 21,7,4,1,2,2,5,20& 16,15,4,13,21,7,14,1& 2,15,1,18,19,1,7,0& 20,21,7,20,1,16,19,5& 1,19,1,23,16,1,23,15& 18,5,23,5,20,19,12,2 Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER1:(B$)162"NAME OF PROGRAM TO BOOT:";:1,0:1,P$:1: (P$)162! "d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/A":#54276,17:54276,16:0#15,8,15:15,A,A$:15:A$:I# GET FOUR DIGIT HEXX#:B$;:T$p#(T$)4380:430#A14:A$(T$,A,1):450:T(A)16380:430#:B(T(1)4096)(T(2)256)(T(3)16)T(4):#A$"@"A$"G"T(A)(A$)5 7 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)3F  A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:&:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650Qg 92,204,3,3,1507?208,10,162,131,160,164,169,70,32,210,255,44,1615n169,78,32,210,255,142,2,3,140,3,3,76,111336,193,32,96,165,134,122,132,123,32,115,0,1180170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173, 54272,4:54273,48:54277,0:54278,249:54296,15HA680699:B:A,B:s169,251,166,253,164,254,32,216,255,96169,0,166,251,164,252,32,213,255,96B$"STARTING ADDRESS IN HEX":430:ADB:SRB480:B0150251,T(4)T(3)16:252,T(5:$A$"/"A$":"T(A)(A$)48:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(A"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90UP"NO AUTOMATIC SAVES...":150Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)(xF$"BAC220 !O LAST LINE'!T" ":TAD((AD256)256)M!YB0A1:TTA%(B):T255TT255S!^k!cA%(A)T375:195!hB0A1:ADB,A%(B):!m:"YOU ARE FINISHED!":535!r BELL AND ERROR MESSAGES!w:"LINE ENTERED INCORRECTLY"::415"|:,169,38,141,2,3,173,1578B"J48,193,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,160,2,240,5,169,1215: 79,141,2,3,76,162,164,169,0,133,2,133,1064q 251,133,252,133,254,24,101,20,69,254,230,254,1975 24,101,21,69,254,170,230,254,164,252,185,0,1724 2,133,253,201,34,208,6,165,2,73,255,133,1465!2,201,32,208,4,165,2,2402)T(1)16/B$"ENDING ADDRESS IN HEX":430:ENBA470:B0150h254,T(2)T(1)16:BT(4)1T(3)16B255BB255:254,(254)1253,B: GET HEX LINE495:": ";:A08B01:250BA%(A)T(1)T(0)16:ADA1CA):T9A$(T55):530% A$(T48)+%A$;:ACACAT:B%A$"**SAVE**":585X%1,T,1,A$:680:1d%!ST0w%&400:T8420%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&KUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,1"INPUT A 4 DIGIT HEX VALUE!":415F":"ENDING IS LESS THAN STARTING!":B0:415|":"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415":"NOT ZERO PAGE OR ROM!":B0:415""?ERROR IN SAVE":415""?ERROR IN LOAD":415"::"END OF ML ARE2,51,160,193,32,189,255,169,43,1670I#|166,45,164,46,32,216,255,162,1,189,51,193,1520~#168,200,152,201,58,144,2,169,48,157,51,193,1543#201,48,208,3,202,16,234,32,33,193,76,116,1362#164,206,32,208,169,0,170,168,76,219,255,160,1827$1,1 ,8,138,24,101,1125@!253,69,254,170,44,198,254,230,252,164,253,208,2349t!"213,138,41,240,74,74,74,74,24,105,129,141,1327!,44,193,138,41,15,24,105,129,141,45,193,162,1230!60,189,43,193,240,12,157,0,4,173,134,2,1147 "@157,0,216,232,208,239EN340 " ";-A:TAD((AD256)256):" "QA07:TTA%(A):T255TT255WoA%(8)T375:195A07:ADA,A%(A)::ADAD8:195 GET HEX INPUTA$:A$""250A$(20)305A$(133)535 A$(134)560N:A$"":"FILENAME";A$&SA$""590,&X:"TAPE OR DISK?":R&]B$:T1:B$"D"T8:A$"@0:"A$:c&bB$"T"605i&g&lB$"CONTINUE FROM ADDRESS":430:ADB&q475:B0620&v:195&{B$"BEGIN SCAN AT ADDRESS":430:ADB&475:B0635A hAHOY! DEC.'88602ABOOTSGLANKSPEED SG64 UG EP ɠ SG128 BUG REP II SGUBULAR!SGTUBULAR!.MLSGTRI WORDSSGTRI.DATA DMA IN GOTO/GOSUB IN MOOTH CROLL INUOTE WITCH INAUTO INSERT INLOADERDDLOGO% DIR 1KWORDLISTSGCREENAVER64SGCREENAVER EMOSG CREEN OCUS 64SGOCUS EMOSGLOATING OINTSGIG IGSSGSIG DIGS IKK SIG DIGS IISGAPID ANDOM ɠSGAPID ANDOM ɠSG NJUMBLED ORDSSG POLAR GRAPHICS 1SGPOLAR GRAPHICS 2ASTER INEUP F OOLEANKK DMAGOTO/GOSUBMOOTH CROLLUOTE WITCHERAUTO INSERT LANK IN UG EP IN BUG REP INKK UBULAR! IN TRI WORDS IN TRI.DATA IN CREENAVER64 IN CREEN OCUS IN LOATING IN IG IGS IN SIG DIGS I INKK SIG DIGS II IN APID AND IN APID AND IN NJUMBLED IN POLAR 1 IN POLAR 2 IN ASTER INE IN UP F OOL INKK6 (147)"LOADING AND CHECKING THE DATA...":J4864SB011:A:A0A25540rJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(66)256(65):2X0:JJ12:J521320<208,0:5213,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)0F" ũ ܍ ܍ ܍ a  5 H  x L_ɭL: H L ԩ 舌ԩ88쩀ԭ a Hɍ L 1ɝ L&ɝ o `ɭɭ4$ A0 A1:"TUBULAR!.ML",8,10 49152Q `Lé`ɢ\ȝk1`ɭɍJíɍKîɭ`ɭJÝɭKÝJiJðLlKɭЭ* `) `-( ԩԭɍíɍé ` 7Ġ `ɩԩԩ H .ɭɩ` 55,169,0,13953#|174,94,20,168,32,186,255,169,45,174,16,18,1351f#172,17,18,32,216,255,162,1,189,96,20,168,1346#200,152,201,58,144,2,169,48,157,96,20,201,1448#48,208,3,202,16,234,32,49,20,141,0,2,955#76,183,77,58,59,32,65,20,206,32,20 169,0,166,235,164,236,133,253,133,254,142,47,1932] 20,140,48,20,24,101,22,69,254,230,254,24,1206 101,23,69,254,170,230,254,164,252,185,0,2,1704 133,251,201,34,208,6,165,253,73,255,133,253,1965 201,32,208,4,165,253,240,8,138,24,101,251 DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90RP"NO AUTOMATIC SAVES...":150Z5213,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d5214,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)#xF$"BACKUP": `ǍoǭǍǭȍii i a `Vɝ _ɝ&+ oA+L )`~`````ɍoǍǍǩǩ ǩȠȌ`A1@X1`   멟    Nٝ ɝ%%۝ة:ɝ  #`$`ƭɠ`ƍƩɩȩiȩƢ%  ɩԩԩ H .ɭɩ`ȌԈ`ɭ X``*j?k`89:;pș8ș9ȝC8ȝ8ȝ8)ɠ1@9i@İLiɭ ʩ1ĩĩ9ĩ@8,206,1222,$1,214,169,0,170,168,76,219,255,32,79,20,1403_$169,26,141,0,214,173,0,214,16,251,96,162,1462$0,142,0,255,96,19,18,32,32,32,32,146,804$0,1,0,0,65,72,79,89,33,0,0,0,339$A256:520$A16:520$A1:520$%T(A,16253!69,254,170,44,198,254,230,252,164,251,208,213,2307e!"138,41,240,74,74,74,74,24,105,65,141,88,1138!,20,138,41,15,24,105,65,141,89,20,32,79,769!620,189,85,20,240,6,32,210,255,232,208,245,1742!@174,47,20,172,48,20,24,32,240,255,173:"FILENAME";F$:F$N$(F$,14):L(F$)P5215,L:J1L:5215J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,198:771,77:4864:32,58,20,169,41,162,19,236,3,3,208,4,95ԍ ԮɽɪzɍԽɍԮɽɪzɍԽɍ Aԍ м@ԍ ԩ`Ʌ`iiv i(iii``{ݸ` `wݸ` `L©& iȰL ɭ7ȩɩȩjȩ<ǍFǢ'  ( 8: "&*.26:                                                          "& 14,20,15,14,20,9,5,19:"0 9,14,25,15,21,23,1,24V": 18,1,7,14,21,20,18,21q"D 7,19,21,13,1,19,11,1"N 18,13,6,1,14,10,5,20"X 6,9,14,6,15,18,10,15"b 2,12,1,25,12,15,23,2"l 9,4,2,5,4,1,9,18"v 8,1,19,12,9,5,8,9 *===================================0S FLOATING POINT CONVERTERs RUPERT REPORT #60y=================================== "FLOATING POINT CONVERTER" "========================" X0(36) :: X0 MUS ~zzxvtttttt~~|zxtppn~~||zvtr~||zxvtrrrrr~|zzxtrppv~~||zzxxx||zzxxvvtrpp~~~~||~||zvtpnn~~zxvvtrr~~|||zrpppp~|||zxxx~||zxtrG]k9/7>++5;9B@"Paj*MV<@KJBAHT]T]-G-:AAADBW9$N];A/*4LC=B>@VTV-3>@HJ>@E;///1>@73>3>@;M)69=H*=*5=5: sڵЬǺȼիŻѝ˿ɷɿûտɿýɩïɤǦŪֿǿdzǻÿǩԿȿЪҧɯͯ˯                                                                   X$"X" "";SP$;SP$;"": 310. X0(X$)c V1(S1): V2(S2): V3(S3): V4(S4): V5(S5)n  1010x  210 , ========= STORED VALUES TO FP == 6: "(X TO SWITCH MODES; Q TO QUIT)" @ "ENTER 5 STORED VALUES (0 TO 255) : "T BE FIRST VARIABLEI SP$" "(13)g ( PTR(M)(M)256(M1) <FALSE0: TRUE FALSE: C64FALSE F (0)(1) C64TRUE PVP47: C64 VP45 : START VARIABLES POINTER ZSVPTR(VP) : START VARIAKNILGJEHCFBD&@E_I_$O_W_@H@@A+A5E9IR#F=3R@(Y(Y(Y@>@>@>@>@X@@T@@Q77EGKF)T&U$WOLIFC/4C5GK354E8\0-R@687NPNP@%Z)@7@j/UU'ZKP-O4?~~|zxvrpl~~|zxvrpn||zxvtrpl||zxvtrpl~~|zzzvvrrn~~||zxxvtn|||xxvtrpn~~||zzxx|v~~~|||xtnlڞθû~|zzxvtrpnllll~|zxvvtrpnllll~|zzxvtrpnnlll~|zxvttrpnlll~|zxvtrpnllll~||zxxvtrpnlll~||zzxxvtrppnl~|zzxxxvvtrpnl~|zxvttrrpnlll~~|zzxxvvtrpnl~|zxvtrpnlllll~|zxvtrppnnnll~~|zxvtrrpnl~~|||zzxvtrpnl~||                                                          J "FIRST VALUE";X1$: V1(X1$)K T X1$"X" "";SP$;SP$;SP$;"": 210] ^ X1$"Q" ~ h "2ND VALUE";X2$: V2(X2$) r "3RD VALUE";X3$: V3(X3$) | "4TH VALUE";X4$: V4(X4$)  "5TH VALUE";X5$: V5(X5$)  S1,V1: S2,V2 BLESH dS1SV2: S2SV3: S3SV4: S4SV5: S5SV6 : STORAGE AREA FOR X0[ n C64  1 ========= FP TO STORED VALUES == "(X TO SWITCH MODES; Q TO QUIT)" "ENTER FLOATING PT. VALUE :" X$: X$"" 260 X$"Q" ! a~~|||zzxttl~~zxvtrpnl~~|zzvrpppn~~|zxvtrpl~~|||xttr~~||zxxvvnl~~||xxvvtrplzxxvtrpnll~||zzxvtrrpnlƚ蟜ѥѥ«ѥɩ׫׫ͻưհհհǻƧöޥޥޥޥޥʹʭʱʧڥܥܨٿʿʿàݡܺʰ嵹ұ렠|zzzrrrrrrr~||zvpllll~~|zztnnnnn: S3,V3: S4,V4: S5,V5  1010&  310L  ===== CONVERSION & OUTPUT =====e  V1; V2; V3; V4; V5  -- EXPONENT, MANTISSA, SIGN -- EXV1128 MN(((V5256V4)256V3)256 (128 V2))256 SN1: V2 128 SN1$ """ 53280,1:""15)"SIG DIGS"K ==================================o COMMODARES PROBLEM #55-1 : SIG DIGS SOLUTION BY ROBERT CLARK ==================================%N:E1501:V2E:FVN:NN" 53280,1:""15)"SIG DIGS"K ==================================o COMMODARES PROBLEM #55-1 : SIG DIGS SOLUTION BY JAN SORENSEN ======= C-128 ONLY =============== "INPUT INTEGER";NA(N2 # 53280,1:""15)"SIG DIGS"L ==================================p COMMODARES PROBLEM #55-1 : SIG DIGS SOLUTION BY JOSHUA TEMPKIN ==================================$ "ENTER INTEGER FROM 0 - 53 ;53280,1:""12)"RAPID RANDOMIZER":"PLEASE WAIT..."d ================================== COMMODARES PROBLEM #55-2 : RAPID RANDOMIZER SOLUTION BY JIM BORDEN =================================="  ;53280,1:""12)"RAPID RANDOMIZER":"PLEASE WAIT..."d ================================== COMMODARES PROBLEM #55-2 : RAPID RANDOMIZER SOLUTION BY DOUG ROPP ==================================! 5; SNMN; "* 2^"; EX; " = "; X0; "": %.X0; "": 8.X0@S(Tj QMFATRC6VP4SVcS1cS2cS3cS4cS5dX+VF:UUF:SS(S0)F(E1)::U,SU,S]): AN2 XX1: YY1-NA: N0 20W( "1'S ="Y; "0'S ="X, "SIG DIGS ="XY6870911";NM: NM0 NM53670911 10DXNM: S0: N00: N10: I29P I0(II1: K(2I): XK N1N11: S1: XXK: N0N01: S0 N0N012<NTN0N1: "NUMBER OF 1'S, SIG 0'S, SIG DIGS:": N1,N0,NTN100: X(N): I1 N: X(I)I: , T0TI\ X1N:I(1)N1:TX(X):X(X)X(I):X(I)T:q ( TIT0"JIFFIES" 2 I1 N: X(I);:1: S0 N0N012<NTN0N1: "NUMBER OF 1'S, SIG 0'S, SIG DIGS:": N1,N0,NTN100: X(N): I1 N: X(I)I: + T0TIs X(0)X(N):I0N1:N(N)I:JX(I):X(I)X(N):X(N)J::NI:X(N)X(0) ( TIT0"JIFFIES" 2 I1 N: X(I);:<NTN0N1: "NUMBER OF 1'S, SIG 0'S, SIG DIGS:": N1,N0,NT(53280,1:""12)"UNJUMBLED WORDS"Q ==================================u COMMODARES PROBLEM #55-3 : UNJUMBLED WORDS SOLUTION BY WALLACE LEEKER (BASED ON A SOLUTION TO  PROBLEM #24-1 BY AL@*@ ==================================N@ COMMODARES PROBLEM #55-4 :h@ POLAR GRAPHICS}@ SOLUTION BY@ WALLACE LEEKER@ ==================================@ 1,1@ T0 25.2 .1@R10T(T)(T) A(X(3R(T))160A2Y(R(T))100-A< 1,X,Y: T===O d S$: N(S$): C(N1)` nIN1: S$, xS$(S$,I1)(S$,NI)(S$,I,1) C(I)C(I)1: C(I)NI 110 C(I)0: I1 II1: 120 SIG DIGS:": N1,N0,NT@ @""3@ ==================================W@ COMMODARES PROBLEM #55-4 :q@ POLAR GRAPHICS@ SOLUTION BY@ JIM BORDEN@ ==================================@ "START ANGLE, END ANGLE (RADS), STEP";SA,EA,SP(Aw 1,1: TSA EA SP: R10T(T)(T)OAX(T)R: Y(T)R: 1,X160,Y99qA(: A$: : A$"Q" 10S$,NI)(S$,I,1) C(I)C(I)1: C(I)NI 110 C(I)0: I1 II1: 120 SIG DIGS:": N1,N0,NT! *************************A * TRI WORDS *a * BOB BLACKMER *( * 6118 S. BRIAR BAYOU *2 * HOUSTON,TX 77072 *< *************************FRN(TI)P(4864)1 "WORDLIST"9Z" SETTING LAN FLIPPIN)3  ==================================O d S$: N(S$): C(N1)` nIN1: S$, xS$(S$,I1)(S$,NI)(S$,I,1) C(I)C(I)1: C(I)NI 110 C(I)0: I1 II1: 120 SIG DIGS:": N1,N0,NTUP...1 MINUTE":54,56:58,56::NU(15),PO(16),K(16),W$(400)d A(X)NU((CC240)16): B(X)NU(CC15): C(X)(AANLIL): D(X)BB2(NLIL)1n0,1:4,12:740:610xX13:Y12:X230:Y22:SUM0:QU0:W0:S10:S20:C1$"":C2$"":3692,0:3693,19,173,109 - 14,141,125,14,160,0,132,254,- 174,108,14,189,0,19,153,250N- 0,232,200,192,3,208,244,142r- 108,14,224,255,208,16,232,142- 108,14,238,109,14,173,109,14-$ 201,25,208,2,230,254,96-. 1035,144,136,100,1043,156,124,136,*> 0,0,0,31,31,28,28,28,0,0,0,248,248,56,56,56,28,28,28,31,31,0,0,0,56,56,56,248,248,0,0,0*H 28,28,28,28,28,28,28,28,56,56,56,56,56,56,56,56,0,0,0,255,255,0,0,0,0,0,0,0,0,0,0,255*R 1197,1201,1205,1209,1357,1361,1365,1369,1517,1521,1525,1529,167 ,A$:1,37,L,B$:::2)BT$29)BT$J'A12244:B3154:1,A,B,BX$:::1,0,23:2)SC$29)SC$l' ***** PICK 16 LETTERS *****x'L116'RN((1)26)1'E1L:K(E)RN700:ՋK(E)RNE'K(L)RN:K(L)0700:ՂL:L116:LOCPO(L):LR(K(L 5,20,F$: $1,15,22,F$:&$1,15,20,F$:590: 2:F$ ***** INPUT ROUTINE *****n$N$"":ZL(N$):208,0:(43)(157);$Z$:Z(Z$):(Z13Z20)530:Ջ(Z64Z90)520$ZL(N$):ZLQ550$Z20N$N$Z$:Z$(43)(157);:520$&Z13ZL 35!"S1S11:(S140S1120)C1$"":Ջ(S180S1160)C1$""p!,1,0,23:7)":";S1: "V1O4T8HFV2O4T2IADEFV1QFV2QD":!6 ***** 128'S TURN *****!@F$" MY TURN ":470!J1,15,22,"THINKING.."!T3694:(254)W1: "^B0:V250252:S11 19 ***** MAIN LOOP *****h210:QU320:WF$"I'M STUMPED":470:F$" WE TIED ":480:190:ՋQU180x320:W170140F$"I'M STUMPED":470:F$"!YOU WIN!":480:190F$"! I WIN !":470:F$"NICE GAME":480#1,14,24,"PRE 80,1407,1681,1685,1689+\ ***** ML ROUTINE DATA *****8+f 169,0,133,253,165,250,197,251\+p 240,15,197,252,240,11,165,251~+z 197,252,240,5,169,0,133,253+ 96,230,253,96,0,0,19,169+ 0,141,29,14,169,19,141,30+ 14,173,30,14,141,57,14,160)4)64:460::( ***** INITIALIZE *****C(14:I02047:I14336,(I53248)::15X(L115:NU(L):(OL82088:AA14336OL:BB148484OL:IL044:NL03:CCC(0):DDD(0):XXA(0):YYB(0)(DD,XX:DD1,XX:DD16,YY:DD17,YY: NL,Q+%0Z20ZLN$(N$,ZL1):(32)(157)(157)(43)(157);4%:520M%D ***** BUZZER *****f%N3,1200,20,0,0,0,1:%X ***** DRAW SCREEN *****%b""9)"NORMAL OR SUPER BRAIN"%lLV$:LV$"N"LV$"S"620%vLV$"N"3737,24:՗376:(V)K(S)360:BB1"hS,V:B3340T"rN$"":L13:N$N$((L249)64)::430:WO340r"|F$" ":470:480"1,X2,Y2,C2$N$:SUMSUM1:W$(SUM)N$:Y2Y21:Y222X230Y22:X234:ՋY222Y22:X230 #S2S21:(S240S2120)C2$""SS ANY KEY":208,0:208,1:1070:610:120? ***** YOUR TURN *****F$"YOUR TURN":470:1,18,22:Q3:510:F$" ":470:480:N$"@@@"QU1:L13:249L,((N$,L,1))64::3584:(253)F$"NO DOUBLES":490:210 B0:V13:S1'********************************M * MENU PROGRAM V2.0 *s"* (C)1988 DOUBLE L SOFTWARE *&* ALL RIGHTS RESERVED *(********************************):53296,1*AT679:NATAT22:M:N,M: ,32,180,2,+ 0,140,28,14,174,29,14,189, 0,19,217,250,0,208,3,238?, 28,14,232,200,192,3,208,239_, 142,29,14,173,28,14,201,3, 240,21,224,255,208,211,232,142, 29,14,238,30,14,173,30,14, 201,25,208,197,230,253,96,169, 0,133,253,96,0,IL,OL) L1462414687:A:L,A::L116:PO(L):g)CK0:L35843742:A:CKCKA:L,A::CK19489"ERROR IN LINES 870-1060") 2604,((2604)240)14:)* ***** CHAR AND LOC DATA *****)4 3,12,15,48,51,60,63,192,195,204,207,240,243,252,255@37,25=&"":LOC:L13:LR:460:LOCLOC2::LOC:L15:LR:460:LOCLOC2:&A$(40):B$(41):TP$"$*******%":BT$"&*******'":BX$"$**%( )( )&**'":SC$"WORDS: " '2)TP$29)TP$:L221:1,2,L,A$:1,10,L,B$:1,29,L:Ջ(S280S2160)C2$""L#1,0,23:34)":";S2: "V1O2T8QAV2O3T2QCV1QCV2QDV1QAV2QF":h# ***** WORD USED *****#WO0:L1SUM:W$(L)N$WO1#L:# ***** PRINT ROUTINES *****#LOC,LR:LOC40,LR1:LOC1,LR2:LOC41,LR3:#1,116:((N$,V,1))64K(S)240:BB1% S,VJ B3F$"^^ LOOK ^^":490:210w 3615:(253)F$"NOT A WORD":490:210 430:WOF$"WORD USED":490:210 1,X1,Y1,C1$N$:SUMSUM1:W$(SUM)N$:Y1Y11:Y122X13Y12:X17:ՋY122Y12:X1UOTE WITCHER FROM IPS HOY! IS A ROUTINE THAT WILL ALLOW YOU TO ENTER OR EXIT QUOTE MODE DURING A PROGRAMMING SESSION. 1 TO ENTER QUOTE MODE AND 3 TO EXIT. WORD. UTO NSERT FROM IPS HOY! IS A PROGRAM FOR THE -128 THAT WILL ALLOW A USER TO INSERT PROGRAM LINES AUTOMATICALLY WHILE EDITING. UOTE MODE AND 3 TO EXIT. WORD. & ******* LOADER PROGRAM *******K ***** COPYRIGHT (C) 1987 *****p ***** DOUBLE L SOFTWARE ***** **** ALL RIGHTS RESERVED *****Z198,0dI0I1:"DDLOGO",8,1i53280,2n55,0:56,92:x53265,5953272,120  X1 25: DU(X): X/ J X1 64: H3(X),L3(X): X> T 54296,15Q ^B1: X1 25i hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X) | 54279,LO(X)45:54280,HI(X)  N1 DU(X) 54286,L3(B):54287,H3(B) BB1  L1 145:  8,97,16,195,8,97,16,195,8,97,16,195,v 8,97,16,195V 5,152,11,48,5,152,11,48,5,152,11,48h 5,152,11,48 6,71,12,143,6,71,12,143,6,71,12,143 6,71,12,143,6,71,12,143,6,71,12,143 6,71,12,143,6,71,12,143,6,71,12,143 6,71, \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr ~ ?56576,(56576)254 250+ 55,0:56,1609 53265,27G 53272,21] 56576,(56576)1 "";:53280,6:53281,0:(14); "OADING AIN ENU...." "LOAD";(34);"DIR 1";(34);",8,1" "RUN":"" 631,13:632,13  N  X 3502 S54272:I024:SI,0::155K  16,195,21,31,25,30c  28,49,21,31,28,49}  33,135,37,162,25,30  33,135  28,49,33,135,28,49  25,30,28,49,31,165  33,135,37,162,28,49  37,165,33,135,31,165 &#12,143,6,71,12,143,6,71,12,143,1,4,4,2,2,8H : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2r D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97,16,195,8,97,16,195 X 8,97,16,195,8,97,16,195,8,97,16,195 b 8,97,16,195,8,97,16,195,8,97,16,195laaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaNcefRSWX?><:198,2:. HI(25),LO(25),DU(25),H3(64),L3(64)U  54291,134: 54277,136:54284,136|  54292,136: 54278,134:54285,134  54290,17: 54276,17:54283,17 " 54272,00: 54273,33 ,54279,59:54280,33 6 X1 25: HI(X),LO(X): X @  25,30,22,96,18,209$ 0 4,2,2,3,1,4,4,2,2,8H : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2r D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97,16,195,8,97,16,195 X 8,97,16,195,8,97,16,195,8,97,16,195 b 8,97,16,195,8,97,16,195,8,97,16,195l?????aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  >> ?~ >???????xxxxxxxχ?!! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8I1|x???????? " "000qb  $44,,yAAqA??_ 0ఘఘ`aa`aaa̘```8  !qq Dl8 ?????xxx $H DE($8@`8??HH??{3?????????8,$$, qIIqQ$$D0$y? !!!ఘ```qIIyQI 8!!C?xHxPHEDDDDD8򢒉8DDDD88lD D|cL@???""|q# CbbHHO <FEDpp C!!!@|>|>><||?```8``|8a`????????8I#IIII$$G8$$8`!!㒒OBBB? ``??????8xx"6*"""HIHHH1""p?132,251,32,180,21 .166,251,76,240,255,32,253,174O 032,158,173,32,170,177,96g 253265,(53265)239 <4000:V53248:X175:Y1100 P P$(4,12),PG$(4,12),IN$(4,12):5000:NN2:B.:5190 d53280,0:53281,1:(14):2500 n2040,15:V39,10:V,X2,2:""X %AT,1,3:"ENU ROGRAM (C) OUBLE OFTWARE" *AT,3,2:"  " /I419 4AT,I,2:2)"  ": >AT,20,2:" ~~33 ``  Ƈ0ÃÃ<<<<<  DĎb@? V1,Y1:I0F:LCI,0:"HH1:H12H16PP1:P18P7VLCLC40:LC56030LC55590_204zY1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55590LC56030(20482 1:V1,Y1* x800:53265,(53265)16:53296,0G LC55590:P7:H1:V21,1[ BB1:BNNB1 I112:AT,I6,14:""P$(B,I)::V1,Y1 F(P$(B,H)):A0F:LCA,8::1000 AN$:AN$""206 AN$(17)1250 AN$(145)1300 AN$  "G CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE " \AT,24,1:"ÁÁఘ333? ``????eg DD((DDDD 8:V21,0,AT,12,4:""X"4)" HIS IS A 128 ROGRAM. T MAY",4)" NOT BE LOADED IN THE 64 MODE."64)" OU MUST SWITCH TO THE 128 "@4)" MODE IN ORDER TO LOAD THIS "J4)" PROGR(13)2000$ AN$(32)3000:Y1100:140- 204Q "";:53280,0:53281,0:V21,0} "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" (142)"RUN": ""  631,13: 632,13: 198,2:% "":AT,"fAT,3,10:""CpAT,4,10:" "izAT,5,10:""oS54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100::S4,0:Y1Y18:Y1188Y1100K  Ƈ0ÃÃ<<<<<x8|?AM SUCCESSFULLY. SE THE"4T4)" PRESCRIBED METHOD WHICH IS "p^4)" ";(34);"ROGNAME";(34);". "h4)" [RESS ANY EY] "r4)""|AT,22,3:" "1AT,22,3:" ":1000:6XX15:AT,7XX,3:""TX$(XX):P@AN$:AN$""4160qJAN$(13)882:V21,1:204TB1H3B1H5B1H6B1H11B1H122155VB2H4B2H5B2H8B2H9B2H18)" " P$(3,9)" ":IN$(3,9)" "L P$(3,10)" ":IN$(3,10)" "| P$(3,11)" ":IN$(3,11)" "" P$(3,12)" ":IN$(3,12)" ", P$(4,1)" ":IN$(4,1)" " AND IN""d P$(2,3)"NJUMBLED ORDS":IN$(2,3)"NJUMBLED IN"Wn P$(2,4)"POLAR GRAPHICS 1":IN$(2,4)"POLAR 1 IN" P$(2,5)"POLAR GRAPHICS 2":IN$(2,5)"POLAR 2 IN" P$(2,6)"ASTER INE":IN$(2,6)"ASTER INE IN" P$(2,7)"UP F OOL