home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 11
/
Tiger_Disk_011_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
zs-anzeiger
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
61 lines
5 poke53280,12:poke53281,12:poke646,1:print"[147]"
10 print"mit dem nachfolgenden programm, das du"
11 print"als unterprogramm an dein proggi an-"
12 print"haengen kannst, kannst du einen zeichen-satz, den du mit dem zs-generator"
13 print"erstellt hast, laden und anzeigen."
14 print"dazu loesche alle zeilen bis 19999 und befolge die nach dem file"
15 print"unter 'rem' angegebenen anweisungen!"
16 print"mit den zeilen ab 20200 kannst du durch 'gosub'-aufruf"
17 print"den zeichensatz wieder ausschalten! ('return' nach umschaltung!)"
18 print"zum anzeigen drueck jetzt 'return', zum beenden 'space'!"
19 a$="":geta$:ifa$<>chr$(13)anda$<>" "then19
20 ifa$=" "thenend
21 ifa$=chr$(13)andan=0then20000
22 ifa$=chr$(13)andan=1thenan=2:gosub20200:goto10
23 ifa$=chr$(13)andan=2thenend
20000 rem laden des zeichensatzes
20001 :
20005 poke 56,127:poke55,0:clr:rem basic grenze
20010 na$="schlitz"
20011 :
20020 sys 57812 "0:"+na$+".zsa,s,r",8:rem filename und geraete adresse
20030 poke 782,136: rem hi startadresse
20040 poke 781, 0: rem lo startadresse
20050 poke 780,0 : rem load/v. flag
20060 sys 65493 : rem load-routine
20080 v=53248
20090 poke 56576,peek(56576) and 253
20100 poke v+24,2*1+16*0
20105 rem 'poke 648,4' dann ist alles wieder normal!
20110 poke 648,128:print"[147]"
20120 ze=34816:rem 8800h zeichensatz
20130 bi=32768:rem 8000h bildschirm
20135 :
20140 an=1:goto 10 : rem 'an' bitte loeschen!
20150 :
20200 rem normal
20210 poke648,4 :print"[147]"
20220 poke 53248+24,21
20230 poke 56576,151
20240 return
20250 rem ----------------------------
20260 rem ------------------------------
20270 rem in zeile 20140 wird anstatt
20280 rem '10' die ruecksprung-zeile
20290 rem eingegeben
20295 rem ---------------------------
20296 rem ------------------------------
20300 rem in zeile 20010 wird der
20310 rem filename des zeichensatzes
20320 rem eingetragen, der geladen
20330 rem werden soll (anstelle
20400 rem 'schltz')
20410 rem ---------------------------
20420 rem -----------------------------
20430 rem die 'rem'-zeilen im programm
20440 rem kannst du natuerlich auch
20450 rem komplett entfernen!
20455 rem
20460 rem ---------------------------
20470 rem ---------------------------