home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 December
/
1989-12.d64
/
basic_beginners
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
67 lines
10 printchr$(147):poke53280,3:poke53281,3:poke214,5:print
20 fort=1to6:reada$(t):next
30 data167,18,32,144,5,125
40 c$="3435":d$="6363":e$="36"
50 printtab(5);
60 forz=1to2:b$="512"+c$+c$+e$+c$+c$+c$+e$+c$+c$+e$+c$+c$+c$+"3"
70 gosub1000:print:printtab(5);:next:printtab(5);
80 forz=1to2:b$="12"+e$+"3"+d$+d$+d$+d$+d$+d$
90 gosub1000:print:printtab(5);:next
100 poke214,8:print:printtab(34)chr$(192)chr$(201):printtab(35)chr$(194)
110 printtab(6)chr$(213);:fort=1to28:printchr$(192);:next:printchr$(203)
120 forz=1to5:printtab(6)chr$(194):next
130 printtab(6)chr$(202)chr$(192)chr$(145)chr$(145)chr$(145)tab(8);
140 forz=1to2:b$="12"+e$+c$+c$+e$+c$+c$+c$+e$+c$+c$+"3"
150 gosub1000:print:printtab(8);:next
160 forz=1to2:b$="123"+d$+d$+d$+d$+d$
170 gosub1000:print:printtab(8);:next
180 poke214,5:print:printtab(31)chr$(18)chr$(144)"c":printchr$(18);
190 j=10:gosub2000
200 data7,2,9,3,13,5,15,6,17,7,21,9,23,0,27,-,29,\,31,h
210 poke214,14:print:printchr$(18);
220 j=7:gosub2000
230 data12,d,14,f,18,h,20,j,22,k,26,":",28,";"
240 poke214,8:print:printchr$(18)chr$(5);
250 j=14:gosub2000
260 data6,q,8,w,10,e,12,r,14,t,16,y,18,u,20,i,22,o,24,p,26,@,28,*,30,^,32,z
270 poke214,16:print:printchr$(18);
280 j=11:gosub2000
290 data9,z,11,x,13,c,15,v,17,b,19,n,21,m,23,",",25,.,27,/,29,=
300 print:print""tab(13)"please wait.
400 [134]f1(62),f2(62),f3(62),f4(62)
410 k[178]256:mu[178]1.005
420 [129]j[178]1[164]41
430 [135]t,n
440 n1[178][181](n[172]mu)
450 f1(t)[178][181](n[173]k):f2(t)[178]n[171]f1(t)[172]k
460 f3(t)[178][181](n1[173]k):f4(t)[178]n1[171]f3(t)[172]k
470 [130]
480 v[178]54272:[129]j[178]v[164]v[170]23:[151]j,0:[130]
490 e[178]136:[151]v[170]5,e:[151]v[170]6,e:[151]v[170]12,e:[151]v[170]13,e
500 v1[178]v[170]1:v2[178]v
510 v3[178]v[170]8:v4[178]v[170]7
520 vn[178]33:vf[178]32
530 [151]v[170]24,15
540 kb[178]197:nk[178]64
550 [153]"on"[163]13)"okay, hit it!
560 t=peek(kb):ift=nkthen560
570 pokev1,f1(t):pokev2,f2(t)
580 pokev3,f3(t):pokev4,f4(t)
590 pokev+4,vn:pokev+11,vn
600 ifpeek(kb)=tthen600
610 pokev+4,vf:pokev+11,vf
620 goto560
630 data62,2145,9,2408,14,2703,17,2864,22,3215,25,3608,30,4050,33,4291,38,4817
640 data41,5407,46,5728,49,6430,54,7217,12,8101,23,8583,20,9634,31,10814,28
650 data11457,39,12860,36,14435,47,16203,44,17167,55,19269,59,2273,8,2551,16
660 data3034,19,3406,24,3823,32,4547,35,5103,43,6069,48,6812,51,7647,18,9094,21
670 data10207,29,12139,34,13625,37,15294,45,18188,50,20415,53,21629
1000 fort=1tolen(b$)
1010 m$=mid$(b$,t,1)
1020 u=val(m$)
1030 v=val(a$(u))
1040 printchr$(v);
1050 next
1060 return
2000 forz=1toj:readm,n$:printtab(m)n$;:next:return