home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / install (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  36 lines
  1. 100 dim typ$(5)
  2. 110 typ$(1)="normal"
  3. 120 typ$(2)="centronic"
  4. 130 typ$(3)="mps801"
  5. 140 typ$(4)="mps802"
  6. 150 typ$(5)="individuell"
  7. 10000 poke53265,11:poke53281,0:poke53280,11:print"[147][152]";
  8. 10010 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  9. 10020 print"[221][146]     +  +  +  [212][160][160][197][160][160][216][160][160][212][160][160]+  +  +     [152][221]";
  10. 10030 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]"
  11. 10040 print"     [196][160][210][160][213][160][195][160][203][160][197][160][210][160][193][160][213][160][211][160][215][160][193][160][200][160][204]        [146]"
  12. 10050 print"1) [206][207][210][205][193][204] [201][197][195]-[194]us + [210][211]232  ([193][211][195][201][201])"
  13. 10060 print"2) [195][197][206][212][210][207][206][201][195]  ([193][211][195][201][201])          "
  14. 10070 print"3) [205][208][211]801 + [214][195]1525  ([195][194][205])          "
  15. 10080 print"4) [205][208][211]802 + [214][195]1526  ([195][194][205])  "
  16. 10085 print"5) [201][206][196][201][214][201][196][213][197][204][204]"
  17. 10090 print"[215]aehlen [211]ie ? ";
  18. 10100 poke53265,27
  19. 10110 poke198,0:wait198,1:getx$
  20. 10120 ifasc(x$)<49orasc(x$)>53then 10110
  21. 10125 printx$
  22. 10130 open1,8,3,"typ,s,r":open15,8,15:input#15,er
  23. 10140 if er=62 then20000
  24. 10150 input#1,typ
  25. 10160 print#15,"r0:"typ$(typ)"=0:drucker        d"
  26. 10170 close1:print#15,"s0:typ"
  27. 20000 typ=val(x$)
  28. 20010 close1:close15:open1,8,3,"typ,s,w"
  29. 20020 print#1,typ
  30. 20030 open15,8,15
  31. 20040 print#15,"r0:drucker        d=0:"typ$(typ)"
  32. 20050 [160]1:[160]15
  33. 20060 [153]"loadload"[199](34)"0:lader"[199](34)",8"
  34. 20070 [153]"run"
  35. 20080 [151]631,19:[151]632,13:[151]633,13:[151]198,3
  36.