1 A$="Do not edit this line! It must be exactly this length for the program to work                     "
2 IFA$=""THEN10ELSEPRINT" One moment please"
3 A=PEEK(16548):B=PEEK(16549):B=B-(A+8>255):A=A+8+256*(A+8>255):POKE16758,195:POKE16759,A:POKE16760,B:B=B-(A+100>255):A=A+100+256*(A+100>255):POKE16548,A:POKE16549,B
4 D=VARPTR(A$)+1:E=PEEK(D)+PEEK(D+1)*256
5 FORY=0TO80:READF:POKEE+Y,F:NEXTY:DATA 215,229,22,15,33,68,64,1,188,1,24,28,62,64,189,40,46,4,46,70,62,186,185,40,15,45,214,2,185,40,7,13,45,45,4,4,24,0,22,3,237,120,13,162,22,15,7,119,7,7,134,119,237,120,162,13,134,119,43,16,235,24
6 DATA 205,62,17,205,87,40,235,205,112,68,54,32,35,205,109,68,195,132,40
7 IFPEEK(262)<>69THENFORY=0TO71:READF:POKEE+Y,F:NEXTY
8 DATA 215,229,62,56,211,236,33,26,66,1,188,1,22,15,24,33,62,22,189,32,5,225,43,195,48,48,4,46,28,62,186,185,40,15,45,214,2,185,40,7,13,45,45,4,4,24,0,22,3,237,120,13,162,22,15,7,119,7,7,134,119,237,120,162,13,134,119,43,16,235,24,200
10 REM TSTRING      Alpha Products Co. Software Division
