home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 21
/
021.d81
/
pgm.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
11KB
|
340 lines
100 ifx=0thenx=1:load"pgm.bin",8,1
110 poke55,255:poke56,90:clr
120 dimx(8),y(8),m$(12),ht(12),s1(25),c(25),r(25)
130 cs=1:co=2:c=2:a=rnd(ti)
140 a1=40960:a2=41984:a3=42497:a4=43226:a5=44251:a6=44980:a7=45485:a8=46214
150 a9=46719:a0=47448
160 poke53280,14:poke53281,6:print"[147]"
170 ba=32768+4*256:poke646,0
180 sysba+6,57344,52224:sysba:sysba+75
185 print"[147]preparing for demo..."
190 sysba+12,40960,"char sets"
200 sysba+12,49152,"sprites"
210 sysba+39,a2,1,1,"[147][137][138][154]":sysba+24
220 sysba+3*28,0,0,0,0,0,1
230 sysba+3*29,0,350,50,0
240 sysba+3*27,1,0
250 sysba+39,55296,1,0," [212]his is the normal [195]64 character set."
260 sysba+39,55296,3,0,"[215]hile it is almost readable, it's not"
270 sysba+39,55296,5,0,"always right for every occasion, and it"
280 sysba+39,55296,7,0,"could not possibly be called exciting."
290 sysba+39,55296,9,0," [207]ther computers can mix several"
300 sysba+39,55296,11,0,"character sets, but alas not our"
310 sysba+39,55296,13,0,"faithful [195]ommodore 64."
320 t1=10000:gosub2960:poke787,7
330 sysba+39,a3,18,15,"[159][133][213]ntil [206]ow![137]":poke787,6
340 t1=4000:gosub2960:poke53280,0:poke53281,0
350 sysba+39,a3,0,2,"[144][144][147][133][134][215][197][204][195][207][205][197] [212][207] [208][199][205] 64[137][138]"
360 t1=1500:gosub2960
370 sysba+39,a3,3,4,"[133][154][217]ou can now display many sizes,[137]"
380 t1=1500:gosub2960
390 sysba+39,a6,6,3,"[134][129]fonts and shapes,[137][138]"
400 t1=1500:gosub2960
410 sysba+39,a4,8,5,"even [211]cript fonts can be used![137][138]"
420 t1=3000:gosub2960
430 sysba+39,a5,10,0,"[152][200][201][210][197][211] [199][210][193][208][200][201][195][211] [195][193][206] [194][197] [207][206] [212][200][197] [211][193][205][197] [211][195][210][197][197][206][137][138]"
435 sysba+39,a1,19,0,"[156]y=sin "
436 sysba+39,a0,19,6,"d[188]"
440 x1=50:y1=150:x2=270:y2=90
450 fori=y2toy1step10
460 sysba+60,x1,i,x2,i,3,0
470 nexti
480 fori=x1tox2step10
490 sysba+60,i,y1,i,y2,3,0
500 nexti
510 x=x1:fori=0to25.14step.1143:s=120-sin(i)*24
520 sysba+60,x1,y1,x,s,3,0:x=x+1:x1=x:y1=s:nexti
530 t1=2500:gosub2960
540 sysba+36,a1,21,0,"[159][207]f course [158]80 column [159]text is supported,"
550 sysba+36,a1,20,20,"[133][159]including [135][153]double height[139] [159]in 80 columns![137]"
560 t1=2500:gosub2960
570 sysba+39,a2,23,1,"[133][134][135][150]even underline it![137][138][139]"
580 t1=4000:gosub2960
590 sysba+39,a4,2,0,"[133][134][156][147][215]elcome"
600 sysba+39,a5,6,0,"[133][134] [212]o [212]he [215]orld"
610 sysba+39,a3,10,0,c$+"[133][134] [207][198] [196][217][206][193][205][201][195] [211][208][210][201][212][197][211]":cs=1
620 sysba+84,0,0,0,0,0,14
630 fori=1to30
640 c=c+1:ifc=16thenc=0
650 rx=int(rnd(1)*335):ry=int(rnd(1)*190)+35
660 sysba+99,0,rx,ry,3,0,3,cs,0,3,cs
670 t1=150:gosub2960
680 next
690 sysba+99,0,163,117,3,0,3,cs,0,3,cs
700 fori=1to7:sysba+3*28,i,0,0,0,0,i+6:nexti
710 fori=1to7:sysba+3*29,i,163,117,0:nexti:forj=1to100:nextj
720 t1=1000:gosub2960
730 sysba+81,1,0:sysba+99,0,40,140,1,0,3,cs,0,3,cs
740 sysba+81,1,1:sysba+99,1,40,60,1,0,3,cs,0,3,cs
750 sysba+81,1,2:sysba+99,2,170,60,1,0,3,cs,0,3,cs
760 sysba+81,1,3:sysba+99,3,320,60,1,0,3,cs,0,3,cs
770 sysba+81,1,4:sysba+99,4,40,220,1,0,3,cs,0,3,cs
780 sysba+81,1,5:sysba+99,5,170,220,1,0,3,cs,0,3,cs
790 sysba+81,1,6:sysba+99,6,320,220,1,0,3,cs,0,3,cs
800 sysba+81,1,7:sysba+99,7,320,140,1,0,3,cs,0,3,cs
810 t1=1000:gosub2960
820 fori=0to7:sysba+99,i,163,117,14-i,0,3,cs,0,3,cs:nexti
830 bb=8:forb=1to4:sysba+72,0+b*30,199-b*15,7,4,25,b+1,0
840 x(b)=b*30+15:y(b)=199-b*15+12
850 sysba+72,30+bb*30,139+(bb-5)*15,7,4,25,bb+1,0
860 x(bb)=bb*30+45:y(bb)=139+(bb-5)*15+12:bb=bb-1:nextb
870 fori=1to7:sysba+81,0,i:nexti
880 fori=1to8
890 sysba+81,1,i-1
900 sysba+99,i-1,x(i),y(i),1,0,3,cs,0,3,cs:nexti
910 t1=2000:gosub2960
920 fori=0to7:sysba+99,i,165,117,1,0,3,cs,0,3,cs:nexti
930 t1=250:gosub2960
940 fori=1to7:sysba+81,0,i:nexti
950 sysba+39,a3,2,0,"[147][156][134][204][197][212]'[211] [208][204][193][217] [204][201][206][197] [158][212][193][199]![137][138]":sysba+90,768,4
960 t1=1500:gosub2960:sysba+39,a3,2,2,"[147]"
970 x1=int(rnd(1)*320):y1=int(rnd(1)*200):f=0
980 sysba+99,0,x1+24,y1+50,1,0,3,cs,0,3,cs
990 x2=int(rnd(1)*320):y2=int(rnd(1)*200)
1000 forj=1to20:sysba+60,x1,y1,x2,y2,co,0
1010 ifx2>x1andf=1thensysba+90,768,4:f=0
1020 ifx2<x1andf=0thensysba+90,768,4:f=1
1030 sysba+99,0,x2+24,y2+50,1,0,3,cs,0,3,cs
1040 x1=x2:y1=y2
1050 x2=int(rnd(1)*320):y2=int(rnd(1)*200):co=int(rnd(1)*15)+1
1060 t1=200:gosub2960:next:x2=319:y2=190
1070 sysba+60,x1,y1,x2,y2,co,0
1080 sysba+99,0,x2+24,y2+50,1,0,3,cs,0,3,cs
1090 t1=500:gosub2960:sysba+81,0,255:fori=0to7:sysba+102,i,4:nexti
1100 iff=1thensysba+90,768,4
1110 sysba+39,a3,0,2,"[144][144][147]"
1120 sysba+18,52224,53223,0
1130 sysba+39,a7,0,0,"[133][215]ith the [135]auto animate[139] command you can[137]"
1140 sysba+39,a7,2,0,"[133]tell a sprite to go from point one[137]"
1150 sysba+39,a7,4,0,"[133]to point two, at a specified speed.[137]"
1160 sysba+39,a7,6,0,"[133][212]he sprite moves without [153][135]any[139] other[137]"
1170 sysba+39,a7,8,0,"[133]instructions being necessary.[137]"
1180 t1=7000:gosub2960
1190 sysba+84,1,1,0,1,1,2,10,6
1200 sysba+87,1,300,180,4
1210 sysba+81,0,255:sysba+81,1,1
1220 sysba+39,a7,11,0,"[133][212]his is [210]alph.[137]"
1230 t1=2000:gosub2960
1240 sysba+39,a7,14,0,"[133][200]e's a sprite and you're not."
1250 t1=2500:gosub2960
1260 sysba+39,a3,23,6,"[133][134][156][215]atch him run![137][138]"
1270 sysba+99,1,40,180,5,4,11,3,4,4,0
1280 t1=4000:gosub2960
1290 sysba+117,0,23,0,2,40
1300 sysba+39,a3,23,3,"[133][156][196]id you notice the pointer change?[137]"
1310 t1=3000:gosub2960
1320 sysba+117,0,23,0,2,40
1330 sysba+39,a3,23,1,"[156][133][204]et's turn him around and do it again.[137]"
1340 t1=3000:gosub2960
1350 sysba+90,772,8:sysba+84,1,1,0,1,1,10,2,6
1360 sysba+117,0,23,0,2,40
1370 sysba+39,a3,23,7,"[156][133][193]nd this time move faster![137][138]"
1380 t1=2000:gosub2960
1390 sysba+99,1,350,180,1,4,11,1
1400 t1=3000:gosub2960
1410 sysba+81,0,1
1420 sysba+90,772,8:sysba+84,1,1,0,1,1,2,10,6
1430 gosub2660
1440 gosub2970
1450 sysba+81,0,255:sysba+75:fori=0to7:sysba+102,i,0:next
1460 sysba+39,a3,1,1,"[144][147]"
1470 sysba+39,a3,2,0,"[133][134][215]elcome to the [215]orld"
1480 sysba+39,a3,6,0,"[153] of [208]resentation"
1490 sysba+39,a3,10,0," [194][213][211][201][206][197][211][211] [199][210][193][208][200][201][195][211][137][138]"
1500 t1=500:gosub2960
1510 m$(0)="[202]an ":m$(1)="[198]eb ":m$(2)="[205]ar ":m$(3)="[193]pr ":m$(4)="[205]ay "
1520 m$(5)="[202]un ":m$(6)="[202]ul ":m$(7)="[193]ug ":m$(8)="[211]ep ":m$(9)="[207]ct "
1530 m$(10)="[206]ov ":m$(11)="[196]ec ":m$(12)="[193]vg "
1540 vc=int(rnd(1)*15)+1:vc$=mid$(co$,vc,1)
1550 poke53280,0
1560 poke646,0:sysba+39,a2,1,1,"[136]"
1570 x=0:y=190:poke53280,0
1580 fori=0to11
1590 ht=int(rnd(1)*68)+1
1600 sysba+36,a1,24,(i*24/8),m$(i)
1610 sysba+72,i*24,y,14,8,ht,i+1,0:ht(i)=ht:ag=ag+ht
1620 nexti:ht(i)=int(ag/13)
1630 sysba+72,i*24,y,14,8,ht(i),13,0
1640 sysba+36,a1,24,(i*24/8),m$(i)
1650 sysba+117,0,0,0,14,40:rem clr wnd
1660 sysba+39,a2,1,1,"[133][134][135][158]1985 sales analysis[137][138][139]"
1670 x1=0:y1=0:x2=319:y2=94:c1=6:c2=0:gosub2900
1680 rem tick marks
1690 fori=0to94step9.4:sysba+60,0,i,3,i,6,0:next
1700 fori=0to11:rem line graph
1710 x=i*24+12
1720 sysba+60,x,92,x,96,6,0
1730 sysba+39,a2,13,x/8,"[144][159][157]"+str$(ht(i))
1740 sysba+60,x,94-ht(i),x+24,94-ht(i+1),6,0:xb=x:yb=y
1750 nexti:x=i*24+12
1760 sysba+39,a2,13,x/8,"[144][159][157]"+str$(ht(i))
1770 t1=1000:gosub2960
1780 sysba+48,23551,0,0,25,40:rem bmcpy
1790 sysba+111,5,4,16,33,2,2:remclr clr
1800 sysba+111,5,4,16,33,2,2:remclr clr
1810 sysba+117,0,5,4,16,33:rem clr wnd
1820 sysba+39,a7,6,12,"[133][135]1986 [208]rojections[137][138][139]"
1830 x1=44:y1=45:x2=284:y2=160:c1=1:c2=2:gosub2900:rem box
1840 rem tick marks
1850 fori=45to160step11.5:sysba+60,45,i,48,i,1,2:next:in=18.462:x1=in+44
1860 y1=152:y2=y1:sh=80:fori=in+44 to 284 step in:rem line graph
1870 sysba+60,i,159,i,161,1,2
1880 yh=rnd(1)*11.42:x2=i
1890 sysba+60,x1,y1,x2,y2,6,2:x1=x2:y1=y2:y2=y2-yh
190