home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 52
/
052.d81
/
bits
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
96 lines
0 if(peek(788)=047)and(peek(789)=192)thensys49155
1 poke53281,0:poke53280,0:print"[147]"tab(7)"[159]loading four character sets"
2 printtab(13)"please wait..."
3 ifa=.thena=1:load"bload.o",8,1
4 sys828,49152,"animate.o"
5 sys828,57344,"font1"
6 sys828,59392,"font2"
7 sys828,61440,"font3"
8 sys828,63488,"font4"
9 goto100
10 :
100 poke56576,(peek(56576)and252)or.
110 poke53272,(peek(53272)and15)or48
120 poke648,204
130 poke53272,(peek(53272)and240)or14
140 poke53280,.:poke53281,.
150 :
160 si$="[193][194][157][157][161][162][145]"
170 fa$="[195][196][157][157][163][164][145]"
180 :
200 print"[147] [154]loadstar presents:"
210 print"[158][176][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][174]";
220 print"[220] [221]";
230 print"[220] font animator demo [158][221]";
240 print"[220] by: mike maynard [158][221]";
250 print"[220] [221]";
260 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]"
270 print" [154]copyright 1988":poke198,.
275 print" [129] press space to continue."
280 poke49158,.:sys49152
290 ifpeek(203)<>60then290
300 print"[147]";:poke49158,10
310 print"[158] font animator [154]works by stepping"
320 print"through multiple character sets."
330 print"each character set contains different"
340 print"sequences for the characters."
350 print" some characters have been altered,"
360 print"others have not. as you read this text,"
370 print"the animator is active -- only the"
380 print"alphabet looks exactly the same in"
390 print"every character set; so, you don't see"
400 print"anything change."
410 print" [129]press space to continue."
420 ifpeek(203)<>60then420
430 print"[145][167][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][165]"
440 print"[154] however, as you can see above, the"
450 print"character that represents the shifted"
460 print"asterisk has been changed to a ball"
470 print"that slowly moves to the right. as the"
480 print"four character sets are flipped in"
490 print"sequence, the balls appear to move."
500 print"[129] press space to continue.":poke198,.
510 ifpeek(203)<>60then510
520 print"[147] [154]one of the major uses of [158]font"
530 print"animator [154]is to have multiple objects"
540 print"being animated on the screen at once."
550 print"[159]"tab(6)si$tab(31)si$
560 printtab(8)"[129]press space to continue":poke198,.
570 ifpeek(203)<>60then570
580 print"[145]"tab(8)" ":nm=2
590 forzz=1to100
600 r=int(rnd(.)*17):c=int(rnd(.)*37)
610 print"";:fora=.tor:print:next:forb=.toc:print"";:next
620 ad=peek(209)+peek(210)*256+peek(211)
630 ad=peek(209)+peek(210)*256+peek(211)
640 ifpeek(ad)<>32orpeek(ad+1)<>32orpeek(ad+40)<>32orpeek(ad+41)<>32then660
650 print"[159]"si$:nm=nm+1
660 next
670 print"[154]we're animating"nm"[154]aliens -- no problem!";
680 print" [129]press space to continue.":poke198,.
690 ifpeek(203)<>60then690
700 print"[147][154] of course, you have to keep up with"
710 print" the location of all those aliens!"
720 print"[158] [176][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][174]"
730 print" [220] [146][158][221]"
740 print" [220] the possibilities are [146][158][221]"
750 print" [220] endless!! [146][158][221]"
760 print" [220] [146][158][221]"
770 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][189][156]"
780 fora=1to20:printsi$;:next:print"[155]"
790 fora=1to20:printfa$;:next
800 fora=3to.step-1
810 poke49158,a
820 forb=1to1000*(4-a):next
830 next
840 fora=.to3:poke49158,a
850 forb=1to1000*(4-a):next:next
860 print"[154] press: r [154]- return to loadstar"
870 print" v [154]- view demo again"
880 a=peek(203):ifa<>17anda<>31then880
890 print"[147]":sys49155:ifa=31then100
900 poke53272,21:poke56576,199:poke648,4:print"[147]"
910 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
920 ifer<>63thenend
930 load"hello connect",8