PROGS/CODER

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF » PROGS/CODER

PROGS/CODER

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 » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF
Filename:	PROGS/CODER
Read OK:	✔
File size:	0894 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

Duplicates

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

AEW website » eug » eug_5_25_discs_Eug-17_D-EUG17.dsd » U.CODER
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF » PROGS/CODER

File contents

   10 ON ERROR CLOSE#0
   15MODE6
   20 PRINT''"THIS PROGRAM WILL PRINT TO A FILE CALLEDADVHINT, TYPE THE ANSWER IN ENGLISH AND"'"IT WILL BE ENCODED AND READ TO ADVHINT"'"THIS CAN BE READ INTO VIEW FOR EDITING."  
   30 PRINT'''"         PRESS SPACE TO CONTINUE" 
   33 *FX15
   35 ANS=GET
   37 IF ANS=32 THEN GOTO 40 ELSE GOTO 37
   40 REM PROGRAM MODIFIED BY PAUL      WATERMAN ON 11/10/88 NOW PRINTS TO A    VIEW FILE CALLED ADVHINT
   50 REM THE FX COMMAND GENERATES ASCII 27 WHEN THE ESCAPE IS PRESSED
   60*FX229,1
   70 VDU26:CLS:PRINT''"THIS PROGRAM DECODES THE CODED ANSWERS"'"IN ADVENTURE HINT SHEETS."'"ASSUMING THAT THE CODE IS THAT OF"'"JUMPING ONE LETTER FORWARDS TO ENCODE."
   80PRINT''"THIS PROGRAM ALSO ENABLES YOU TO ENCODE"'"MESSAGES USING THE SAME CODE SYSTEM."
   90PRINT''"TO USE THE DECODER PRESS 1"'"TO USE THE ENCODER PRESS 0"''"PRESS ESCAPE AT ANY TIME TO "'"GET BACK HERE"
  100 N=0:DECISION=GET
  110 IF DECISION=49 THEN N=1
  120 IF DECISION=48 THEN N=-1
  130 IF DECISION=27 THEN GOTO 70
  140 IF N=0 THEN PROCerror
  150 IF N=-1 GOTO 180
  160 VDU26:CLS:PRINT''"INPUT THE CODED MESSAGE"'"THE DECODED MESSAGE WILL THEN BE PRINTED"'"WHEN YOU HAVE FINISHED PRESS RETURN"'"TO START THE NEXT MESSAGE." 
  170 PRINT'"ALL KEYS, EXCEPT UPPER AND LOWER CASE"'"LETTERS PRODUCE THEIR NORMAL RESPONSE."''''':VDU28,0,24,39,15:GOTO 190
  180 CLS:PRINT''"INPUT THE MESSAGE TO BE ENCODED."''"THE MESSAGE WILL THEN BE PRINTED IN ITS CODED FORM."''"WHEN YOU HAVE FINISHED PRESS RETURN"'"TO START THE NEXT MESSAGE.":VDU28,0,24,39,15
  190 file=OPENOUT "ADVHINT"
  200 CLS
  210 REM LINE 220 SETS FIELD FORMAT,    DECIMAL PLACE AND FIELD WIDTH. 
  220 @%= &00901
  230 *FX21,0
  240 CODE=GET
  250REM ****ASCII CODE 13=RETURN
  260 IF CODE=27 THEN CLOSE#0
  270 IF CODE=27 THEN GOTO 70
  280 IF CODE=13 THEN PRINT#file,CHR$(CODE)
  290 IF CODE=13 THEN GOTO 200
  300 IF CODE <65 THEN GOTO 390 ELSE IF CODE >90 AND CODE<97 THEN GOTO 390 ELSE IF CODE>96 AND CODE<123 THEN GOTO 310 ELSE GOTO 320
  310 IF CODE <97 THEN GOTO 390 ELSE IF CODE >122 THEN GOTO 390
  320 IF CODE=97 AND N=1 THEN CODE=123
  330 IF CODE=65 AND N=1 THEN CODE=91
  340 IF CODE>122 AND N=1 THEN GOTO 390
  350 IF CODE>122 AND N=-1 THEN GOTO 390
  360 IF CODE=122 AND N=-1 THEN CODE=96
  370 IF CODE=90 AND N=-1 THEN CODE=64
  380 CODE=CODE-N
  390 PRINT CHR$(CODE);
  400 PRINT#file,CHR$(CODE)
  410 GOTO 240
  415 END
  420 DEFPROCerror
  430 CLS
  440 PRINT'"*** ERROR LET'S START AGAIN ***"''"TO USE THE DECODER PRESS 1"'"TO USE THE ENCODER PRESS 0"
  450 GOTO 100
  460 ENDPROC


 � � �#0
