Loadstar 60/060.d81/basics

Commodore BASIC | 2022-08-26 | 2KB | 63 lines

2 ba$="[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]"
3 a$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":fori=1to6:bd$=bd$+a$:next
5 poke198,0:poke53280,0:poke53281,0:print"[147]
6 c(1)[178]15:c(2)[178]12:c(3)[178]11:c(4)[178]12
7 bx[178]4:by[178]6:ex[178]36:bd[178]1:bc[178]4::[141]10
8 [129]i[178]1[164]3:bx[178]bx[171]1:by[178]by[171]1:ex[178]ex[170]1:bd[178]bd[170]2:bc[178]bc[170]1:[141]10:[130]:[137]18
10 oc[178][194](646):[151]646,bc:rv$[178]"":[139]rv[167]rv$[178]""
11 [151]211,bx:[151]214,by:[158]58732:[153]rv$"or"[200](ba$,ex[171]bx[171]2)"^cmd";
12 [153]rv$[200](bd$,bd[172]3):[153]rv$[166]bx)"on/"[200](ba$,ex[171]bx[171]2)"exp"
13 [151]211,bx:[151]214,by[170]1:[158]58732:[153]rv$[200](bd$,bd[172]3)"":[151]646,oc:rv[178]0
14 [142]
16 bx[178]bx[171]1:by[178]by[171]1:ex[178]ex[170]1:bd[178]bd[170]2:[142]
17 bx[178]bx[170]1:by[178]by[170]1:ex[178]ex[171]1:bd[178]bd[171]2:[142]
18 [151]214,15:[153]:[153]"list (NULL)his algorithm by mid$eff mid$ones. "
19 [153]"   (NULL)se it and right$'ll love you.  "
20 rv[178]1:ex[178]36:by[178]17:bd[178]2:bx[178]4:bc[178]15:[141]10
21 [129]i[178]1[164]3:rv[178]1:[141]16:bc[178]c(i):[141]10:[130]:[151]198,0
22 [161]a$
23 c[178]c[170].3:[151]646,c(c):[153]""[166]5)"(NULL)ress (NULL)(NULL)atnlenval to see box demo..."
24 [139]c[177]4[167]c[178]1
25 [139]a$[179][177]" "[167]22
26 ex[178]39:by[178]1:bd[178]21:bx[178]1:bc[178]15:[141]10
27 [129]i[178]1[164]10:c[178]c[170]1:[139]c[177]4[167]c[178]1
28 bc[178]c(c):[141]17:[141]10:[130]
29 bx[178]18:by[178]1:ex[178]22:bd[178]21:bc[178]14:[141]10
30 [129]i[178]1[164]17:bx[178]bx[171]1:ex[178]ex[170]1:[141]10:[130]
31 bx[178]1:by[178]11:ex[178]39:bd[178]2:bc[178]c(1):[141]10
32 [129]i[178]1[164]9:rv[178]1:by[178]by[171]1:bd[178]bd[170]2:[141]10:c[178]c[170]1:[139]c[177]4[167]c[178]1
33 bc[178]c(c):[130]:by[178]by[171]1:rv[178]1:bd[178]bd[170]1:[141]10
34 rv[178]1:bx[178]2:by[178]11:ex[178]38:bd[178]1:bc[178]6:[141]10
35 [151]214,11:[153]:[153]"cont                                  "
36 [141]58
37 bx[178]0:by[178]1:ex[178]4:bd[178]3:bc[178]c(4)
38 [129]ii[178]1[164]4:[129]i[178]1[164]5:rv[178]1:bx[178]bx[170]6:ex[178]ex[170]6:[141]10:[130]:c[178]c[170]1:[139]c[177]4[167]c[178]1
39 bc[178]c(c):by[178]by[170]5
40 bx[178]0:ex[178]4:[130]:[141]55:c3[178]1
41 ex[178]39:by[178]1:bd[178]21:bx[178]1
42 [129]i[178]1[164]10:c[178]c[170]1:[139]c[177]4[167]c[178]1
43 [139]c3[179]1[167]rv[178]1
44 [139][194](197)[178]62[167]62
45 [139][194](197)[178]60[167][138]
46 bc[178]c(c):[141]17:[141]10:[141]50:[130]
47 of[178]of[170]1:[139]of[177]4[167]of[178]1
48 c[178]of:c3[178]c3[170]1:[139]c3[177]7[167]c3[178][171]c3
49 [137]41
50 c1[178]c1[170]1:[139]c1[177]4[167]c1[178]1
51 c2[178]c2[171]1:[139]c2[179]1[167]c2[178]4
52 [151]646,c(c1):[153]"     (NULL)ress (NULL) to return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
53 [151]646,c(c2):[151]214,23:[153]:[153][166]8)"(NULL)ress (NULL)(NULL)atnlenvalcloseto (NULL)(NULL)(NULL)closeagain"
54 [142]
55 ex[178]39:by[178]1:bd[178]21:bx[178]1:bc[178][194](53281):[141]10
56 [129]i[178]1[164]10
57 [141]17:[141]10:[130]:[153]"load":[142]
58 ex[178]39:by[178]1:bd[178]21:bx[178]1:bc[178][194](53281):[141]10
59 [129]i[178]1[164]18
60 ex[178]ex[171]1:bx[178]bx[170]1:[141]10:[130]:[153]"load":[142]
61 [144]
62 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
63 [139] er[179][177]63 [167] [153]"load":[128]
64 a$[178]"hello connect":q$[178][199](34):[151]53281,7:[151]53280,7:[153]"load"
65 [153]"sysload"q$a$q$",8"
66 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]