home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / lader (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  40 lines
  1. 10 IFA=0THENGOSUB10000
  2. 20 IFA=0THENA=1:LOAD"T1",8,1
  3. 30 IFA=1THENA=2:LOAD"T3",8,1
  4. 40 IFA=2THENA=3:LOAD"T5",8,1
  5. 50 IFA=3THENA=4:LOAD"T4",8,1
  6. 60 IFA=4THENA=5:LOAD"ZEICHENSATZ",8,1
  7. 70 IFA=5THENA=6:LOAD"T2",8,1
  8. 71 IFA=6THENA=6.2:LOAD"T7.00",8,1
  9. 72 IFA=6.2THENA=6.5:POKE50943,2:LOAD"T8",8,1
  10. 80 IFA=6.5THENA=7:LOAD"DRUCKER        D",8,1
  11. 90 IFA=7THENA=8:POKE53265,11:LOAD"FORMULAR       F",8,1
  12. 100 IFTYP=2ANDA=8THENA=9:LOAD"CEN",8,1
  13. 110 IFTYP=3ANDA=8THENA=9:LOAD"UMLAUT1",8,1
  14. 120 IFTYP=4ANDA=8THENA=9:LOAD"UMLAUT2",8,1
  15. 130 IFTYP=5ANDA=8THENA=9:LOAD"INDI",8,1
  16. 140 IFTYP>1THEN SYS39424
  17. 150 SYS49152
  18. 10000 POKE53265,11:POKE53281,0:POKE53280,11:PRINT"[147][152]";
  19. 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]";
  20. 10020 PRINT"[221][146]     +   [205] [193][160][211][160][212][160][197][160][210][160]-[160][212][160][197][160][216][160][212]  +     [152][221]";
  21. 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]"
  22. 10040 PRINT"           [204][160][207][160][193][160][196][160][201][160][206][160][199][160]. . ."
  23. 10050 PRINT"[152]   [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][174]"
  24. 10060 PRINT"   [221]    [215]RITTEN 1985 BY [205]ARTIN [208]AHL  [221]
  25. 10065 [153]"   (null)    (C) 1986 (null)ARKT UND (null)ECHNIK   (null)
  26. 10070 PRINT"   [221]                                 [221]"
  27. 10080 PRINT"   [221]      *********************      [221]"
  28. 10090 PRINT"   [221]      * [205]ARTIN [208]AHL       *      [221]"
  29. 10100 PRINT"   [221]      * 4920 [204]EMGO        *      [221]"
  30. 10110 PRINT"   [221]      * IMPROVED BY [195][214][199] # *      [221]"
  31. 10120 PRINT"   [221]      * 8000 [205]UENCHEN     *      [221]"
  32. 10130 PRINT"   [221]      *********************      [221]"
  33. 10140 PRINT"   [221]                                 [221]"
  34. 10150 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][189]"
  35. 10160 POKE53265,27:POKE1,55
  36. 10170 OPEN1,8,3,"TYP,S,R":OPEN15,8,15:INPUT#15,ER
  37. 10180 IFER=62THENCLOSE15:CLOSE1:RETURN
  38. 10190 INPUT#1,TYP:CLOSE15:CLOSE1
  39. 10200 RETURN
  40.