home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47b.d64 / printerbloc.demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  45 lines
  1. 0 POKE53280,12:POKE53281,12
  2. 1 IFPEEK(49153)<>77THENAW=1:PRINT"[147]LADEN SIE BITTE DAS PROGRAMM 'PRINTER-
  3. 2 [139]AW[167][153]"BLOCKSATZ' UND STARTEN SIE DIESES !":[128]
  4. 10 [153]"LOADSTOPTEXTEINGABE ZUM 'PRINTERBLOCKSATZ'"[166]23)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  5. 11 PRINT"PROGRAMMIERT VON N. HEUSLER, 181286
  6. 12 [153]"(C) NIG SOFTWARE NSS.     FUER MPS 801/3
  7. 13 PRINT"BITTE TEXT EINGEBEN UND MIT F1[146] BEENDEN
  8. 14 [153]"('RETURN')":[151]198,.:[146]198,1:[151]198,.
  9. 20 [153]"LOAD";:[151]53280,11
  10. 25 [151]204,0
  11. 26 [161]A$:[139]A$[178]""[167]26
  12. 27 [151]205,2:[146]207,1,1:[151]204,1
  13. 28 [139]A$[178]"INPUT"[167]30
  14. 29 [153]A$;:[151]216,.:[151]212,.:[153]"STOP";:[137]25
  15. 30 [153]"";:[134]W$(500)
  16. 31 N[178][171]1:[159]3,3:[137]40
  17. 32 [141]100:[139]A$[178]" "[167]39
  18. 33 W$(N)[178]W$(N)[170]A$:[137]32
  19. 39 [139]N[177][171]1[167]W$(N)[178]W$(N)[170]" "
  20. 40 N[178]N[170]1:TR[178].:[151]53280,0
  21. 41 [139]([194](214)[178]24[175][194](211)[178]39)[176]TR[177]37[167]50
  22. 42 [151][194](214)[172]40[170][194](211)[170]55296,1:TR[178]TR[170]1
  23. 43 [141]100:[139]A$[178]" "[167]41
  24. 44 W$(N)[178]A$:[151]53280,1:[137]32
  25. 50 AG$[178]"":G[178].:[151]53280,12:[159]4,4
  26. 51 [153]"LOADDIE GEDULD HAT SICH GELOHNT.            TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  27. 52 INPUT"PIXEL/ZEILE   479[157][157][157][157][157]";PZ
  28. 53 IFPZ<20ORPZ>479THEN52
  29. 54 INPUT"Z[146]ENTRIEREN/B[146]LOCKSATZ   B[157][157][157]";AR$
  30. 55 IFAR$<>"B"ANDAR$<>"Z"THEN54
  31. 56 MO=2:IFAR$="Z"THENMO=1+MO
  32. 60 IFLEN(AG$+W$(G))*6>PZTHEN80
  33. 62 AG$=AG$+W$(G):G=G+1:IFG<=NTHEN60
  34. 63 GOSUB200
  35. 65 IFMO=2THENPRINT#4,AG$:GOTO70
  36. 66 SYS49152,4,PZ,3,AG$
  37. 70 CLOSE4:INPUT"SELBEN TEXT NOCHMAL J/N ";JN$:IFJN$<>"J"ANDJN$<>"N"THEN70
  38. 72 IFJN$="J"THEN50
  39. 74 END
  40. 80 GOSUB200:SYS49152,4,PZ,MO,AG$:AG$="":GOTO60
  41. 100 GET#3,A$:IFA$=CHR$(13)THEN100
  42. 101 RETURN
  43. 200 IFRIGHT$(AG$,1)=" "THENAG$=LEFT$(AG$,LEN(AG$)-1):GOTO200
  44. 201 RETURN
  45.