home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 June / 64er_Magazin_87-06_1987_Markt__Technik_de_Side_B.d64 / lader-neu (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  42 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. 95 poke51974,25:poke51987,26:poke52039,89:poke52052,90
  13. 100 iftyp=1anda=8thena=9:load"normal(t)",8,1
  14. 105 iftyp=2anda=8thena=9:load"centronic(t)",8,1
  15. 110 iftyp=3anda=8thena=9:load"umlaut1",8,1
  16. 120 iftyp=4anda=8thena=9:load"umlaut2",8,1
  17. 130 iftyp=5anda=8thena=9:load"indi",8,1
  18. 140 iftyp>0then sys39424
  19. 150 sys49152
  20. 10000 poke53265,11:poke53281,0:poke53280,11:print"[147][152]";
  21. 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]";
  22. 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]";
  23. 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]"
  24. 10040 print"           [204][160][207][160][193][160][196][160][201][160][206][160][199][160]. . ."
  25. 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]"
  26. 10060 print"   [221]    [215]ritten 1985 by [205]artin [208]ahl  [221]
  27. 10065 [153]"   (NULL)    (c) 1986 (NULL)arkt und (NULL)echnik   (NULL)
  28. 10070 print"   [221]                                 [221]"
  29. 10080 print"   [221]      *********************      [221]"
  30. 10090 print"   [221]      * [205]artin [208]ahl       *      [221]"
  31. 10100 print"   [221]      * 4920 [204]emgo        *      [221]"
  32. 10110 print"   [221]      * improved by [195][214][199] # *      [221]"
  33. 10120 print"   [221]      * 8000 [205]uenchen     *      [221]"
  34. 10130 print"   [221]      *********************      [221]"
  35. 10140 print"   [221]                                 [221]"
  36. 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]"
  37. 10160 poke53265,27:poke1,55
  38. 10170 open1,8,3,"typ,s,r":open15,8,15:input#15,er
  39. 10180 ifer=62thenclose15:close1:return
  40. 10190 input#1,typ:close15:close1
  41. 10200 return
  42.