start tok64 d64-h6XMVU
1 REM  anders thorwaldsson
2 REM  pl 7005 k[rrag]rden
3 REM  372 00 ronneby
4 REM  1986-03-31
10 REM  lotto
20 GOSUB1000: REM  presentations bild
30 GOSUB100 : REM  initiering
40 GOSUB130 : REM  talgenerering
50 GOSUB200 : REM  sortering
60 GOSUB400 : REM  utritning av ramen
70 GOTO40   : REM  en k{pound}rning till
80 END
100 REM  initiering
110 DIMa(7,12),d$(36)
115 POKE53280,12:POKE53281,15
120 RETURN
130 REM  slumpgenerering
133 PRINTCHR$(147)
136 PRINT"{dark gray} ett {pound}gonblick jag jobbar{!*4}"
140 FORj=1TO12
150 FORi=1TO7
160 t=INT(RND(1)*36)+1
165 IFd$(t)="x"THEN160
170 a(i,j)=t:d$(t)="x"
175 NEXTi
180 FORu=1TO36:d$(u)="":NEXTu
185 NEXTj
190 RETURN
200 REM  sortering
210 FORf=1TO12
220 FORj=1TO7
230 b(j)=a(j,f)
240 NEXTj
250 FORi=1TO6
260 FORj=1+iTO7
270 IFb(i)<b(j)THEN310
280 s=b(i)
290 b(i)=b(j)
300 b(j)=s
310 NEXTj
320 NEXTi
330 FORj=1TO7
340 a(j,f)=b(j)
350 NEXTj
360 NEXTf
370 RETURN
400 REM  ramen ritas
410 PRINTCHR$(147)
420 PRINT"{156}{right*4}{cm a}{C*4}{cm r}{C*4}{cm r}{C*4}{cm r}{C*4}{cm r}{C*4}{cm r}{C*4}{cm s}"
430 PRINT"{right*4}B 01 B 02 B 03 B 04 B 05 B 06 B"
440 PRINT"{right*4}{cm q}{C*4}{sh +}{C*4}{sh +}{C*4}{sh +}{C*4}{sh +}{C*4}{sh +}{C*4}{cm w}"
450 FORf=1TO7
460 PRINT"{right*4}B{sh space*4}B{sh space*4}B{sh space*4}B{sh space*4}B{sh space*4}B{sh space*4}B"
470 NEXTf
480 PRINT"{right*4}{cm z}{C*4}{cm e}{C*4}{cm e}{C*4}{cm e}{C*4}{cm e}{C*4}{cm e}{C*4}{cm x}"
485 PRINT"{right*4}{cm a}{C*4}{cm r}{C*4}{cm r}{C*4}{cm r}{C*4}{cm r}{C*4}{cm r}{C*4}{cm s}"
490 PRINT"{right*4}B 07 B 08 B 09 B 10 B 11 B 12 B"
500 PRINT"{right*4}{cm q}{C*4}{sh +}{C*4}{sh +}{C*4}{sh +}{C*4}{sh +}{C*4}{sh +}{C*4}{cm w}"
510 FORf=1TO7
520 PRINT"{right*4}B{sh space*4}B{sh space*4}B{sh space*4}B{sh space*4}B{sh space*4}B{sh space*4}B"
530 NEXTf
540 PRINT"{right*4}{cm z}{C*4}{cm e}{C*4}{cm e}{C*4}{cm e}{C*4}{cm e}{C*4}{cm e}{C*4}{cm x}{dark gray}"
550 PRINT"{home}{down*3}"
560 FORj=1TO7
570 PRINTTAB(5)a(j,1)TAB(10)a(j,2)TAB(15)a(j,3)TAB(20)a(j,4)TAB(25)a(j,5);
580 PRINTTAB(30)a(j,6)
590 NEXTj
600 PRINT"{down*3}"
610 FORj=1TO7
620 PRINTTAB(5)a(j,7)TAB(10)a(j,8)TAB(15)a(j,9)TAB(20)a(j,10)TAB(25)a(j,11);
630 PRINTTAB(30)a(j,12)
640 NEXTj
650 PRINT:PRINT" vill du ha fler rader 'j/n' ?"
660 GETa$:IFa$=""THEN660
670 IFa$="j"THENRETURN
680 PRINTCHR$(147)
690 PRINT"{space*2}ok trevligt att r]kas!!"
695 FORf=1TO5000:NEXTf
700 END:REM sys64738 ist[llet t{pound}mmer minnet
1000 PRINT"{clear}{down}{right*4}{white}just a few seconds, please {.*5}"
1010 FORy=0TO319:POKE12288+y,0:NEXTy
1020 v=53248
1030 POKEv+32,0:POKEv+33,0
1040 PRINT"{clear}{green}{down}{right*14}{light green}m{pink}a{light green}n{pink}i{light green}c{right}{pink}-{right}{light green}s{pink}o{light green}f{pink}t"
1050 PRINT"{down}{right*15}{yellow}{reverse on} presents {reverse off}"
1060 PRINT"{home}{down*5}{right*12}{reverse on}{green}****************{reverse off}
1070 PRINT"{right*12}{reverse on}*{pink}{space*14}{green}*{reverse off}
1080 PRINT"{right*12}{reverse on}*{pink}{space*14}{green}*{reverse off}"
1090 PRINT"{right*12}{reverse on}*{light green}{space*14}{green}*{reverse off}"
1100 PRINT"{right*12}{reverse on}*{light green}{space*14}{green}*{reverse off}"
1110 PRINT"{right*12}{reverse on}*{light blue}{space*14}{green}*{reverse off}"
1120 PRINT"{right*12}{reverse on}*{light blue}{space*14}{green}*{reverse off}"
1130 PRINT"{right*12}{reverse on}****************{reverse off}"
1140 GOSUB1210
1150 a$="{down}{right*4}{gray}programmed in a special dialect,":GOSUB1370
1160 a$="{down}{right*9}{pink}{reverse on}r{reverse off}{light gray}eagan's {light green}{reverse on}g{reverse off}{light gray}oofy {light blue}{reverse on}b{reverse off}{light gray}asic.":GOSUB1370
1170 a$="{down}{right*8}{cyan}(c) 1986 by manic-soft.":GOSUB1370
1180 a$="{down}{right*10}{light gray}watch out for {yellow}m{light green}c{pink}s{light gray}!":GOSUB1370
1190 a$="{down}{right*6}({right}{yellow}manic {light green}computer {pink}service.{right}{light gray})":GOSUB1370
1193 FORq=1TO7000:NEXTq
1196 FORy=0TO319:POKE12288+y,0:NEXTy
1200 RETURN
1210 POKEv+21,255
1220 POKEv+23,255:POKEv+29,0
1230 POKE2040,192:POKE2041,193:POKE2042,194:POKE2043,195:POKE2044,196
1240 POKEv+28,255
1250 POKEv+37,15:POKEv+38,12
1260 POKEv+0,128:POKEv+1,102
1270 POKEv+2,150:POKEv+3,102
1280 POKEv+4,172:POKEv+5,102
1290 POKEv+6,194:POKEv+7,102
1300 POKEv+8,216:POKEv+9,102
1310 FORx=39TO43:POKEv+x,11:NEXTx
1320 FORy=0TO319
1330 READa
1340 POKE12288+y,a
1350 NEXTy
1360 RETURN
1370 FORi=1TOLEN(a$):PRINTMID$(a$,i,1);:FORj=1TO70:NEXT:NEXT:PRINT:RETURN
1380 DATA2,0,0,14,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0
1390 DATA30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,170,168,31,255,248
1400 DATA21,85,112,21,85,64,0
1410 DATA0,10,0,0,62,128,0,95,160,1,87,224,5,133,232,7,1,248,22,1,120,30,0,120
1420 DATA30,0,120,30,0,120,30,0,120,30,0,120,30,0,120,30,0,120,30,128,120,31
1430 DATA128,112,23,161,96,7,233,192,5,245,0,1,84,0,0,80,0,0
1440 DATA10,170,168,63,255,248,85,85,112,85,85,64,0,120,0,0,120,0,0,120,0,0,120
1450 DATA0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120
1460 DATA0,0,120,0,0,120,0,0,112,0,0,64,0,0
1470 DATA10,170,168,63,255,248,85,85,112,85,85,64,0,120,0,0,120,0,0,120,0,0,120
1480 DATA0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120
1490 DATA0,0,120,0,0,120,0,0,112,0,0,64,0,0
1500 DATA0,10,0,0,62,128,0,95,160,1,87,224,5,133,232,7,1,248,22,1,120,30,0,120
1510 DATA30,0,120,30,0,120,30,0,120,30,0,120,30,0,120,30,0,120,30,128,120,31
1520 DATA128,112,23,161,96,7,233,192,5,245,0,1,84,0,0,80,0,0
stop tok64
(bastext 1.0)