�6
� �''"THIS PROGRAM WILL PRINT TO A FILE CALLEDADVHINT, TYPE THE ANSWER IN ENGLISH AND"'"IT WILL BE ENCODED AND READ TO ADVHINT"'"THIS CAN BE READ INTO VIEW FOR EDITING."  
, �'''"         PRESS SPACE TO CONTINUE" 
!
 *FX15
#
 ANS=�
% � ANS=32 � � �Th@ � � �Te@
(e � PROGRAM MODIFIED BY PAUL      WATERMAN ON 11/10/88 NOW PRINTS TO A    VIEW FILE CALLED ADVHINT
2C � THE FX COMMAND GENERATES ASCII 27 WHEN THE ESCAPE IS PRESSED
<*FX229,1
F� �26:�:�''"THIS PROGRAM DECODES THE CODED ANSWERS"'"IN ADVENTURE HINT SHEETS."'"ASSUMING THAT THE CODE IS THAT OF"'"JUMPING ONE LETTER FORWARDS TO ENCODE."
PW�''"THIS PROGRAM ALSO ENABLES YOU TO ENCODE"'"MESSAGES USING THE SAME CODE SYSTEM."
Zp�''"TO USE THE DECODER PRESS 1"'"TO USE THE ENCODER PRESS 0"''"PRESS ESCAPE AT ANY TIME TO "'"GET BACK HERE"
d N=0:DECISION=�
n � DECISION=49 � N=1
x � DECISION=48 � N=-1
� � DECISION=27 � � �DF@
� � N=0 � �error
� � N=-1 � �tt@
�� �26:�:�''"INPUT THE CODED MESSAGE"'"THE DECODED MESSAGE WILL THEN BE PRINTED"'"WHEN YOU HAVE FINISHED PRESS RETURN"'"TO START THE NEXT MESSAGE." 
�r �'"ALL KEYS, EXCEPT UPPER AND LOWER CASE"'"LETTERS PRODUCE THEIR NORMAL RESPONSE."''''':�28,0,24,39,15:� �t~@
�� �:�''"INPUT THE MESSAGE TO BE ENCODED."''"THE MESSAGE WILL THEN BE PRINTED IN ITS CODED FORM."''"WHEN YOU HAVE FINISHED PRESS RETURN"'"TO START THE NEXT MESSAGE.":�28,0,24,39,15
� file=� "ADVHINT"
� �
�E � LINE 220 SETS FIELD FORMAT,    DECIMAL PLACE AND FIELD WIDTH. 
� @%= &00901
� *FX21,0
� CODE=�
�� ****ASCII CODE 13=RETURN
 � CODE=27 � �#0
 � CODE=27 � � �DF@
 � CODE=13 � �#file,�(CODE)
