home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_13_(11-1984).d64 / victerm.print (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  58 lines
  1. 10 POKE52,32:POKE56,32:OPEN5,2,3,CHR$(6):ZT=0
  2. 20 RT$=CHR$(13):ID$="70007,1051":PA$="CONSUMER1":OF$="OFF":MT=16380:MB=8193
  3. 30 POKE36879,110:PRINTCHR$(142)"[147][158]                   [146]"RT$"    VIC TERM PRINT [146]
  4. 40 [153]"                   WAIT"RT$"          BY"RT$"   JOSEPH L. BROWN
  5. 60 PRINT"DO YOU WANT TO STORE"RT$"RECEIVED DATA?"RT$"    Y[146]ES OR N[146]O"
  6. 70 GETMS$:IFMS$=""THEN70
  7. 80 IFMS$="N"THEN110
  8. 90 IFMS$<>"Y"THEN70
  9. 100 DA=MB:OPEN4,4,7:PRINT#4,RT$RT$:ZT=1
  10. 110 PRINT"[147]SETTING UP"
  11. 120 DIMF%(255),T%(255):FORJ=32TO64:T%(J)=J:NEXT
  12. 130 T%(13)=13:T%(20)=28:RV=18:CT=0
  13. 140 FORJ=64TO90:T%(J)=J+32:NEXT
  14. 150 FORJ=91TO95:T%(J)=J:NEXT
  15. 160 FORJ=193TO218:T%(J)=J-128:NEXT
  16. 170 T%(133)=3:T%(134)=19:T%(135)=17:T%(136)=27
  17. 180 FORJ=0TO255:K=T%(J)
  18. 190 IFK<>0THENF%(K)=J:F%(K+128)=J
  19. 195 NEXT
  20. 200 PRINT"[147]FUNCTIONS:"RT$"F1 = CTRL C"RT$"F2 = YOUR USER ID"RT$"F3 = CTRL S
  21. 210 [153]"F4 = YOUR PASSWORD"RT$"F5 = CTRL Q"RT$"F6 = LOGOFF"RT$"F7 = <ESCAPE>"
  22. 220 [153]"PRESS ANY KEYONON":[161]A$:[139]A$[178]""[167]220
  23. 230 [153]"LOAD    TERMINAL OPEN"RT$"    VIC TO ASCII"[199](14)
  24. 240 [161]#5,A$:[139]A$[178]""[176]ST[179][177]0[167]290
  25. 250 A[178][198](A$[170][199](0)):[139]MS$[178]"Y"[167][151]DA,A:DA[178]DA[170]1
  26. 255 [139]DA[178]MT[167]365
  27. 260 [153]" "[199](157)[199](F%(A));
  28. 270 [139]F%(A)[178]34[167][151]212,0
  29. 280 [137]240
  30. 290 [153][199](RV)" "[199](157)[199](146);:[161]A$:A[178][198](A$[170][199](0))
  31. 295 [139]A[178]137[167][152]5,ID$:[137]240
  32. 300 [139]A[178]138[167][152]5,PA$:[137]240
  33. 310 [139]A[178]139[167][152]5,OF$:[137]240
  34. 320 [139]A[178]140[167]440
  35. 330 [139]A[179][177]0[167][152]5,[199](T%(A));
  36. 340 CT[178]CT[170]1
  37. 350 [139]CT[178]6[167]CT[178]0:RV[178]164[171]RV
  38. 360 [137]240
  39. 365 M$[178]"N"
  40. 366 [152]5,[199](19);
  41. 367 R[181]"***PEEKUFFER ASCULL***"
  42. 369 [137] 440
  43. 380 [153]"LOAD   PRINTING MEMORY":[129]PT[178]MB[164]DA
  44. 385 [139] ZT[178]1[167]390:[159]4,4,7:[152]4:RT$:RT$
  45. 390 [152]4,[199](F%([194](PT)));:[130]:[152]4,RT$RT$:DA[178]MB:MS$[178]Y
  46. 400 [153]"LOADWHAT IS THE FILE NAME":[133]A$:[159]1,1,1,A$
  47. 410 [129]PT[178]MB[164]DA
  48. 420 [152]1,[199](F%([194](PT)));:[130]:[152]1,[199](92):[152]1,[199](92)
  49. 430 [153]"LOADCLOSING TAPE FILE":[160]1:DA[178]MB:MS$[178]Y
  50. 440 [153][199](142)[199](147)
  51. 470 [153]"OPTIONS ARE:"
  52. 480 [153]"1. TERMINAL EMULATOR
  53. 490 PRINT"2. PRINT FROM MEMORY"RT$"3. RECORD FROM MEMORY"RT$"4. END
  54. 500 [153]"YOUR CHOICE: "
  55. 510 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]510
  56. 520 [145][197](A$)[137]200,380,400
  57. 530 [160]2:[153]"LOAD  TERMINAL CLOSED":[128]
  58.