home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8606b.d64 / install (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.