home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507b.d64 / char-generator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.4 KB  |  40 lines
  1. 10 DATA169,0,141,14,220,169,51,133,1,169,32,133,252,169,216,133,254,160,0,132
  2. 20 DATA251,132,253,162,7,177,253,145,251,200,208,249,230,254,230,252,202,16
  3. 30 DATA242,169,55,133,1,169,1,141,14,220,96
  4. 40 FORI=828TO876:READA:POKEI,A:NEXT
  5. 50 PRINT"[147]   CHAR-GENERATOR V1.0 (C) MARIO WECK
  6. 60 [153]"1) GROSS/KLEIN":[153]"2) GROSS/GRAFIK":[153]"3) NICHTS
  7. 70 INPUT"UEBERNEHMEN";A
  8. 80 IFA=2THENPOKE842,208
  9. 85 IFA<3THENSYS828
  10. 90 POKE53272,25:PRINT"[147]":FORI=0TO127:POKE55296+I,14:POKE1024+I,I:NEXT
  11. 91 POKE214,11:PRINT:PRINT,,"Q - SETZEN":PRINT,,"W - LOESCHEN
  12. 92 [153],,"N - NEUES ZEICHEN":[153],,"R - INVERTIEREN
  13. 93 PRINT,,"C = ZCHN LOESCHEN":PRINT,,"S - SAVEN
  14. 100 [151]55296[170]NR,14:[133]"STOPNR.:";NR:[151]55296[170]NR,0:[139]NR[179]0[176]NR[177]127[167]100
  15. 110 [151]214,10:[153]:[153]"ORTANTANTANTANTANTANTANTAN^":[129]I[178]1[164]8:[153]"(null)WAIT        (null)":[130]
  16. 120 [153]"/TANTANTANTANTANTANTANTANEXP
  17. 130 FORJ=8192+NR*8TOJ+7:ZW=128:FORI=0TO7
  18. 140 IFPEEK(J)ANDZWTHENPOKE1505+40*(JAND7)+I,160
  19. 150 ZW=ZW/2:NEXTI,J
  20. 160 KO=1505+40*Y+X:P=PEEK(KO):POKEKO,42:BY=8192+NR*8+Y:POKEKO,P
  21. 170 GETA$:IFA$=""THEN160
  22. 180 IFA$=""THENX=(X+1)AND7
  23. 190 IFA$="[157]"THENX=(X-1)AND7
  24. 200 IFA$="[145]"THENY=(Y-1)AND7
  25. 210 IFA$=""THENY=(Y+1)AND7
  26. 220 IFA$="N"THEN100
  27. 230 IFA$="Q"THENPOKEKO,160:POKEBY,PEEK(BY)OR2^(7-X)
  28. 240 IFA$="W"THENPOKEKO,32:POKEBY,PEEK(BY)ANDNOT2^(7-X)
  29. 250 IFA$="C"THENFORI=BYAND16376TOI+7:POKEI,0:NEXT:GOTO110
  30. 260 IFA$="R"THENFORI=BYAND16376TOI+7:POKEI,255-PEEK(I):NEXT:GOTO110
  31. 270 IFA$="S"THENINPUT"SICHER";B$:IFB$<>"J"THEN100
  32. 280 IFA$="S"THEN400
  33. 299 GOTO160
  34. 400 INPUT"[154][147]NAME";A$
  35. 405 FORI=0TO1023:POKE9216+I,255-PEEK(8192+I):NEXT
  36. 410 PRINT"[147]SAVE"+CHR$(34)+A$+CHR$(34)+",8
  37. 420 [153]" NACH SAVEN BITTE 'RESET' ! "
  38. 430 [151]198,2:[151]631,19:[151]632,13
  39. 440 [151]43,0:[151]44,32:[151]45,0:[151]46,40
  40.