home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47a.d64 / poster-hc (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  67 lines

  1. 0 POKE56,32:CLR
  2. 1 PRINT"[147][142]POSTER-HARDCOPY MPS 801/803
  3. 3 [153]"N.HEUSLER, 190388-ARR
  4. 4 IFPEEK(49158)<>165THENLOAD"POSTER-C000",8,8
  5. 5 POKE53281,.:POKE53280,.:QW$="P":FORI=1TO7:QW$=QW$+QW$:NEXT
  6. 6 F$(1)=" [146]":F$(2)=" ":F$(3)=".":F$(4)=".[146]":F$(5)="[166]":F$(6)="*
  7. 7 QW$[178]QW$[170][200](QW$,122):F$(7)[178]"(null)WAIT":F$(8)[178]"(null)
  8. 8 EP$="NEIN":L$="JA  ":FF=1:CC=2:X$="[145][157][157][157][157][164][164][164][164]
  9. 9 [153]"":F$[178]F$(FF):C$[178]F$(CC)
  10. 10 [153]"  F1 WAIT"X$" FUELLZEICHEN = "[199](34);:[151]212,.:[153]F$[199](34)
  11. 12 [153]"  F3 WAIT"X$" LEERZEICHEN  = "[199](34);:[151]212,.:[153]C$[199](34)
  12. 14 [153]"  F5 WAIT"X$" GRAFIK BEIM DRUCK LOESCHEN: "L$
  13. 15 [153]"  F7 WAIT"X$" AUF GEHT'S !
  14. 16 PRINT"  F2 [146]"X$" GRAFIK ZEIGEN
  15. 17 [153]"  F4 WAIT"X$" EINZELPAPIER: "EP$"
  16. 18 PRINT"  F6 [146]"X$" INVERTIEREN
  17. 19 [151]198,.
  18. 20 [161]A$:[139]A$[178]"INPUT"[167]30
  19. 22 [139]A$[178]"DIM"[167]40
  20. 24 [139]A$[178]"READ"[167]50
  21. 25 [139]A$[178]"IF"[167][158]49155
  22. 26 [139]A$[178]"LET"[167]100
  23. 27 [139]A$[178]"GOTO"[167]60
  24. 28 [139]A$[178]"RUN"[167]70
  25. 29 [137]20
  26. 30 FF[178]FF[170]1:[139]FF[178]CC[167]30
  27. 32 [139]FF[177]8[167]FF[178]1:[139]FF[178]CC[167]FF[178]2
  28. 34 [137]9
  29. 40 CC[178]CC[170]1:[139]FF[178]CC[167]40
  30. 42 [139]CC[177]8[167]CC[178]1:[139]FF[178]CC[167]CC[178]2
  31. 44 [137]9
  32. 50 [139]L$[178]"JA  "[167]L$[178]"NEIN":[137]9
  33. 52 L$[178]"JA  ":[137]9
  34. 60 [151]53272,29:[151]53265,59:[153]"LOAD"QW$QW$QW$"CMD"QW$;
  35. 62 [151]198,.:[146]198,1:[151]53272,21:[151]53265,27
  36. 64 [153]"LOAD":[137]9
  37. 70 [139]EP$[178]"JA  "[167]EP$[178]"NEIN":[137]9
  38. 72 EP$[178]"JA  ":[137]9
  39. 100 [153]"LOADMOMPLS...BITTE DRUCKER ANSCHALTEN !
  40. 110 FORI=1TO3:POKE32767+I,ASC(MID$(C$,I)+""):NEXT
  41. 112 FORI=1TO3:POKE32770+I,ASC(MID$(F$,I)+""):NEXT
  42. 113 POKE32774,255+(L$="NEIN")*255
  43. 114 PRINT"(TASTE,  F7 [146]"X$" = ABBRUCH)
  44. 116 [151]198,.:[146]198,1:[161]A$:[139]A$[178]"LET"[167]64
  45. 120 [151]142,.
  46. 130 [151]53272,29:[151]53265,59:[153]"LOAD"QW$QW$QW$"CMD"QW$;
  47. 132 [159]4,4:[157]4,;:[158]49152:[158]65484:[160]4
  48. 140 [139][194](142)[178].[167]160
  49. 143 [151]53272,21:[151]53265,27:[153]"LOAD":[139][194](140)[178].[167]145
  50. 144 [139]EP$[178]"NEIN"[167]130
  51. 145 [139][194](140)[178].[167][159]4,4:[152]4," ";:[129]I[178]1[164]53:[152]4,"TAN";:[130]:YG[178]1
  52. 146 [139]YG[167]YG[178].:[152]4," ENDE PAPIERBAHN"PB"TANTANTANTANTANTAN":[160]4
  53. 147 [153]"BITTE PAPIER JUSTIEREN ! (TASTE)":[151]198,.:[146]198,1:[153]"OK
  54. 148 IFPEEK(140)=.THENOPEN4,4:PRINT#4," ";:FORI=1TO58:PRINT#4,"[192]";:NEXT:YG=1
  55. 149 IFYGTHENYG=.:PB=PB+1:PRINT#4," PAPIERBAHN"PB"[192][192][192][192][192][192]":CLOSE4
  56. 159 GOTO130
  57. 160 OPEN4,4:PRINT#4," ";:FORI=1TO53:PRINT#4,"[192]";:NEXT
  58. 162 PRINT#4," ENDE PAPIERBAHN"PB"[192][192][192][192][192][192]":CLOSE4:POKE53272,21
  59. 164 POKE53265,27:PRINT"[147]FERTIG !":END
  60. 199 :
  61. 200 REM POSTER-HARDCOPY
  62. 202 REM VON NIKOLAUS HEUSLER
  63. 204 REM     ZWENGAUERWEG 18
  64. 206 REM   D-8000 MUENCHEN 71
  65. 208 REM     089/792940
  66. 210 REM REVISION DEUX VOM 270789
  67.