ADDITIONS

FILE INFORMATION

FILENAME(S): ADDITIONS

FILE TYPE(S): SEQ

FILE SIZE: 1.9K

FIRST SEEN: 2025-12-01 19:06:43

APPEARS ON: 1 disk(s)

FILE HASH

5d1fefec5efa7d0e7d83ca1cd9a38188bd1b0a895b97980151f472744392fc05

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
ICE	ADDITIONS	SEQ	Icebreaker	23	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D4 48 45 20 C6 4F 4C 4C  4F 57 49 4E 47 20 49 53  |.HE .OLLOWING IS|
00000010: 20 41 20 4C 49 53 54 20  4F 46 20 4C 49 4E 45 20  | A LIST OF LINE |
00000020: 57 49 54 48 20 54 48 45  20 43 42 41 53 45 20 53  |WITH THE CBASE S|
00000030: 4F 55 52 43 45 20 43 4F  44 45 20 57 48 49 43 48  |OURCE CODE WHICH|
00000040: 20 CD D5 D3 D4 20 42 45  20 43 48 41 4E 47 45 44  | .... BE CHANGED|
00000050: 20 49 4E 20 4F 52 44 45  52 20 46 4F 52 20 54 48  | IN ORDER FOR TH|
00000060: 45 20 CE 45 54 57 4F 52  4B 20 54 4F 20 57 4F 52  |E .ETWORK TO WOR|
00000070: 4B 2E 2E 0D C1 4C 54 48  4F 55 47 48 54 20 54 48  |K....LTHOUGHT TH|
00000080: 45 20 4C 49 53 54 49 4E  47 20 4C 4F 4F 4B 53 20  |E LISTING LOOKS |
00000090: 4C 4F 4E 47 2C 20 54 48  45 20 41 44 44 49 54 49  |LONG, THE ADDITI|
000000A0: 4F 4E 53 20 41 52 45 20  41 43 54 55 41 4C 4C 59  |ONS ARE ACTUALLY|
000000B0: 20 4D 49 4E 49 4D 41 4C  2E 20 CD 4F 53 54 20 4F  | MINIMAL. .OST O|
000000C0: 46 20 54 48 45 20 4C 49  4E 45 53 20 41 52 45 20  |F THE LINES ARE |
000000D0: 41 4C 52 45 41 44 59 20  54 48 45 52 45 20 41 4E  |ALREADY THERE AN|
000000E0: 44 20 4A 55 53 54 20 50  52 4F 47 52 41 4D 4D 45  |D JUST PROGRAMME|
000000F0: 44 20 49 4E 43 4F 52 52  45 43 54 4C 59 2E 2E 20  |D INCORRECTLY.. |
00000100: C9 46 20 59 4F 55 20 4E  4F 54 49 43 45 20 41 20  |.F YOU NOTICE A |
00000110: 4C 49 4E 45 20 54 48 41  54 20 49 53 20 41 4C 52  |LINE THAT IS ALR|
00000120: 45 41 44 59 20 54 48 45  52 45 2C 20 44 4F 4E 27  |EADY THERE, DON'|
00000130: 54 20 57 4F 52 52 59 2E  20 D2 45 50 4C 41 43 45  |T WORRY. .EPLACE|
00000140: 20 49 54 20 57 49 54 48  20 54 48 45 20 4E 45 57  | IT WITH THE NEW|
00000150: 20 4C 49 4E 45 2E 2E 2E  2E 0D 0D 33 31 31 20 49  | LINE......311 I|
00000160: 46 4E 49 24 3C 3E 22 22  54 48 45 4E 52 45 54 55  |FNI$<>""THENRETU|
00000170: 52 4E 0D 33 31 32 20 4F  24 3D 22 4E 57 49 44 22  |RN.312 O$="NWID"|
00000180: 3A 42 3D 31 3A 47 4F 53  55 42 35 30 3A 49 4E 50  |:B=1:GOSUB50:INP|
00000190: 55 54 23 38 2C 4E 49 24  3A 49 4E 50 55 54 23 38  |UT#8,NI$:INPUT#8|
000001A0: 2C 4E 32 24 3A 47 4F 54  4F 32 0D 33 31 33 20 49  |,N2$:GOTO2.313 I|
000001B0: 4E 24 3D 22 22 3A 43 3D  35 33 32 34 36 2D 50 45  |N$="":C=53246-PE|
000001C0: 45 4B 28 38 35 36 29 3A  42 3D 4C 45 4E 28 53 54  |EK(856):B=LEN(ST|
000001D0: 52 24 28 46 55 29 29 3A  49 46 50 45 45 4B 28 35  |R$(FU)):IFPEEK(5|
000001E0: 32 39 39 32 2B 42 29 3C  3E 39 34 54 48 45 4E 52  |2992+B)<>94THENR|
000001F0: 45 54 55 52 4E 0D 33 31  34 20 46 4F 52 49 3D 30  |ETURN.314 FORI=0|
00000200: 54 4F 50 45 45 4B 28 38  35 36 29 3A 41 3D 50 45  |TOPEEK(856):A=PE|
00000210: 45 4B 28 35 32 39 39 32  2B 49 29 3A 49 46 41 3D  |EK(52992+I):IFA=|
00000220: 36 34 41 4E 44 49 3C 50  45 45 4B 28 38 35 36 29  |64ANDI<PEEK(856)|
00000230: 54 48 45 4E 41 3D 31 33  3A 50 4F 4B 45 38 35 36  |THENA=13:POKE856|
00000240: 2C 49 2B 31 0D 33 31 35  20 50 4F 4B 45 43 2B 49  |,I+1.315 POKEC+I|
00000250: 2C 41 3A 50 4F 4B 45 35  32 39 39 32 2B 49 2C 41  |,A:POKE52992+I,A|
00000260: 3A 4E 45 58 54 3A 50 4F  4B 45 43 2B 49 2D 31 2C  |:NEXT:POKEC+I-1,|
00000270: 31 33 3A 50 4F 4B 45 43  2B 49 2C 31 33 0D 33 31  |13:POKEC+I,13.31|
00000280: 36 20 43 3D 43 2B 42 2B  31 3A 47 4F 53 55 42 33  |6 C=C+B+1:GOSUB3|
00000290: 3A 49 4E 24 3D 52 49 47  48 54 24 28 49 24 2C 4C  |:IN$=RIGHT$(I$,L|
000002A0: 45 4E 28 49 24 29 2D 42  29 3A 52 45 54 55 52 4E  |EN(I$)-B):RETURN|
000002B0: 0D 0D 32 33 35 35 20 50  24 3D 22 43 2F 4E 45 54  |..2355 P$="C/NET|
000002C0: 57 4F 52 4B 22 3A 41 3D  50 45 45 4B 28 39 38 31  |WORK":A=PEEK(981|
000002D0: 29 3A 47 4F 54 4F 33 32  37 31 0D 32 35 39 30 20  |):GOTO3271.2590 |
000002E0: 49 24 3D 51 35 24 3A 47  4F 53 55 42 33 32 3A 4F  |I$=Q5$:GOSUB32:O|
000002F0: 50 45 4E 38 2C 50 45 45  4B 28 39 34 39 29 2C 31  |PEN8,PEEK(949),1|
00000300: 2C 59 24 2B 49 24 2B 22  2C 50 2C 52 22 0D 0D 34  |,Y$+I$+",P,R"..4|
00000310: 36 36 30 20 49 24 3D 22  22 3A 49 46 4C 45 46 54  |660 I$="":IFLEFT|
00000320: 24 28 53 55 24 28 56 49  29 2C 32 29 3D 22 12 D2  |$(SU$(VI),2)="..|
00000330: D2 92 22 54 48 45 4E 47  4F 53 55 42 33 31 31 3A  |.."THENGOSUB311:|
00000340: 49 24 3D 4E 49 24 2B 22  40 22 2B 4E 32 24 0D 34  |I$=NI$+"@"+N2$.4|
00000350: 36 36 31 20 41 3D 5A 25  28 56 49 29 2B 31 3A 49  |661 A=Z%(VI)+1:I|
00000360: 46 41 3D 31 54 C8 4F 24  3D 22 32 3A 22 2B 53 55  |FA=1T.O$="2:"+SU|
00000370: 24 2B 22 20 4D 20 30 22  3A 45 4E 24 3D 22 2C 53  |$+" M 0":EN$=",S|
00000380: 2C 57 22 3A 42 3D 32 3A  47 4F D3 35 30 3A 50 52  |,W":B=2:GO.50:PR|
00000390: 49 4E 54 23 38 2C 43 48  52 24 28 32 35 35 29 0D  |INT#8,CHR$(255).|
000003A0: CE CF D4 C5 3A 20 54 59  50 45 20 49 4E 20 54 48  |....: TYPE IN TH|
000003B0: 45 20 C3 48 41 52 41 43  54 45 52 53 20 C5 58 41  |E .HARACTERS .XA|
000003C0: 43 54 4C 59 20 41 53 20  53 48 4F 57 4E 20 42 45  |CTLY AS SHOWN BE|
000003D0: 43 41 55 53 45 20 54 48  49 53 20 4C 49 4E 45 20  |CAUSE THIS LINE |
000003E0: 55 53 45 53 20 C1 42 52  45 56 49 41 54 45 44 20  |USES .BREVIATED |
000003F0: 43 4F 4D 4D 41 4E 44 53  2E 2E 20 28 54 C8 3D 54  |COMMANDS.. (T.=T|
00000400: 48 45 4E 20 47 4F D3 3D  47 4F 53 55 42 29 0D 0D  |HEN GO.=GOSUB)..|
00000410: 35 30 37 32 20 41 3D 31  0D 35 30 37 33 20 49 46  |5072 A=1.5073 IF|
00000420: 4D 49 44 24 28 49 24 2C  41 2C 31 29 3D 22 5E 22  |MID$(I$,A,1)="^"|
00000430: 54 48 45 4E 49 4E 24 3D  4D 49 44 24 28 49 24 2C  |THENIN$=MID$(I$,|
00000440: 41 29 3A 47 4F 54 4F 35  30 39 30 0D 35 30 37 34  |A):GOTO5090.5074|
00000450: 20 49 46 41 3D 4C 45 4E  28 49 24 29 54 48 45 4E  | IFA=LEN(I$)THEN|
00000460: 35 30 37 36 0D 35 30 37  35 20 41 3D 41 2B 31 3A  |5076.5075 A=A+1:|
00000470: 47 4F 54 4F 35 30 37 33  0D 35 30 37 36 20 49 46  |GOTO5073.5076 IF|
00000480: 46 55 3C 3E 30 54 48 45  4E 35 30 39 30 0D 35 30  |FU<>0THEN5090.50|
00000490: 38 30 20 47 4F 53 55 42  33 39 33 30 3A 5A 41 24  |80 GOSUB3930:ZA$|
000004A0: 3D 49 24 3A 47 4F 53 55  42 33 38 39 30 3A 47 4F  |=I$:GOSUB3890:GO|
000004B0: 53 55 42 32 3A 46 55 3D  49 44 0D 35 30 39 30 20  |SUB2:FU=ID.5090 |
000004C0: 49 46 28 46 55 3C 31 4F  52 46 55 3E 4E 55 25 29  |IF(FU<1ORFU>NU%)|
000004D0: 41 4E 44 49 4E 24 3D 22  22 54 48 45 4E 31 34 0D  |ANDIN$=""THEN14.|
000004E0: 35 30 39 31 20 49 46 46  55 3D 30 54 48 45 4E 52  |5091 IFFU=0THENR|
000004F0: 45 54 55 52 4E 0D 35 30  39 33 20 49 46 49 4E 24  |ETURN.5093 IFIN$|
00000500: 3D 22 22 54 48 45 4E 35  30 39 30 0D 35 30 39 34  |=""THEN5090.5094|
00000510: 20 4F 24 3D 22 4E 57 49  44 22 3A 42 3D 31 3A 47  | O$="NWID":B=1:G|
00000520: 4F 53 55 42 35 30 3A 49  4E 50 55 54 23 38 2C 4E  |OSUB50:INPUT#8,N|
00000530: 49 3A 49 4E 50 55 54 23  38 2C 4E 32 24 3A 49 46  |I:INPUT#8,N2$:IF|
00000540: 4E 49 24 3D 49 4E 24 54  C8 49 4E 24 3D 22 22 3A  |NI$=IN$T.IN$="":|
00000550: 47 4F 54 4F 35 30 39 38  0D 35 30 39 35 20 47 4F  |GOTO5098.5095 GO|
00000560: 53 55 42 33 31 3A 49 46  49 24 3D 49 4E 24 54 48  |SUB31:IFI$=IN$TH|
00000570: 45 4E 35 30 39 38 0D 35  30 39 36 20 49 46 53 54  |EN5098.5096 IFST|
00000580: 3D 30 54 48 45 4E 35 30  39 35 0D 35 30 39 37 20  |=0THEN5095.5097 |
00000590: 49 4E 24 3D 22 22 3A 47  4F 54 4F 32 0D 35 30 39  |IN$="":GOTO2.509|
000005A0: 38 20 47 4F 53 55 42 32  0D 35 30 39 39 20 49 46  |8 GOSUB2.5099 IF|
000005B0: 49 4E 24 3C 3E 22 22 54  48 45 4E 35 31 31 30 0D  |IN$<>""THEN5110.|
000005C0: 0D 35 31 32 30 20 50 4F  4B 45 39 39 37 2C 32 38  |.5120 POKE997,28|
000005D0: 3A 53 59 53 35 31 30 34  38 3A 55 38 3D 55 38 2B  |:SYS51048:U8=U8+|
000005E0: 31 3A 49 46 49 4E 24 3C  3E 22 22 54 48 45 4E 4F  |1:IFIN$<>""THENO|
000005F0: 24 3D 22 33 3A 4D 41 49  4C 2D 22 2B 49 4E 24 3A  |$="3:MAIL-"+IN$:|
00000600: 47 4F 54 4F 35 31 34 33  0D 0D 35 31 34 33 20 47  |GOTO5143..5143 G|
00000610: 4F 53 55 42 35 30 3A 49  24 3D 22 22 3A 49 46 49  |OSUB50:I$="":IFI|
00000620: 4E 24 3C 3E 22 22 54 48  45 4E 49 24 3D 22 2A 22  |N$<>""THENI$="*"|
00000630: 2B 53 54 52 24 28 46 55  29 2B 22 2A 22 2B 4E 49  |+STR$(FU)+"*"+NI|
00000640: 24 2B 22 40 22 2B 4E 32  24 3A 47 4F 53 55 42 34  |$+"@"+N2$:GOSUB4|
00000650: 37 30 30 3A 47 CF 32 0D  0D 36 37 31 30 20 49 4E  |700:G.2..6710 IN|
00000660: 24 3D 22 22 3A 4C 46 25  3D 30 3A 50 54 3D 30 2E  |$="":LF%=0:PT=0.|
00000670: 2E 2E 2E 28 45 54 43 2E  2E 29 0D 0D 37 39 32 30  |...(ETC..)..7920|
00000680: 20 49 46 52 4D 25 3D 31  32 38 54 48 45 4E 50 4F  | IFRM%=128THENPO|
00000690: 4B 45 39 30 36 2C 32 3A  47 4F 54 4F 32 33 35 35  |KE906,2:GOTO2355|
000006A0: 0D 0D 34 33 39 36 20 49  46 49 4E 24 3C 3E 22 22  |..4396 IFIN$<>""|
000006B0: 54 48 45 4E 4A 4C 3D 43  3A 47 4F 53 55 42 31 31  |THENJL=C:GOSUB11|
000006C0: 34 3A 4A 4C 3D 4A 4C 2D  31 3A 47 4F 53 55 42 31  |4:JL=JL-1:GOSUB1|
000006D0: 31 34 3A 50 4F 4B 45 39  39 37 2C 31 31 39 3A 53  |14:POKE997,119:S|
000006E0: 59 53 35 31 30 34 38 0D  0D 34 35 38 35 20 44 47  |YS51048..4585 DG|
000006F0: 25 3D 47 44 25 3A 49 46  4C 45 46 54 24 28 53 55  |%=GD%:IFLEFT$(SU|
00000700: 24 28 55 29 2C 32 29 3D  22 12 D2 D2 92 22 54 48  |$(U),2)="...."TH|
00000710: 45 4E 44 47 25 3D 31 0D  0D 20 20 20 20 20 20 20  |ENDG%=1..       |
00000720: 20 20 20 99 CC 49 53 54  49 4E 47 20 C3 4F 55 52  |   ..ISTING .OUR|
00000730: 54 45 53 59 20 CF 46 0D  0D 20 20 20 20 20 20 20  |TESY .F..       |
00000740: 20 20 20 20 20 20 97 C9  4E 54 4F 20 98 D4 48 45  |      ..NTO ..HE|
00000750: 20 1C C6 C9 D2 C5 0D 0D  20 20 20 20 20 20 20 20  | .......        |
00000760: 20 20 9C 31 20 2F 20 36  4F 32 20 2F 20 34 39 37  |  .1 / 6O2 / 497|
00000770: 20 2F 20 4F 32 37 32 21  0D                       | / O272!.       |

