~aleteoryx/uxn

ref: 55f239d000936c242d0ed32c7d7aaf30744e5f8f uxn/ibm.tal -rw-r--r-- 227 bytes
55f239d0 — Aleteoryx ibm, fold, dos<->unix 2 months ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

@on-reset
	[ LITr 01 ]
	#18
	@loop24
		#14
		@loop80
			;str puts
			#2018 DEO
			STHrk SUB
			DUP ?loop80
		POP
		#0a18 DEO
		STHrk SUB
		DUP ?loop24
	BRK

@puts ( s* -- )
	LDAk #18 DEO
	INC2 LDAk ?puts
	POP2 JMP2r

@str "IBM