Skip to content

Instantly share code, notes, and snippets.

@sblendorio
Last active September 30, 2021 08:12
Show Gist options
  • Save sblendorio/d7bb25e3bd11645129855306823bd7d0 to your computer and use it in GitHub Desktop.
Save sblendorio/d7bb25e3bd11645129855306823bd7d0 to your computer and use it in GitHub Desktop.
kickstart-c16
10 graphic1,1:dr=0:x=72:y=24
20 reada$,b$:a=dec(a$):b=dec(b$)
30 ifa=255andb=255then80
40 ifa=255andb<>255thendr=0:reada$,b$:a=dec(a$):b=dec(b$):goto60
50 ifa=254thendr=0:readc$,d$:c=dec(c$):d=dec(d$):paint-(b=1),c+x,d+y:goto20
60 ifdr=0thendr=1:draw,a+x,b+y:elsedrawtoa+x,b+y
70 goto20
80 char,10+(x/8),10+(y/8),"basic":char,13+(x/8),13+(y/8),"v3.5"
90 getkeya$:graphicclr
100 data ff,01,23,0b,3a,0b,3a,21,71,21,71,0b,7d,0b,88,16,88,5e,7f,5e,7f,38,40,38
110 data 3e,36,35,36,34,38,2d,38,2d,41,23,48,23,0b,fe,02,25,45,ff,01,21,48,21,0a
120 data 7e,0a,8a,16,8a,5f,56,5f,56,64,52,6c,4e,71,4a,74,44,7d,3c,81,3c,8c,0a,8c
130 data 0a,6d,09,6d,09,51,0d,4b,14,45,15,41,19,3a,1e,37,21,36,21,36,1e,38,1a,3a
140 data 16,41,15,45,0e,4b,0a,51,0a,6c,0b,6d,0b,8b,28,8b,28,76,30,76,34,72,34,5f
150 data 32,5c,32,52,41,45,41,39,3e,37,3b,37,3e,3a,3e,41,3d,42,36,42,33,3f,2a,46
160 data 1e,4c,12,55,12,54,1e,4b,1a,4a,17,47,1a,49,1e,4a,21,48,ff,01,32,3d,34,36
170 data 3c,37,3d,3a,3d,41,36,41,32,3d,ff,01,33,5c,33,52,42,45,42,39,7d,39,7d,5e
180 data 34,5e,33,5a,ff,01,3c,0b,6f,0b,6f,20,3c,20,3c,0b,ff,01,60,0e,6b,0e,6b,1c
190 data 60,1c,60,0e,fe,03,3e,1f,ff,01,62,0f,69,0f,69,1b,62,1b,62,0f,fe,02,63,1a
200 data ff,01,2f,39,32,39,32,3b,2f,3f,2f,39,ff,01,29,8b,29,77,30,77,35,72,35,69
210 data 39,6b,41,6b,41,6d,45,72,49,72,49,74,43,7d,3b,80,3b,8b,29,8b,ff,01,35,5f
220 data 35,64,3a,61,35,5f,ff,01,39,62,35,64,35,5f,4a,5f,40,69,3f,69,41,67,3c,62
230 data 39,62,ff,01,4e,5f,55,5f,55,64,51,6c,4e,70,49,71,46,71,43,6d,43,6a,4e,5f
240 data ff,01,44,6a,44,6d,46,70,48,70,4c,6f,4d,6c,49,69,44,6a,ff,01,36,68,3e,6a
250 data 40,67,3c,63,39,63,36,65,36,68,ff,01,7e,0b,89,16,89,5e,fe,01,22,0b,fe,01
260 data 3b,0b,fe,01,61,0f,fe,01,6a,1b,fe,01,70,0f,fe,01,7e,5e,fe,01,4b,60,fe,01
270 data 2e,39,ff,ff
10 screen1:color7,0:cls:dr=0
20 reada,b
30 ifa=255andb=255then80
40 ifa=255andb<>255thendr=0:reada,b:goto60
50 ifa=254thendr=0:readc,d:ifb=1thenpaint(c,d)
60 ifa<254anddr=0thendr=1:pset(a,b):goto70
65 ifa<254anddr<>0thenline-(a,b)
70 goto20
80 locate10,10:print"amiga":locate14,14:print"gwbasic on c64"
90 i$=inkey$:if i$="" then 90
100 data 255,1,35,11,58,11,58,33,113,33,113
101 data 11,125,11,136,22,136,94,127,94,127,56
110 data 64,56,62,54,53,54,52,56,45,56,45,65,35
111 data 72,35,11,254,2,37,69,255,1,33,72,33,10
120 data 126,10,138,22,138,95,86,95,86,100,82,108
121 data 78,113,74,116,68,125,60,129,60,140,10
130 data 140,10,109,9,109,9,81,13,75,20,69,21,65
131 data 25,58,30,55,33,54,33,54,30,56,26,58,22
140 data 65,21,69,14,75,10,81,10,108,11,109,11
141 data 139,40,139,40,118,48,118,52,114,52,95,50
150 data 92,50,82,65,69,65,57,62,55,59,55,62,58
151 data 62,65,61,66,54,66,51,63,42,70,30,76,18
160 data 85,18,84,30,75,26,74,23,71,26,73,30,74
161 data 33,72,255,1,50,61,52,54,60,55,61,58,61
170 data 65,54,65,50,61,255,1,51,92,51,82,66,69
171 data 66,57,125,57,125,94,52,94,51,90,255,1
180 data 60,11,111,11,111,32,60,32,60,11,255,1
181 data 96,14,107,14,107,28,96,28,96,14,254,3,62
190 data 31,255,1,98,15,105,15,105,27,98,27,98
191 data 15,254,2,99,26,255,1,47,57,50,57,50,59,47
200 data 63,47,57,255,1,41,139,41,119,48,119,53
201 data 114,53,105,57,107,65,107,65,109,69,114,73
210 data 114,73,116,67,125,59,128,59,139,41,139
211 data 255,1,53,95,53,100,58,97,53,95,255,1,57
220 data 98,53,100,53,95,74,95,64,105,63,105,65
221 data 103,60,98,57,98,255,1,78,95,85,95,85,100
230 data 81,108,78,112,73,113,70,113,67,109,67
231 data 106,78,95,255,1,68,106,68,109,70,112,72
240 data 112,76,111,77,108,73,105,68,106,255,1
241 data 54,104,62,106,64,103,60,99,57,99,54,101
250 data 54,104,255,1,126,11,137,22,137,94,254,1
251 data 34,11,254,1,59,11,254,1,97,15,254,1,106
260 data 27,254,1,112,15,254,1,126,94,254,1,75
261 data 96,254,1,46,57,255,255
10 screen 1:cls:dr=0:x=72:y=8*3
15 palette 1,0:palette 2,9:palette 3,7:palette 0,15
16 key off
20 read a,b
30 if a=255 and b=255 then 80
40 if a=255 and b<>255 then dr=0:read a,b:goto 60
50 if a=254 then dr=0:read c,d:paint(c+x,d+y),b,1:goto 20
60 if dr=0 then dr=1:pset(a+x,b+y),1:goto 70
65 if dr<>0 then line-(a+x,b+y),1
70 goto 20
80 locate 11+(y/8),9+(x/8):print"GWBASIC":locate 14+(y/8),13+(x/8):print"V3.23"
90 i$=inkey$:if i$="" then 90
100 data 255,1,35,11,58,11,58,33,113,33,113
101 data 11,125,11,136,22,136,94,127,94,127,56
110 data 64,56,62,54,53,54,52,56,45,56,45,65,35
111 data 72,35,11,254,2,37,69,255,1,33,72,33,10
120 data 126,10,138,22,138,95,86,95,86,100,82,108
121 data 78,113,74,116,68,125,60,129,60,140,10
130 data 140,10,109,9,109,9,81,13,75,20,69,21,65
131 data 25,58,30,55,33,54,33,54,30,56,26,58,22
140 data 65,21,69,14,75,10,81,10,108,11,109,11
141 data 139,40,139,40,118,48,118,52,114,52,95,50
150 data 92,50,82,65,69,65,57,62,55,59,55,62,58
151 data 62,65,61,66,54,66,51,63,42,70,30,76,18
160 data 85,18,84,30,75,26,74,23,71,26,73,30,74
161 data 33,72,255,1,50,61,52,54,60,55,61,58,61
170 data 65,54,65,50,61,255,1,51,92,51,82,66,69
171 data 66,57,125,57,125,94,52,94,51,90,255,1
180 data 60,11,111,11,111,32,60,32,60,11,255,1
181 data 96,14,107,14,107,28,96,28,96,14,254,3,62
190 data 31,255,1,98,15,105,15,105,27,98,27,98
191 data 15,254,2,99,26,255,1,47,57,50,57,50,59,47
200 data 63,47,57,255,1,41,139,41,119,48,119,53
201 data 114,53,105,57,107,65,107,65,109,69,114,73
210 data 114,73,116,67,125,59,128,59,139,41,139
211 data 255,1,53,95,53,100,58,97,53,95,255,1,57
220 data 98,53,100,53,95,74,95,64,105,63,105,65
221 data 103,60,98,57,98,255,1,78,95,85,95,85,100
230 data 81,108,78,112,73,113,70,113,67,109,67
231 data 106,78,95,255,1,68,106,68,109,70,112,72
240 data 112,76,111,77,108,73,105,68,106,255,1
241 data 54,104,62,106,64,103,60,99,57,99,54,101
250 data 54,104,255,1,126,11,137,22,137,94,254,1
251 data 34,11,254,1,59,11,254,1,97,15,254,1,106
260 data 27,254,1,112,15,254,1,126,94,254,1,75
261 data 96,254,1,46,57,255,255
0 SCREEN 9: dr = 0: REM scr9?
20 READ a$, b$: a = VAL("&H" + a$): b = VAL("&H" + b$)
30 IF (a = 255 AND b = 255) OR (a$ = "ff" AND b$ = "ff") THEN 80
40 REM
IF a = 255 AND b <> 255 THEN
dr = 0: READ a$, b$: a = VAL("&H" + a$): b = VAL("&H" + b$)
GOTO 60
END IF
50 REM
IF a = 254 THEN
dr = 0
READ c$, d$
c = VAL("&H" + c$)
d = VAL("&H" + d$)
PSET (c, d): REM locate c,d : paint-(b=1),c,d :
GOTO 20
END IF
60 REM
IF dr = 0 THEN
dr = 1
PSET (a, b), 7: REM draw,a,b
ELSE
LINE -(a, b): REM line (a,b) : draw to a,b
END IF
70 GOTO 20
80 LOCATE 10, 10: PRINT "qbasic": LOCATE 13, 13: PRINT "64": REM char,10,10,"basic":char,13,13,"v3.5"
90 LOCATE 20, 20: INPUT a$: REM getkey a$:
CLS
100 DATA ff,01,23,0b,3a,0b,3a,21,71,21,71,0b,7d,0b,88,16,88,5e,7f,5e,7f,38,40,38
120 DATA 3e,36,35,36,34,38,2d,38,2d,41,23,48,23,0b,fe,02,25,45,ff,01,21,48,21,0a
130 DATA 7e,0a,8a,16,8a,5f,56,5f,56,64,52,6c,4e,71,4a,74,44,7d,3c,81,3c,8c,0a,8c
140 DATA 0a,6d,09,6d,09,51,0d,4b,14,45,15,41,19,3a,1e,37,21,36,21,36,1e,38,1a,3a
150 DATA 16,41,15,45,0e,4b,0a,51,0a,6c,0b,6d,0b,8b,28,8b,28,76,30,76,34,72,34,5f
160 DATA 32,5c,32,52,41,45,41,39,3e,37,3b,37,3e,3a,3e,41,3d,42,36,42,33,3f,2a,46
170 DATA 1e,4c,12,55,12,54,1e,4b,1a,4a,17,47,1a,49,1e,4a,21,48,ff,01,32,3d,34,36
180 DATA 3c,37,3d,3a,3d,41,36,41,32,3d,ff,01,33,5c,33,52,42,45,42,39,7d,39,7d,5e
190 DATA 34,5e,33,5a,ff,01,3c,0b,6f,0b,6f,20,3c,20,3c,0b,ff,01,60,0e,6b,0e,6b,1c
200 DATA 60,1c,60,0e,fe,03,3e,1f,ff,01,62,0f,69,0f,69,1b,62,1b,62,0f,fe,02,63,1a
210 DATA ff,01,2f,39,32,39,32,3b,2f,3f,2f,39,ff,01,29,8b,29,77,30,77,35,72,35,69
220 DATA 39,6b,41,6b,41,6d,45,72,49,72,49,74,43,7d,3b,80,3b,8b,29,8b,ff,01,35,5f
230 DATA 35,64,3a,61,35,5f,ff,01,39,62,35,64,35,5f,4a,5f,40,69,3f,69,41,67,3c,62
240 DATA 39,62,ff,01,4e,5f,55,5f,55,64,51,6c,4e,70,49,71,46,71,43,6d,43,6a,4e,5f
250 DATA ff,01,44,6a,44,6d,46,70,48,70,4c,6f,4d,6c,49,69,44,6a,ff,01,36,68,3e,6a
260 DATA 40,67,3c,63,39,63,36,65,36,68,ff,01,7e,0b,89,16,89,5e,fe,01,22,0b,fe,01
270 DATA 3b,0b,fe,01,61,0f,fe,01,6a,1b,fe,01,70,0f,fe,01,7e,5e,fe,01,4b,60,fe,01
280 DATA 2e,39,ff,ff
10 hgr:dr=0:hcolor= 7:home
20 read a,b
30 if a=255 and b=255 then 80
40 if a=255 and b<>255 then dr=0 : read a,b : goto 60
50 if a=254 then dr=0 : read c,d : goto 20 : rem hplot c,d : goto 20 : rem locate c,d:paint-(b=1),c,d:goto 20
60 if dr=0 then 65
61 hplot to a,b : rem hplot to a,b
64 goto 69
65 dr=1 : hplot a,b : rem draw,a,b: else draw to a,b
69 rem
70 goto 20
80 htab 3 : vtab 21 : PRINT "APPLESOFT - APPLE ii / APPLE 2" : rem char,10,10,"basic":char,13,13,"v3.5"
90 input a$: rem getkeya$:graphicclr
100 data 255 , 1 , 35 , 11 , 58 , 11 , 58 , 33 , 113 , 33 , 113 , 11 , 125 , 11 , 136 , 22 , 136 , 94 , 127 , 94 , 127 , 56 , 64
110 data 56 , 62 , 54 , 53 , 54 , 52 , 56 , 45 , 56 , 45 , 65 , 35 , 72 , 35 , 11 , 254 , 2 , 37 , 69 , 255 , 1 , 33 , 72 , 33
120 data 10 , 126 , 10 , 138 , 22 , 138 , 95 , 86 , 95 , 86 , 100 , 82 , 108 , 78 , 113 , 74 , 116 , 68 , 125 , 60 , 129 , 60
130 data 140 , 10 , 140 , 10 , 109 , 9 , 109 , 9 , 81 , 13 , 75 , 20 , 69 , 21 , 65 , 25 , 58 , 30 , 55 , 33 , 54 , 33 , 54 , 30
140 data 56 , 26 , 58 , 22 , 65 , 21 , 69 , 14 , 75 , 10 , 81 , 10 , 108 , 11 , 109 , 11 , 139 , 40 , 139 , 40 , 118 , 48 , 118
150 data 52 , 114 , 52 , 95 , 50 , 92 , 50 , 82 , 65 , 69 , 65 , 57 , 62 , 55 , 59 , 55 , 62 , 58 , 62 , 65 , 61 , 66 , 54 , 66
160 data 51 , 63 , 42 , 70 , 30 , 76 , 18 , 85 , 18 , 84 , 30 , 75 , 26 , 74 , 23 , 71 , 26 , 73 , 30 , 74 , 33 , 72 , 255 , 1
170 data 50 , 61 , 52 , 54 , 60 , 55 , 61 , 58 , 61 , 65 , 54 , 65 , 50 , 61 , 255 , 1 , 51 , 92 , 51 , 82 , 66 , 69 , 66 , 57
180 data 125 , 57 , 125 , 94 , 52 , 94 , 51 , 90 , 255 , 1 , 60 , 11 , 111 , 11 , 111 , 32 , 60 , 32 , 60 , 11 , 255 , 1 , 96
190 data 14 , 107 , 14 , 107 , 28 , 96 , 28 , 96 , 14 , 254 , 3 , 62 , 31 , 255 , 1 , 98 , 15 , 105 , 15 , 105 , 27 , 98 , 27
200 data 98 , 15 , 254 , 2 , 99 , 26 , 255 , 1 , 47 , 57 , 50 , 57 , 50 , 59 , 47 , 63 , 47 , 57 , 255 , 1 , 41 , 139 , 41 , 119
210 data 48 , 119 , 53 , 114 , 53 , 105 , 57 , 107 , 65 , 107 , 65 , 109 , 69 , 114 , 73 , 114 , 73 , 116 , 67 , 125 , 59 , 128
220 data 59 , 139 , 41 , 139 , 255 , 1 , 53 , 95 , 53 , 100 , 58 , 97 , 53 , 95 , 255 , 1 , 57 , 98 , 53 , 100 , 53 , 95 , 74 , 95
230 data 64 , 105 , 63 , 105 , 65 , 103 , 60 , 98 , 57 , 98 , 255 , 1 , 78 , 95 , 85 , 95 , 85 , 100 , 81 , 108 , 78 , 112 , 73
240 data 113 , 70 , 113 , 67 , 109 , 67 , 106 , 78 , 95 , 255 , 1 , 68 , 106 , 68 , 109 , 70 , 112 , 72 , 112 , 76 , 111 , 77
250 data 108 , 73 , 105 , 68 , 106 , 255 , 1 , 54 , 104 , 62 , 106 , 64 , 103 , 60 , 99 , 57 , 99 , 54 , 101 , 54 , 104 , 255 , 1
260 data 126 , 11 , 137 , 22 , 137 , 94 , 254 , 1 , 34 , 11 , 254 , 1 , 59 , 11 , 254 , 1 , 97 , 15 , 254 , 1 , 106 , 27 , 254 , 1
270 data 112 , 15 , 254 , 1 , 126 , 94 , 254 , 1 , 75 , 96 , 254 , 1 , 46 , 57 , 255 , 255
5 REM THE AMIGA HAND - BY CARLO SANTAGOSTINO IN 2021
10 CLS
20 READ a,b
30 IF a=255 AND b=255 THEN GO TO 90
40 IF a=255 AND b<>255 THEN LET dr=0: READ a,b: GO TO 60
50 IF a=254 THEN LET dr=0: READ c,d: GO TO 20
60 IF dr=0 THEN LET dr=1: PLOT a,b-176: LET x=a: LET y=b: GO TO 20
70 DRAW a-x,y-b: LET x=a: LET y=b
80 GO TO 20
90 PRINT AT 9,8;"ZXBASIC": PRINT AT 10,7;"SINCLAIR"
100 DATA 255,1,35,11,58,11,58,33,113,33,113,11,125,11,136,22,136,94,127,94,127,56,64,56
120 DATA 62,54,53,54,52,56,45,56,45,65,35,72,35,11,254,2,37,69,255,1,33,72,33,10
130 DATA 126,10,138,22,138,95,86,95,86,100,82,108,78,113,74,116,68,125,60,129,60,140,10,140
140 DATA 10,109,9,109,9,81,13,75,20,69,21,65,25,58,30,55,33,54,33,54,30,56,26,58
150 DATA 22,65,21,69,14,75,10,81,10,108,11,109,11,139,40,139,40,118,48,118,52,114,52,95
160 DATA 50,92,50,82,65,69,65,57,62,55,59,55,62,58,62,65,61,66,54,66,51,63,42,70
170 DATA 30,76,18,85,18,84,30,75,26,74,23,71,26,73,30,74,33,72,255,1,50,61,52,54
180 DATA 60,55,61,58,61,65,54,65,50,61,255,1,51,92,51,82,66,69,66,57,125,57,125,94
190 DATA 52,94,51,90,255,1,60,11,111,11,111,32,60,32,60,11,255,1,96,14,107,14,107,28
200 DATA 96,28,96,14,254,3,62,31,255,1,98,15,105,15,105,27,98,27,98,15,254,2,99,26
210 DATA 255,1,47,57,50,57,50,59,47,63,47,57,255,1,41,139,41,119,48,119,53,114,53,105
220 DATA 57,107,65,107,65,109,69,114,73,114,73,116,67,125,59,128,59,139,41,139,255,1,53,95
230 DATA 53,100,58,97,53,95,255,1,57,98,53,100,53,95,74,95,64,105,63,105,65,103,60,98
240 DATA 57,98,255,1,78,95,85,95,85,100,81,108,78,112,73,113,70,113,67,109,67,106,78,95
250 DATA 255,1,68,106,68,109,70,112,72,112,76,111,77,108,73,105,68,106,255,1,54,104,62,106
260 DATA 64,103,60,99,57,99,54,101,54,104,255,1,126,11,137,22,137,94,254,1,34,11,254,1
270 DATA 59,11,254,1,97,15,254,1,106,27,254,1,112,15,254,1,126,94,254,1,75,96,254,1
280 DATA 46,57,255,255
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment