sblendorio/kickstart-c16-francesco-sblendorio.bas

## kickstart-c16-francesco-sblendorio.bas
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

## kickstart-gwbasic-c64-francesco-fiorentini.bas
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

## kickstart-gwbasic-ega.bas
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

## kickstart-qbasic-by-"Toto Cuelo"profile-844254597.bas
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

## kickstart-zAppleSoft-by Toto Cuelo-profile-844254597.bas
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

## kickstart-zx-spectrum-Carlo Santagostino.bas
   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
	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