home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 146
/
146.d81
/
bass.ram32768v2.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
226 lines
10 (NULL)sqr0:(NULL) $a000,$b000
15 'write"@0:ram32768v2.2,p,w"
20 (NULL)rnd 32768
30 (NULL)usr 1,1
40 deffna(q)=peek(252)*256+peek(251)
50 (NULL)1
60 (NULL)framhi
61 (NULL)clr #0:(NULL)/ 54296
62 (NULL)clr 1
63 (NULL)/ (NULL)one
64 (NULL)clr #55
65 (NULL)/ 1
66 (NULL)clr 655:(NULL)/ (NULL)keyboard
67 (NULL)clr 656:(NULL)/ (NULL)keyboard +1
68 (NULL)clr #72:(NULL)/ 655
69 (NULL)clr #235:(NULL)/ 656
70 (NULL)clr 53280
72 (NULL)/ (NULL)backg
74 (NULL)lp2
75 (NULL)poke 53280
76 (NULL)list $ff9f
78 (NULL)clr 197
80 (NULL)stop #64
82 (NULL)input# (NULL)lp2
120 (NULL)stop #3
130 (NULL)next (NULL)sk5
140 (NULL)stop #7
142 (NULL)data (NULL)sk5
144 (NULL)restore
146 (NULL)end #1
148 (NULL)read (NULL)sk3
151 (NULL)sk5
152 (NULL)cont (NULL)exit1
153 (NULL)sk3
154 (NULL)/ (NULL)dump3 +6
155 (NULL)/ (NULL)dump4 +6
160 (NULL)restore
170 (NULL)end #6
175 (NULL)for:(NULL)for:(NULL)for:(NULL)for
180 (NULL)/ (NULL)bank
182 ora #$08
184 (NULL)/ (NULL)bank2
190 (NULL)clr 653
191 (NULL)or
192 and #254
194 (NULL)read (NULL)sk5
200 (NULL)sys #0
210 (NULL)<
230 (NULL)read (NULL)save
240 (NULL)print
250 (NULL)save
260 (NULL)int
270 (NULL)/ (NULL)mode
280 ora #$80
290 (NULL)/ (NULL)dump3 +1
300 (NULL)clr (NULL)mode
310 (NULL)input# (NULL)sk1
312 (NULL)list (NULL)reu4
314 (NULL)clr $8380
316 (NULL)stop #120
318 (NULL)read (NULL)sk5
322 (NULL)sk4
326 (NULL)clr #$91
330 (NULL)cmd (NULL)bank
340 (NULL)list (NULL)reu2
350 (NULL)clr #$90
360 (NULL)cmd #$e0
361 (NULL)list (NULL)reu2
362 (NULL)clr #$91
363 (NULL)cmd (NULL)bank2
364 (NULL)list (NULL)reu2
365 (NULL)clr #$90
366 (NULL)cmd #$e8
367 (NULL)list (NULL)reu2
380 (NULL)sk1
430 (NULL)clr #$d0
440 (NULL)cmd #$83
450 (NULL)list (NULL)save1
452 (NULL)clr #11
454 (NULL)/ 53265
460 (NULL)clr #$d8
470 (NULL)cmd #$84
480 (NULL)list (NULL)save2
482 (NULL)clr 56576
484 (NULL)/ (NULL)bselect
486 (NULL)clr 56334
488 (NULL)/ (NULL)timer
490 (NULL)=
500 (NULL)^ (NULL)stack
510 (NULL)sys #10
520 (NULL)lp1
530 (NULL)clr (NULL)dump3 ,y
540 (NULL)/ $df00,y
550 (NULL)verify
560 (NULL)read (NULL)lp1
570 (NULL)clr #52
580 (NULL)/ 1
590 (NULL)cmd (NULL)mode
600 (NULL)clr $ff00
610 (NULL)/ $ff00
615 (NULL)change
620 (NULL)clr #55
630 (NULL)/ 1
640 (NULL)^ (NULL)mode
641 (NULL)cmd (NULL)stack
642 (NULL)sgn
645 (NULL)lp6
646 (NULL)list $ff9f
647 (NULL)clr 197
648 (NULL)stop #64
649 (NULL)read (NULL)lp6
655 (NULL)clr (NULL)bselect
658 (NULL)/ 56576
660 (NULL)clr #$7f
661 (NULL)/ 56333
662 (NULL)clr $831a
664 and #1
665 (NULL)def #$81
666 (NULL)/ 56333
667 (NULL)clr (NULL)timer
668 (NULL)/ 56334
670 (NULL)clr #$84
680 (NULL)cmd #$d8
690 (NULL)list (NULL)save2
700 (NULL)clr #$83
710 (NULL)cmd #$d0
720 (NULL)list (NULL)save1
750 (NULL)clr (NULL)mode
760 (NULL)read (NULL)sk2
770 (NULL)clr #$91
780 (NULL)cmd #$e0
790 (NULL)list (NULL)reu2
800 (NULL)clr #$90
810 (NULL)cmd (NULL)bank
820 (NULL)list (NULL)reu2
822 (NULL)clr #$91
823 (NULL)cmd #$e8
824 (NULL)list (NULL)reu2
825 (NULL)clr #$90
826 (NULL)cmd (NULL)bank2
827 (NULL)list (NULL)reu2
830 (NULL)sk2
832 (NULL)exit1
834 (NULL)clr (NULL)backg
836 (NULL)/ 53280
840 (NULL)clr (NULL)one
850 (NULL)/ 1
852 (NULL)clr (NULL)keyboard :(NULL)/ 655
854 (NULL)clr (NULL)keyboard +1:(NULL)/ 656
870 (NULL)clr #0:(NULL)/ 198
900 (NULL)not
910 (NULL)reu4
912 (NULL)sys #10
914 (NULL)lp4
916 (NULL)clr (NULL)dump4 ,y
918 (NULL)/ $df00,y
920 (NULL)verify
922 (NULL)read (NULL)lp4
924 (NULL)not
1000 (NULL)reu2
1010 (NULL)/ (NULL)dump2 +1
1020 (NULL)^ (NULL)dump2 +5
1030 (NULL)sys #10
1040 (NULL)lp3
1050 (NULL)clr (NULL)dump2 ,y
1060 (NULL)/ $df00,y
1070 (NULL)verify
1080 (NULL)read (NULL)lp3
1090 (NULL)not
2000 (NULL)save1
2010 (NULL)/ (NULL)in1 +2
2020 (NULL)^ (NULL)out1 +2
2030 (NULL)sys #0
2040 (NULL)in1
2050 (NULL)clr $9000,y
2060 (NULL)out1
2070 (NULL)/ $9000,y
2080 (NULL)print
2090 (NULL)wait #$2f
2100 (NULL)read (NULL)in1
2110 (NULL)not
3000 (NULL)save2
3010 (NULL)/ (NULL)in2 +2
3020 (NULL)^ (NULL)out2 +2
3030 (NULL)cmd #4
3040 (NULL)sys #0
3050 (NULL)in2
3060 (NULL)clr $9000,y
3070 (NULL)out2
3080 (NULL)/ $9000,y
3090 (NULL)print
3100 (NULL)read (NULL)in2
3110 (NULL)poke (NULL)in2 +2
3120 (NULL)poke (NULL)out2 +2
3130 (NULL)save
3140 (NULL)read (NULL)in2
3150 (NULL)not
10000 (NULL)dump2
10010 (NULL)abs 0,$90,0,$88,0,$a0,3,0,8,0,0
10020 (NULL)dump3
10030 (NULL)abs 0,$80,0,0,0,0,7,0,0,0,0
10032 (NULL)dump4
10034 (NULL)abs 0,$91,$80,$83,$10,1
10036 (NULL)abs 4,1,0,0,0
10040 (NULL)bank
10050 (NULL)abs 0
10060 (NULL)bank2
10070 (NULL)abs 0
10080 (NULL)mode
10090 (NULL)abs 0
10100 (NULL)mode2
10110 (NULL)abs 0
10120 (NULL)one
10130 (NULL)abs 0
10140 (NULL)bselect
10150 (NULL)abs 0
10160 (NULL)stack
10170 (NULL)abs 0
10180 (NULL)backg
10182 (NULL)abs 0
10184 (NULL)timer
10186 (NULL)abs 0
10190 (NULL)keyboard
10195 (NULL)fre 60232
55555 (NULL)2