home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Uptime_The_Disk_Monthly_V1_12_19xx_Uptime_staff_Side_B.d64
/
bootslow
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
40 lines
1 rem open15,8,15,"s0:bootslow":close15:save "0:bootslow",8:verify"0:bootslow",8
10 print "[147]"; : rem clear screen
20 poke 53281,0: rem background black
25 poke 53280,0: rem border black
27 print ""; : rem pencolor green
100 print chr$(142)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
110 print "comal 0.14 power driver is being loaded";
120 print
130 print "[153] this boot program works with all disk"
145 print " drives."
150 print
155 print
156 print "[176][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][174]";
160 print "[221] [150]for more info send sase to: [221]";
162 print "[171][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][179]";
170 print "[221] [158]comal users group, u.s.a., limited [221]";
180 print "[221] [158]6041 monona drive [221]";
185 print "[221] [158]madison, wi 53716 [221]";
190 print "[221] [158]608-222-4432 [221]";
200 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]";
210 print
230 print " comal programs can only be executed"
240 print " after the language has been loaded."
245 print "[159]"; : rem pencolor cyan
275 print "[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
280 print " backup this disk before you use it [146]";
899 rem
910 rem chain"hi + <return key>
920 [151] 198,9
930 [151] 631,[198]("c")
940 [151] 632,[198]("h")
950 [151] 633,[198]("a")
960 [151] 634,[198]("i")
970 [151] 635,[198]("n")
980 [151] 636,34
990 [151] 637,[198]("h")
1000 [151] 638,[198]("i")
1010 [151] 639,13
1020 [147] "power driver",8