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