" � CODE=13 � � �dH@
,a � CODE <65 � � �tFA � � CODE >90 � CODE<97 � � �tFA � � CODE>96 � CODE<123 � � �TvA � � �D@A
6/ � CODE <97 � � �tFA � � CODE >122 � � �tFA
@ � CODE=97 � N=1 � CODE=123
J � CODE=65 � N=1 � CODE=91
T � CODE>122 � N=1 � � �tFA
^ � CODE>122 � N=-1 � � �tFA
h  � CODE=122 � N=-1 � CODE=96
r � CODE=90 � N=-1 � CODE=64
| CODE=CODE-N
� � �(CODE);
� �#file,�(CODE)
� � �dp@
� �
� ��error
� �
�c �'"*** ERROR LET'S START AGAIN ***"''"TO USE THE DECODER PRESS 1"'"TO USE THE ENCODER PRESS 0"
� � �Dd@
� �
�

00000000  0d 00 0a 0c 20 ee 20 85  20 d9 23 30 0d 00 0f 06  |.... . . .#0....|
00000010  eb 36 0d 00 14 ae 20 f1  27 27 22 54 48 49 53 20  |.6.... .''"THIS |
00000020  50 52 4f 47 52 41 4d 20  57 49 4c 4c 20 50 52 49  |PROGRAM WILL PRI|
00000030  4e 54 20 54 4f 20 41 20  46 49 4c 45 20 43 41 4c  |NT TO A FILE CAL|
00000040  4c 45 44 41 44 56 48 49  4e 54 2c 20 54 59 50 45  |LEDADVHINT, TYPE|
00000050  20 54 48 45 20 41 4e 53  57 45 52 20 49 4e 20 45  | THE ANSWER IN E|
00000060  4e 47 4c 49 53 48 20 41  4e 44 22 27 22 49 54 20  |NGLISH AND"'"IT |
00000070  57 49 4c 4c 20 42 45 20  45 4e 43 4f 44 45 44 20  |WILL BE ENCODED |
00000080  41 4e 44 20 52 45 41 44  20 54 4f 20 41 44 56 48  |AND READ TO ADVH|
00000090  49 4e 54 22 27 22 54 48  49 53 20 43 41 4e 20 42  |INT"'"THIS CAN B|
000000a0  45 20 52 45 41 44 20 49  4e 54 4f 20 56 49 45 57  |E READ INTO VIEW|
000000b0  20 46 4f 52 20 45 44 49  54 49 4e 47 2e 22 20 20  | FOR EDITING."  |
000000c0  0d 00 1e 2c 20 f1 27 27  27 22 20 20 20 20 20 20  |..., .'''"      |
000000d0  20 20 20 50 52 45 53 53  20 53 50 41 43 45 20 54  |   PRESS SPACE T|
000000e0  4f 20 43 4f 4e 54 49 4e  55 45 22 20 0d 00 21 0a  |O CONTINUE" ..!.|
000000f0  20 2a 46 58 31 35 0d 00  23 0a 20 41 4e 53 3d a5  | *FX15..#. ANS=.|
00000100  0d 00 25 1f 20 e7 20 41  4e 53 3d 33 32 20 8c 20  |..%. . ANS=32 . |
00000110  e5 20 8d 54 68 40 20 8b  20 e5 20 8d 54 65 40 0d  |. .Th@ . . .Te@.|
00000120  00 28 65 20 f4 20 50 52  4f 47 52 41 4d 20 4d 4f  |.(e . PROGRAM MO|
00000130  44 49 46 49 45 44 20 42  59 20 50 41 55 4c 20 20  |DIFIED BY PAUL  |
00000140  20 20 20 20 57 41 54 45  52 4d 41 4e 20 4f 4e 20  |    WATERMAN ON |
00000150  31 31 2f 31 30 2f 38 38  20 4e 4f 57 20 50 52 49  |11/10/88 NOW PRI|
00000160  4e 54 53 20 54 4f 20 41  20 20 20 20 56 49 45 57  |NTS TO A    VIEW|
00000170  20 46 49 4c 45 20 43 41  4c 4c 45 44 20 41 44 56  | FILE CALLED ADV|
00000180  48 49 4e 54 0d 00 32 43  20 f4 20 54 48 45 20 46  |HINT..2C . THE F|
00000190  58 20 43 4f 4d 4d 41 4e  44 20 47 45 4e 45 52 41  |X COMMAND GENERA|
000001a0  54 45 53 20 41 53 43 49  49 20 32 37 20 57 48 45  |TES ASCII 27 WHE|
000001b0  4e 20 54 48 45 20 45 53  43 41 50 45 20 49 53 20  |N THE ESCAPE IS |
000001c0  50 52 45 53 53 45 44 0d  00 3c 0c 2a 46 58 32 32  |PRESSED..<.*FX22|
000001d0  39 2c 31 0d 00 46 9f 20  ef 32 36 3a db 3a f1 27  |9,1..F. .26:.:.'|
000001e0  27 22 54 48 49 53 20 50  52 4f 47 52 41 4d 20 44  |'"THIS PROGRAM D|
000001f0  45 43 4f 44 45 53 20 54  48 45 20 43 4f 44 45 44  |ECODES THE CODED|
00000200  20 41 4e 53 57 45 52 53  22 27 22 49 4e 20 41 44  | ANSWERS"'"IN AD|
00000210  56 45 4e 54 55 52 45 20  48 49 4e 54 20 53 48 45  |VENTURE HINT SHE|
00000220  45 54 53 2e 22 27 22 41  53 53 55 4d 49 4e 47 20  |ETS."'"ASSUMING |
00000230  54 48 41 54 20 54 48 45  20 43 4f 44 45 20 49 53  |THAT THE CODE IS|
00000240  20 54 48 41 54 20 4f 46  22 27 22 4a 55 4d 50 49  | THAT OF"'"JUMPI|
00000250  4e 47 20 4f 4e 45 20 4c  45 54 54 45 52 20 46 4f  |NG ONE LETTER FO|
00000260  52 57 41 52 44 53 20 54  4f 20 45 4e 43 4f 44 45  |RWARDS TO ENCODE|
00000270  2e 22 0d 00 50 57 f1 27  27 22 54 48 49 53 20 50  |."..PW.''"THIS P|
00000280  52 4f 47 52 41 4d 20 41  4c 53 4f 20 45 4e 41 42  |ROGRAM ALSO ENAB|
00000290  4c 45 53 20 59 4f 55 20  54 4f 20 45 4e 43 4f 44  |LES YOU TO ENCOD|
000002a0  45 22 27 22 4d 45 53 53  41 47 45 53 20 55 53 49  |E"'"MESSAGES USI|
000002b0  4e 47 20 54 48 45 20 53  41 4d 45 20 43 4f 44 45  |NG THE SAME CODE|
000002c0  20 53 59 53 54 45 4d 2e  22 0d 00 5a 70 f1 27 27  | SYSTEM."..Zp.''|
000002d0  22 54 4f 20 55 53 45 20  54 48 45 20 44 45 43 4f  |"TO USE THE DECO|
000002e0  44 45 52 20 50 52 45 53  53 20 31 22 27 22 54 4f  |DER PRESS 1"'"TO|
000002f0  20 55 53 45 20 54 48 45  20 45 4e 43 4f 44 45 52  | USE THE ENCODER|
00000300  20 50 52 45 53 53 20 30  22 27 27 22 50 52 45 53  | PRESS 0"''"PRES|
00000310  53 20 45 53 43 41 50 45  20 41 54 20 41 4e 59 20  |S ESCAPE AT ANY |
00000320  54 49 4d 45 20 54 4f 20  22 27 22 47 45 54 20 42  |TIME TO "'"GET B|
00000330  41 43 4b 20 48 45 52 45  22 0d 00 64 13 20 4e 3d  |ACK HERE"..d. N=|
00000340  30 3a 44 45 43 49 53 49  4f 4e 3d a5 0d 00 6e 18  |0:DECISION=...n.|
00000350  20 e7 20 44 45 43 49 53  49 4f 4e 3d 34 39 20 8c  | . DECISION=49 .|
00000360  20 4e 3d 31 0d 00 78 19  20 e7 20 44 45 43 49 53  | N=1..x. . DECIS|
00000370  49 4f 4e 3d 34 38 20 8c  20 4e 3d 2d 31 0d 00 82  |ION=48 . N=-1...|
00000380  1b 20 e7 20 44 45 43 49  53 49 4f 4e 3d 32 37 20  |. . DECISION=27 |
00000390  8c 20 e5 20 8d 44 46 40  0d 00 8c 13 20 e7 20 4e  |. . .DF@.... . N|
000003a0  3d 30 20 8c 20 f2 65 72  72 6f 72 0d 00 96 12 20  |=0 . .error.... |
000003b0  e7 20 4e 3d 2d 31 20 e5  20 8d 74 74 40 0d 00 a0  |. N=-1 . .tt@...|
000003c0  96 20 ef 32 36 3a db 3a  f1 27 27 22 49 4e 50 55  |. .26:.:.''"INPU|
000003d0  54 20 54 48 45 20 43 4f  44 45 44 20 4d 45 53 53  |T THE CODED MESS|
000003e0  41 47 45 22 27 22 54 48  45 20 44 45 43 4f 44 45  |AGE"'"THE DECODE|
000003f0  44 20 4d 45 53 53 41 47  45 20 57 49 4c 4c 20 54  |D MESSAGE WILL T|
00000400  48 45 4e 20 42 45 20 50  52 49 4e 54 45 44 22 27  |HEN BE PRINTED"'|
00000410  22 57 48 45 4e 20 59 4f  55 20 48 41 56 45 20 46  |"WHEN YOU HAVE F|
00000420  49 4e 49 53 48 45 44 20  50 52 45 53 53 20 52 45  |INISHED PRESS RE|
00000430  54 55 52 4e 22 27 22 54  4f 20 53 54 41 52 54 20  |TURN"'"TO START |
00000440  54 48 45 20 4e 45 58 54  20 4d 45 53 53 41 47 45  |THE NEXT MESSAGE|
00000450  2e 22 20 0d 00 aa 72 20  f1 27 22 41 4c 4c 20 4b  |." ...r .'"ALL K|
00000460  45 59 53 2c 20 45 58 43  45 50 54 20 55 50 50 45  |EYS, EXCEPT UPPE|
00000470  52 20 41 4e 44 20 4c 4f  57 45 52 20 43 41 53 45  |R AND LOWER CASE|
00000480  22 27 22 4c 45 54 54 45  52 53 20 50 52 4f 44 55  |"'"LETTERS PRODU|
00000490  43 45 20 54 48 45 49 52  20 4e 4f 52 4d 41 4c 20  |CE THEIR NORMAL |
000004a0  52 45 53 50 4f 4e 53 45  2e 22 27 27 27 27 27 3a  |RESPONSE."''''':|
000004b0  ef 32 38 2c 30 2c 32 34  2c 33 39 2c 31 35 3a e5  |.28,0,24,39,15:.|
000004c0  20 8d 74 7e 40 0d 00 b4  b6 20 db 3a f1 27 27 22  | .t~@.... .:.''"|
000004d0  49 4e 50 55 54 20 54 48  45 20 4d 45 53 53 41 47  |INPUT THE MESSAG|
000004e0  45 20 54 4f 20 42 45 20  45 4e 43 4f 44 45 44 2e  |E TO BE ENCODED.|
000004f0  22 27 27 22 54 48 45 20  4d 45 53 53 41 47 45 20  |"''"THE MESSAGE |
00000500  57 49 4c 4c 20 54 48 45  4e 20 42 45 20 50 52 49  |WILL THEN BE PRI|
00000510  4e 54 45 44 20 49 4e 20  49 54 53 20 43 4f 44 45  |NTED IN ITS CODE|
00000520  44 20 46 4f 52 4d 2e 22  27 27 22 57 48 45 4e 20  |D FORM."''"WHEN |
00000530  59 4f 55 20 48 41 56 45  20 46 49 4e 49 53 48 45  |YOU HAVE FINISHE|
00000540  44 20 50 52 45 53 53 20  52 45 54 55 52 4e 22 27  |D PRESS RETURN"'|
00000550  22 54 4f 20 53 54 41 52  54 20 54 48 45 20 4e 45  |"TO START THE NE|
00000560  58 54 20 4d 45 53 53 41  47 45 2e 22 3a ef 32 38  |XT MESSAGE.":.28|
00000570  2c 30 2c 32 34 2c 33 39  2c 31 35 0d 00 be 15 20  |,0,24,39,15.... |
00000580  66 69 6c 65 3d ae 20 22  41 44 56 48 49 4e 54 22  |file=. "ADVHINT"|
00000590  0d 00 c8 06 20 db 0d 00  d2 45 20 f4 20 4c 49 4e  |.... ....E . LIN|
000005a0  45 20 32 32 30 20 53 45  54 53 20 46 49 45 4c 44  |E 220 SETS FIELD|
000005b0  20 46 4f 52 4d 41 54 2c  20 20 20 20 44 45 43 49  | FORMAT,    DECI|
000005c0  4d 41 4c 20 50 4c 41 43  45 20 41 4e 44 20 46 49  |MAL PLACE AND FI|
000005d0  45 4c 44 20 57 49 44 54  48 2e 20 0d 00 dc 0f 20  |ELD WIDTH. .... |
000005e0  40 25 3d 20 26 30 30 39  30 31 0d 00 e6 0c 20 2a  |@%= &00901.... *|
000005f0  46 58 32 31 2c 30 0d 00  f0 0b 20 43 4f 44 45 3d  |FX21,0.... CODE=|
00000600  a5 0d 00 fa 1e f4 20 2a  2a 2a 2a 41 53 43 49 49  |...... ****ASCII|
00000610  20 43 4f 44 45 20 31 33  3d 52 45 54 55 52 4e 0d  | CODE 13=RETURN.|
00000620  01 04 14 20 e7 20 43 4f  44 45 3d 32 37 20 8c 20  |... . CODE=27 . |
00000630  d9 23 30 0d 01 0e 17 20  e7 20 43 4f 44 45 3d 32  |.#0.... . CODE=2|
00000640  37 20 8c 20 e5 20 8d 44  46 40 0d 01 18 1f 20 e7  |7 . . .DF@.... .|
00000650  20 43 4f 44 45 3d 31 33  20 8c 20 f1 23 66 69 6c  | CODE=13 . .#fil|
00000660  65 2c bd 28 43 4f 44 45  29 0d 01 22 17 20 e7 20  |e,.(CODE)..". . |
00000670  43 4f 44 45 3d 31 33 20  8c 20 e5 20 8d 64 48 40  |CODE=13 . . .dH@|
00000680  0d 01 2c 61 20 e7 20 43  4f 44 45 20 3c 36 35 20  |..,a . CODE <65 |
00000690  8c 20 e5 20 8d 74 46 41  20 8b 20 e7 20 43 4f 44  |. . .tFA . . COD|
000006a0  45 20 3e 39 30 20 80 20  43 4f 44 45 3c 39 37 20  |E >90 . CODE<97 |
000006b0  8c 20 e5 20 8d 74 46 41  20 8b 20 e7 20 43 4f 44  |. . .tFA . . COD|
000006c0  45 3e 39 36 20 80 20 43  4f 44 45 3c 31 32 33 20  |E>96 . CODE<123 |
000006d0  8c 20 e5 20 8d 54 76 41  20 8b 20 e5 20 8d 44 40  |. . .TvA . . .D@|
000006e0  41 0d 01 36 2f 20 e7 20  43 4f 44 45 20 3c 39 37  |A..6/ . CODE <97|
000006f0  20 8c 20 e5 20 8d 74 46  41 20 8b 20 e7 20 43 4f  | . . .tFA . . CO|
00000700  44 45 20 3e 31 32 32 20  8c 20 e5 20 8d 74 46 41  |DE >122 . . .tFA|
00000710  0d 01 40 1f 20 e7 20 43  4f 44 45 3d 39 37 20 80  |..@. . CODE=97 .|
00000720  20 4e 3d 31 20 8c 20 43  4f 44 45 3d 31 32 33 0d  | N=1 . CODE=123.|
00000730  01 4a 1e 20 e7 20 43 4f  44 45 3d 36 35 20 80 20  |.J. . CODE=65 . |
00000740  4e 3d 31 20 8c 20 43 4f  44 45 3d 39 31 0d 01 54  |N=1 . CODE=91..T|
00000750  1e 20 e7 20 43 4f 44 45  3e 31 32 32 20 80 20 4e  |. . CODE>122 . N|
00000760  3d 31 20 8c 20 e5 20 8d  74 46 41 0d 01 5e 1f 20  |=1 . . .tFA..^. |
00000770  e7 20 43 4f 44 45 3e 31  32 32 20 80 20 4e 3d 2d  |. CODE>122 . N=-|
00000780  31 20 8c 20 e5 20 8d 74  46 41 0d 01 68 20 20 e7  |1 . . .tFA..h  .|
00000790  20 43 4f 44 45 3d 31 32  32 20 80 20 4e 3d 2d 31  | CODE=122 . N=-1|
000007a0  20 8c 20 43 4f 44 45 3d  39 36 0d 01 72 1f 20 e7  | . CODE=96..r. .|
000007b0  20 43 4f 44 45 3d 39 30  20 80 20 4e 3d 2d 31 20  | CODE=90 . N=-1 |
000007c0  8c 20 43 4f 44 45 3d 36  34 0d 01 7c 10 20 43 4f  |. CODE=64..|. CO|
000007d0  44 45 3d 43 4f 44 45 2d  4e 0d 01 86 0f 20 f1 20  |DE=CODE-N.... . |
000007e0  bd 28 43 4f 44 45 29 3b  0d 01 90 13 20 f1 23 66  |.(CODE);.... .#f|
000007f0  69 6c 65 2c bd 28 43 4f  44 45 29 0d 01 9a 0b 20  |ile,.(CODE).... |
00000800  e5 20 8d 64 70 40 0d 01  9f 06 20 e0 0d 01 a4 0c  |. .dp@.... .....|
00000810  20 dd f2 65 72 72 6f 72  0d 01 ae 06 20 db 0d 01  | ..error.... ...|
00000820  b8 63 20 f1 27 22 2a 2a  2a 20 45 52 52 4f 52 20  |.c .'"*** ERROR |
00000830  4c 45 54 27 53 20 53 54  41 52 54 20 41 47 41 49  |LET'S START AGAI|
00000840  4e 20 2a 2a 2a 22 27 27  22 54 4f 20 55 53 45 20  |N ***"''"TO USE |
00000850  54 48 45 20 44 45 43 4f  44 45 52 20 50 52 45 53  |THE DECODER PRES|
00000860  53 20 31 22 27 22 54 4f  20 55 53 45 20 54 48 45  |S 1"'"TO USE THE|
00000870  20 45 4e 43 4f 44 45 52  20 50 52 45 53 53 20 30  | ENCODER PRESS 0|
00000880  22 0d 01 c2 0b 20 e5 20  8d 44 64 40 0d 01 cc 06  |".... . .Dd@....|
00000890  20 e1 0d ff                                       | ...|
00000894

PROGS/CODER.m0

PROGS/CODER.m1

PROGS/CODER.m2

PROGS/CODER.m4

PROGS/CODER.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .