Home » Archimedes archive » Acorn User » AU 1995-04.adf » !Internet_StarterPak » !DemConfig/Blanks/TTFNconfig
!DemConfig/Blanks/TTFNconfig
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 » Archimedes archive » Acorn User » AU 1995-04.adf » !Internet_StarterPak |
| Filename: | !DemConfig/Blanks/TTFNconfig |
| Read OK: | ✔ |
| File size: | 02EE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM BASIC text file to create TTFN Config file
20
30 user$="{userid}"
40 org$="{org}"
50
60 DIM c 268
61 FOR i=0 TO 267: c?i=0: NEXT
70 PROCt(c,org$)
80 PROCt(c+80,user$)
90 SYS "Territory_ReadCurrentTimeZone" TO ,csec%
100 c!100=csec% DIV 360000
110 c!108=10 :REM 9+sigtype
120 c!112=1 :REM NOT quote sigs
130 c!116=1 :REM NOT tagline
140 PROCt(c+120,"> ")
150 PROCt(c+125,"-- ")
160 PROCt(c+137,"In message %m %r wrote:")
170 c!192=10 :REM fg
180 c!196=7 :REM bg
190 c!200=80 :REM width
200 c!204=0 :REM NOT threaded
210 c!208=0 :REM show headers
220 PROCt(c+212,"In message %m you wrote:")
230
240 SYS "OS_File",10,"{dest}",&FFD,,c,c+268
250 END
260 REM Put zero-terminated text field
270 DEFPROCt(p,t$):$p=t$:?(p+LENt$)=0:ENDPROC
00000000 31 30 20 52 45 4d 20 42 41 53 49 43 20 74 65 78 |10 REM BASIC tex|
00000010 74 20 66 69 6c 65 20 74 6f 20 63 72 65 61 74 65 |t file to create|
00000020 20 54 54 46 4e 20 43 6f 6e 66 69 67 20 66 69 6c | TTFN Config fil|
00000030 65 0a 32 30 0a 33 30 20 75 73 65 72 24 3d 22 7b |e.20.30 user$="{|
00000040 75 73 65 72 69 64 7d 22 0a 34 30 20 6f 72 67 24 |userid}".40 org$|
00000050 3d 22 7b 6f 72 67 7d 22 0a 35 30 0a 36 30 20 44 |="{org}".50.60 D|
00000060 49 4d 20 63 20 32 36 38 0a 36 31 20 46 4f 52 20 |IM c 268.61 FOR |
00000070 69 3d 30 20 54 4f 20 32 36 37 3a 20 63 3f 69 3d |i=0 TO 267: c?i=|
00000080 30 3a 20 4e 45 58 54 0a 37 30 20 50 52 4f 43 74 |0: NEXT.70 PROCt|
00000090 28 63 2c 6f 72 67 24 29 0a 38 30 20 50 52 4f 43 |(c,org$).80 PROC|
000000a0 74 28 63 2b 38 30 2c 75 73 65 72 24 29 0a 39 30 |t(c+80,user$).90|
000000b0 20 53 59 53 20 22 54 65 72 72 69 74 6f 72 79 5f | SYS "Territory_|
000000c0 52 65 61 64 43 75 72 72 65 6e 74 54 69 6d 65 5a |ReadCurrentTimeZ|
000000d0 6f 6e 65 22 20 54 4f 20 2c 63 73 65 63 25 0a 31 |one" TO ,csec%.1|
000000e0 30 30 20 63 21 31 30 30 3d 63 73 65 63 25 20 44 |00 c!100=csec% D|
000000f0 49 56 20 33 36 30 30 30 30 0a 31 31 30 20 63 21 |IV 360000.110 c!|
00000100 31 30 38 3d 31 30 20 20 3a 52 45 4d 20 39 2b 73 |108=10 :REM 9+s|
00000110 69 67 74 79 70 65 0a 31 32 30 20 63 21 31 31 32 |igtype.120 c!112|
00000120 3d 31 20 20 20 3a 52 45 4d 20 4e 4f 54 20 71 75 |=1 :REM NOT qu|
00000130 6f 74 65 20 73 69 67 73 0a 31 33 30 20 63 21 31 |ote sigs.130 c!1|
00000140 31 36 3d 31 20 20 20 3a 52 45 4d 20 4e 4f 54 20 |16=1 :REM NOT |
00000150 74 61 67 6c 69 6e 65 0a 31 34 30 20 50 52 4f 43 |tagline.140 PROC|
00000160 74 28 63 2b 31 32 30 2c 22 3e 20 22 29 0a 31 35 |t(c+120,"> ").15|
00000170 30 20 50 52 4f 43 74 28 63 2b 31 32 35 2c 22 2d |0 PROCt(c+125,"-|
00000180 2d 20 22 29 0a 31 36 30 20 50 52 4f 43 74 28 63 |- ").160 PROCt(c|
00000190 2b 31 33 37 2c 22 49 6e 20 6d 65 73 73 61 67 65 |+137,"In message|
000001a0 20 25 6d 20 25 72 20 77 72 6f 74 65 3a 22 29 0a | %m %r wrote:").|
000001b0 31 37 30 20 63 21 31 39 32 3d 31 30 20 20 3a 52 |170 c!192=10 :R|
000001c0 45 4d 20 66 67 0a 31 38 30 20 63 21 31 39 36 3d |EM fg.180 c!196=|
000001d0 37 20 20 20 3a 52 45 4d 20 62 67 0a 31 39 30 20 |7 :REM bg.190 |
000001e0 63 21 32 30 30 3d 38 30 20 20 3a 52 45 4d 20 77 |c!200=80 :REM w|
000001f0 69 64 74 68 0a 32 30 30 20 63 21 32 30 34 3d 30 |idth.200 c!204=0|
00000200 20 20 20 3a 52 45 4d 20 4e 4f 54 20 74 68 72 65 | :REM NOT thre|
00000210 61 64 65 64 0a 32 31 30 20 63 21 32 30 38 3d 30 |aded.210 c!208=0|
00000220 20 20 20 3a 52 45 4d 20 73 68 6f 77 20 68 65 61 | :REM show hea|
00000230 64 65 72 73 0a 32 32 30 20 50 52 4f 43 74 28 63 |ders.220 PROCt(c|
00000240 2b 32 31 32 2c 22 49 6e 20 6d 65 73 73 61 67 65 |+212,"In message|
00000250 20 25 6d 20 79 6f 75 20 77 72 6f 74 65 3a 22 29 | %m you wrote:")|
00000260 0a 32 33 30 0a 32 34 30 20 53 59 53 20 22 4f 53 |.230.240 SYS "OS|
00000270 5f 46 69 6c 65 22 2c 31 30 2c 22 7b 64 65 73 74 |_File",10,"{dest|
00000280 7d 22 2c 26 46 46 44 2c 2c 63 2c 63 2b 32 36 38 |}",&FFD,,c,c+268|
00000290 0a 32 35 30 20 45 4e 44 0a 32 36 30 20 52 45 4d |.250 END.260 REM|
000002a0 20 50 75 74 20 7a 65 72 6f 2d 74 65 72 6d 69 6e | Put zero-termin|
000002b0 61 74 65 64 20 74 65 78 74 20 66 69 65 6c 64 0a |ated text field.|
000002c0 32 37 30 20 44 45 46 50 52 4f 43 74 28 70 2c 74 |270 DEFPROCt(p,t|
000002d0 24 29 3a 24 70 3d 74 24 3a 3f 28 70 2b 4c 45 4e |$):$p=t$:?(p+LEN|
000002e0 74 24 29 3d 30 3a 45 4e 44 50 52 4f 43 0a |t$)=0:ENDPROC.|
000002ee 
.