home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / zeich.editorv1.0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  74 lines
  1. 10 ifa=0thengosub10000
  2. 20 ifa=0thena=1:load"z.e.t1",8,1
  3. 30 ifa=4thenthen1510
  4. 40 poke53265,11:poke56576,peek(56576)and252:poke53272,56:poke648,204:sys49152+18
  5. 50 sys49152+24:sys49152+9:print"";
  6. 1000 sys49152+3
  7. 1510 poke198,0:wait198,1:getx$:ifx$=""thensys49152+18:goto1510
  8. 1512 ifx$=""thenprintchr$(142);:goto1510
  9. 1514 ifx$=""thenprintchr$(14);:goto1510
  10. 1516 ifx$=""thensys49152+27:goto1510
  11. 1520 wa=asc(x$)-133:ifwa<0orwa>7then1510
  12. 1530 ifwa=0goto1000
  13. 1540 onwagosub 2000,4000,7000,9000,3000,5000,8000
  14. 1550 sys49152+9:goto1510
  15. 2000 gosub20000
  16. 2010 fori=0to7:poke828+i,usr(tn+i):next
  17. 2020 return
  18. 3000 gosub20000
  19. 3010 fori=0to7:poke828+i,usr(tn-4096+i):next
  20. 3020 return
  21. 4000 gosub60000:print"   [218] [197] [201] [195] [200] [197] [206] [211] [193] [212] [218]   [204] [193] [196] [197] [206]    [146]"
  22. 4010 print" [206]ame des [218]eichensatzes ('e' zurueck)"
  23. 4015 print""dn$:print"[145]";
  24. 4020 inputdn$:ifdn$="e"thenreturn
  25. 4030 open1,8,0,dn$:open15,8,15:input#15,er,er$,tt,ss:ifer<>0then63000
  26. 4040 get#1,x$,x$:sys49152+15:close1:close15:return
  27. 5000 gosub60000:print" [218] [197] [201] [195] [200] [197] [206] [211] [193] [212] [218]   [211] [208] [197] [201] [195] [200] [210] [206][146]"
  28. 5010 print" [206]ame des [218]eichensatzes ('e' zurueck)
  29. 5015 [153]""dn$:[153]"on";
  30. 5020 [133]dn$:[139]dn$[178]"e"[167][142]
  31. 5030 [159]1,8,1,dn$:[159]15,8,15:[132]15,er,er$,tt,ss:[139]er[178]63[167][137]62000
  32. 5040 [139]er[179][177]0[167]63000
  33. 5050 [157]1,[199](0)[199](112);:[158]49152[170]12:[160]1:[160]15:[142]
  34. 7000 [158]49152[170]30:[142]
  35. 8000 [158]49152[170]27:[158]49152[170]30:[158]49152[170]27:[142]
  36. 9000 [141]20000
  37. 9010 [129]i[178]0[164]7:[151]tn[170]i,[194](828[170]i):[151]tr[170]i,255[171][194](828[170]i):[130]:[142]
  38. 10000 [151]53265,11:[151]53281,0:[151]53280,11:[153]"loadprint#";
  39. 10010 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  40. 10020 [153]"(NULL)wait+ + + (NULL)closevalcloseright$closelencloseleft$closevalclose(NULL)closevalclosestr$closeright$close(NULL)close(NULL)close(NULL)close+ + + print#(NULL)";
  41. 10030 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexpwait"
  42. 10040 [153]"      peekcloseright$close(NULL)close(NULL)closevalclosecloseclose(NULL)closeatnclose(NULL)close(NULL)closevalclose(NULL)close. . ."
  43. 10050 [153]"print#   ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  44. 10055 [153]"   (NULL) lenopyright (c) 1986              (NULL)
  45. 10060 print"   [221]                                 [221]
  46. 10065 [153]"   (NULL)    sys(NULL)arkt & (NULL)echnik (NULL)erlag atnchr$print#    (NULL)
  47. 10070 print"   [171][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][179]"
  48. 10075 print"   [221]      1985 written by            [221]"
  49. 10080 print"   [221]                                 [221]"
  50. 10085 print"   [221]      *********************      [221]"
  51. 10090 print"   [221]      * [158][205]artin [208]ahl[152]       *      [221]"
  52. 10100 print"   [221]      * [158][197]ntruper [215]eg 44[152]   *      [221]"
  53. 10110 print"   [221]      * [158]4920 [204]emgo[152]        *      [221]"
  54. 10120 print"   [221]      * [158][212]el.: 05261/10431[152] *      [221]"
  55. 10130 print"   [221]      *********************      [221]"
  56. 10140 print"   [221]                                 [221]"
  57. 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]"
  58. 10160 poke53265,27
  59. 10170 return
  60. 20000 print"[215]elche [212]aste ? ";:poke52492,160
  61. 20010 poke198,0:wait198,1:getx$:x=asc(x$):ifx<32or(x>128andx<160)then20010
  62. 20020 printx$;:ifpeek(52492)=160thenprint"[157]";:goto20010
  63. 20030 tn=57344+(peek(53272)and2)*1024+peek(52492)*8:tr=tn+1024
  64. 20040 print:return
  65. 60000 print"[147][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]";
  66. 60010 print"[168][146]+ + + [218] [197] [201] [195] [200] [197] [206] [197] [196] [201] [212] [207] [210] + + + [152][168]";
  67. 60020 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]"
  68. 60030 return
  69. 62000 gosub63000:print"[196]atei scratchen ?":poke198,0:wait198,1
  70. 62010 getx$:ifx$="n"thenreturn
  71. 62020 ifx$="j"thenopen15,8,15,"s0:"+dn$:close15:goto5000
  72. 62030 goto62010
  73. 63000 print""er","er$","tt","ss:close1:close15:poke198,0:wait198,1:return
  74.