-
Notifications
You must be signed in to change notification settings - Fork 2
/
simple.bas
64 lines (58 loc) · 1.23 KB
/
simple.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
#picaxe 08m2
#DEFINE TABLE_SERTXD_USE_EEPROM
#DEFINE TABLE_SERTXD_MEM_OFFSET 10
#DEFINE TABLE_SEROUT_BAUD N2400_16
#DEFINE TABLE_SEROUT_PIN C.0
;symbols representing constants can be printed without issue
symbol c5 = $c5
main:
;#sertxd("Hello World", cr, lf)
;#sertxd("That's an annoying line!", cr,lf,"(because of all the characters that can be in a string;",cr, lf, "such as ',', ''', ';', ')', '(', ']', '[', ':', '#', ...")
;#sertxd("This line contains dynamic content that can't be printed", #w0)
;#sertxd("more:", w0, b12, c5)
;#sertxd("a bit more:", bit4)
;#serout("can use other pins too")
;#serout("using serout instead of sertxd")
pause 5000
goto main
#rem
;sertxd(cr, lf) ; 8 bytes for a single
;'#sertxdnl ; 12 bytes for a single
#endrem
#rem 71 bytes for 16
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
sertxd(cr, lf)
#endrem
#rem
; 62 for 16
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
;#sertxdnl
#endrem