home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 5
/
64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64
/
demo+boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
71 lines
100 rem *******************************
101 rem * demo + boot programm *
102 rem * fuer *
103 rem * *
104 rem * b l o w u p *
105 rem * *
106 rem * eine basic-zusatzfunktion *
107 rem * fuer zeichendarstellung *
108 rem * in 4-facher hoehe + breite *
109 rem * *
110 rem * von *
111 rem * *
112 rem * ludwig wolff *
113 rem * niederhutstr.42 *
114 rem * 5483 ahrweiler *
115 rem * tel.02641/34867 *
116 rem * *
117 rem * 15.11.1985 *
118 rem *******************************
200 :
300 :
400 :
500 ifa=0thena=1:load"blow up",8,1
520 c=646:poke53280,0:poke53281,0
530 z1$="@abcdefghijklmnopqrstuvwxyz \[255]1234567890"
540 z2$="[173][214][189][211][215][209][192][205][223][216][220][219][204][177][171][202][186][217][210]/[168][178][206][191]*[213]+-[218]^[184][183][163][164][210][198][195][196][163] [184][183][163] [165][180][181][161][169][182][170][172][190][172] [191][166][]_"
600 gosub1000:s=9:z=6:gosub1100
610 print"ein demo-programm fuer"
620 s=12:z=11:gosub1100:print" b l o w u p":t=600:gosub1200
650 gosub1000:print" blow up ist ein hilfsprogramm zur"
660 print"darstellung von zeichen aus dem c64-"
670 print"zeichensatz in 4-facher groesse:":t=300:gosub1200
680 s=6:z=11:pokec,1:gosub1100:sys51968("blow up"):t=150:gosub1200
690 s=4:z=16:pokec,10:gosub1100:sys51968("demo-prg")
700 t=400:gosub1200
710 gosub1000:s=11:z=13:gosub1100:print"das kann blow up:"
720 t=150:gosub1200:print"[159]":sys51968(z1$)
730 s=13:z=19:gosub1100:print"[158]grosse zeichen."
740 t=450:gosub1200:poke52073,216:print"[150]":sys51968(z1$)
750 s=13:z=19:gosub1100:print"[158]kleine":gosub1200:gosub1000
760 s=7:z=2:pokec,10:gosub1100:sys51968("[199][210][207][211][211][197],")
770 s=8:z=6:pokec,14:gosub1100:sys51968("kleine")
780 s=0:z=10:pokec,7:gosub1100:sys51968("[194]uchstaben")
790 gosub1200:gosub1000:s=10:z=10:gosub1100:print"und die blockgrahik:"
800 t=150:gosub1200:print"";:poke52073,208
810 sys51968(z2$)
820 gosub1200:poke52073,212
830 sys51968(z2$)
840 gosub1200:gosub1010:poke52073,216:s=13:z=7:pokec,14:gosub1100
850 sys51968("auch"):s=8:z=13:gosub1100:sys51968("invers")
860 gosub1200:gosub1000:s=11:z=7:gosub1100:print"[158]und hier ein trick:"
870 l$=" "
880 printspc(90)l$spc(20)l$"[150]"spc(20)l$spc(20)"[154]"l$
890 poke52128,165:s=10:z=10:gosub1100:sys51968("64'er")
900 poke52128,145:poke52073,208:t=350:gosub1200:goto600
999 stop
1000 rem -- bildschirm maske --
1005 print"[147]"
1010 print"[158][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]";
1020 fori=0to20:print"[221]"spc(38)"[221]";:next
1030 print"[221] taste druecken oder warten !"spc(9)"[221]";
1040 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]";
1050 print" * blow up * l.wolff * ahrweiler 1985 *";:return
1100 rem -- crsr set --
1110 poke211,s:poke214,z:sys58640:return
1200 rem -- get --
1210 i=0
1220 i=i+1:ifi>tthenreturn
1230 geta$:ifa$=""then1220
1240 return