THE FOLLOWING IS A LIST OF LINE WITH THE
 CBASE SOURCE CODE WHICH MUST BE CHANGED
 IN ORDER FOR THE NETWORK TO WORK...ALTH
OUGHT THE LISTING LOOKS LONG, THE ADDITI
ONS ARE ACTUALLY MINIMAL. MOST OF THE LI
NES ARE ALREADY THERE AND JUST PROGRAMME
D INCORRECTLY.. IF YOU NOTICE A LINE THA
T IS ALREADY THERE, DON'T WORRY. REPLACE
 IT WITH THE NEW LINE......311 IFNI$<>""
THENRETURN.312 O$="NWID":B=1:GOSUB50:INP
UT#8,NI$:INPUT#8,N2$:GOTO2.313 IN$="":C=
53246-PEEK(856):B=LEN(STR$(FU)):IFPEEK(5
2992+B)<>94THENRETURN.314 FORI=0TOPEEK(8
56):A=PEEK(52992+I):IFA=64ANDI<PEEK(856)
THENA=13:POKE856,I+1.315 POKEC+I,A:POKE5
2992+I,A:NEXT:POKEC+I-1,13:POKEC+I,13.31
6 C=C+B+1:GOSUB3:IN$=RIGHT$(I$,LEN(I$)-B
):RETURN..2355 P$="C/NETWORK":A=PEEK(981
):GOTO3271.2590 I$=Q5$:GOSUB32:OPEN8,PEE
K(949),1,Y$+I$+",P,R"..4660 I$="":IFLEFT
$(SU$(VI),2)=".RR."THENGOSUB311:I$=NI$+"
@"+N2$.4661 A=Z%(VI)+1:IFA=1THO$="2:"+SU
$+" M 0":EN$=",S,W":B=2:GOS50:PRINT#8,CH
R$(255).NOTE: TYPE IN THE CHARACTERS EXA
CTLY AS SHOWN BECAUSE THIS LINE USES ABR
EVIATED COMMANDS.. (TH=THEN GOS=GOSUB)..
5072 A=1.5073 IFMID$(I$,A,1)="^"THENIN$=
MID$(I$,A):GOTO5090.5074 IFA=LEN(I$)THEN
5076.5075 A=A+1:GOTO5073.5076 IFFU<>0THE
N5090.5080 GOSUB3930:ZA$=I$:GOSUB3890:GO
SUB2:FU=ID.5090 IF(FU<1ORFU>NU%)ANDIN$="
"THEN14.5091 IFFU=0THENRETURN.5093 IFIN$
=""THEN5090.5094 O$="NWID":B=1:GOSUB50:I
NPUT#8,NI:INPUT#8,N2$:IFNI$=IN$THIN$="":
GOTO5098.5095 GOSUB31:IFI$=IN$THEN5098.5
096 IFST=0THEN5095.5097 IN$="":GOTO2.509
8 GOSUB2.5099 IFIN$<>""THEN5110..5120 PO
KE997,28:SYS51048:U8=U8+1:IFIN$<>""THENO
$="3:MAIL-"+IN$:GOTO5143..5143 GOSUB50:I
$="":IFIN$<>""THENI$="*"+STR$(FU)+"*"+NI
$+"@"+N2$:GOSUB4700:GO2..6710 IN$="":LF%
=0:PT=0....(ETC..)..7920 IFRM%=128THENPO
KE906,2:GOTO2355..4396 IFIN$<>""THENJL=C
:GOSUB114:JL=JL-1:GOSUB114:POKE997,119:S
YS51048..4585 DG%=GD%:IFLEFT$(SU$(U),2)=
".RR."THENDG%=1..          .LISTING COUR
TESY OF..             .INTO .THE .FIRE..
          .1 / 6O2 / 497 / O272!.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL