home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 79
/
079.d81
/
calc
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
42 lines
100 print"[147]":gosub160
110 poke 53281,0:poke 53280,0
120 print"[144]":print""
130 print "load";chr$(34);f$;chr$(34)",8"
140 print"run"
150 poke631,13:poke632,13:poke198,2:end
160 poke53280,0:poke53281,0:iffthenreturn
170 print"";
180 fori=1to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
190 fori=217to242:pokei,peek(i)or128:next
200 poke214,12:print"[145]"tab(4)"[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]"
210 fori=1to7:printtab(4)"[155] [151][223]":next
220 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][223]"
230 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
240 poke214,14:print"[145][155]";
250 fori=1to5:reada$:gosub260:next:goto270
260 printspc(20-len(a$)/2)""a$:a$="":return
270 gosub400:sys49152
280 print""tab(13)"[207][160][208][160][212][160][201][160][207][160][206][160][211]"
290 printtab(10)"1. [210]un [195][193][204][195] [208]rogram"
300 printtab(10)"2. [208]rint [195][193][204][195] [196]ocs"
310 printtab(10)"3. [209]uit"
320 geta$:ifa$<"1"ora$>"3"then320
330 ifa$="1"thenf$="calc v1.4 ls"
340 ifa$="2"thenf$="calc.guide.ls"
350 ifa$="3"thenf$="hello connect"
360 fori=10to0step-1:poke781,i:sys59903:next:return
370 data"[195] [193][160][204] [195]","by [196]avid [208]ankhurst"
380 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #79","[211]ubscriptions 1-800-831-2694"
390 data"[195]opyright ([195]) [196]avid[160][208]ankhurst"
400 fori=0to59:readx:poke49152+i,x:next:return
410 return
420 data 162,011,160,037,173,017,208
430 data 016,251,189,048,192,153,080
440 data 216,153,120,216,153,160,216
450 data 153,200,216,153,240,216,153
460 data 024,217,136,192,001,208,233
470 data 165,162,197,162,240,250,202
480 data 016,214,096,234,234,234,000
490 data 011,012,015,001,001,001,001
500 data 015,015,012,011