10 POKE52,32:POKE56,32:OPEN5,2,3,CHR$(6):ZT=0
20 RT$=CHR$(13):ID$="70007,1051":PA$="CONSUMER1":OF$="OFF":MT=16380:MB=8193
30 POKE36879,110:PRINTCHR$(142)"[147][158]                   [146]"RT$"    VIC TERM PRINT [146]
40 [153]"                   WAIT"RT$"          BY"RT$"   JOSEPH L. BROWN
60 PRINT"DO YOU WANT TO STORE"RT$"RECEIVED DATA?"RT$"    Y[146]ES OR N[146]O"
70 GETMS$:IFMS$=""THEN70
80 IFMS$="N"THEN110
90 IFMS$<>"Y"THEN70
100 DA=MB:OPEN4,4,7:PRINT#4,RT$RT$:ZT=1
110 PRINT"[147]SETTING UP"
120 DIMF%(255),T%(255):FORJ=32TO64:T%(J)=J:NEXT
130 T%(13)=13:T%(20)=28:RV=18:CT=0
140 FORJ=64TO90:T%(J)=J+32:NEXT
150 FORJ=91TO95:T%(J)=J:NEXT
160 FORJ=193TO218:T%(J)=J-128:NEXT
170 T%(133)=3:T%(134)=19:T%(135)=17:T%(136)=27
180 FORJ=0TO255:K=T%(J)
190 IFK<>0THENF%(K)=J:F%(K+128)=J
195 NEXT
200 PRINT"[147]FUNCTIONS:"RT$"F1 = CTRL C"RT$"F2 = YOUR USER ID"RT$"F3 = CTRL S
210 [153]"F4 = YOUR PASSWORD"RT$"F5 = CTRL Q"RT$"F6 = LOGOFF"RT$"F7 = <ESCAPE>"
220 [153]"PRESS ANY KEYONON":[161]A$:[139]A$[178]""[167]220
230 [153]"LOAD    TERMINAL OPEN"RT$"    VIC TO ASCII"[199](14)
240 [161]#5,A$:[139]A$[178]""[176]ST[179][177]0[167]290
250 A[178][198](A$[170][199](0)):[139]MS$[178]"Y"[167][151]DA,A:DA[178]DA[170]1
255 [139]DA[178]MT[167]365
260 [153]" "[199](157)[199](F%(A));
270 [139]F%(A)[178]34[167][151]212,0
280 [137]240
290 [153][199](RV)" "[199](157)[199](146);:[161]A$:A[178][198](A$[170][199](0))
295 [139]A[178]137[167][152]5,ID$:[137]240
300 [139]A[178]138[167][152]5,PA$:[137]240
310 [139]A[178]139[167][152]5,OF$:[137]240
320 [139]A[178]140[167]440
330 [139]A[179][177]0[167][152]5,[199](T%(A));
340 CT[178]CT[170]1
350 [139]CT[178]6[167]CT[178]0:RV[178]164[171]RV
360 [137]240
365 M$[178]"N"
366 [152]5,[199](19);
367 R[181]"***PEEKUFFER ASCULL***"
369 [137] 440
380 [153]"LOAD   PRINTING MEMORY":[129]PT[178]MB[164]DA
385 [139] ZT[178]1[167]390:[159]4,4,7:[152]4:RT$:RT$
390 [152]4,[199](F%([194](PT)));:[130]:[152]4,RT$RT$:DA[178]MB:MS$[178]Y
400 [153]"LOADWHAT IS THE FILE NAME":[133]A$:[159]1,1,1,A$
410 [129]PT[178]MB[164]DA
420 [152]1,[199](F%([194](PT)));:[130]:[152]1,[199](92):[152]1,[199](92)
430 [153]"LOADCLOSING TAPE FILE":[160]1:DA[178]MB:MS$[178]Y
440 [153][199](142)[199](147)
470 [153]"OPTIONS ARE:"
480 [153]"1. TERMINAL EMULATOR
490 PRINT"2. PRINT FROM MEMORY"RT$"3. RECORD FROM MEMORY"RT$"4. END
500 [153]"YOUR CHOICE: "
510 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]510
520 [145][197](A$)[137]200,380,400
530 [160]2:[153]"LOAD  TERMINAL CLOSED":[128]