1000 A=10:GOTO 20:REM   MR. SPOCK
1010 RESTORE
1020 CC(0)=0:CC(1)=7:GOSUB 600
1030 FOR K=0 TO 850
1040 READ X1,Y1,X2,Y2
1050 HO=(X1+20)/HG:VE=Y1/VG:GOSUB 620
1051 REM HO=2*(X1+20)/HG:VE=Y1/VG:GOSUB 620:REM Amstrad PCW
1060 HO=(X2+20)/HG:VE=Y2/VG:GOSUB 630
1061 REM HO=2*(X2+20)/HG:VE=Y2/VG:GOSUB 630:REM Amstrad PCW
1070 NEXT K
1080 GOSUB 210:GOSUB 210:GOTO 950
25000 DATA 0,0,0,191,0,0,279,0,279,0,279,191
25010 DATA 0,191,279,191,120,3,128,3,114,4,133,4
25020 DATA 109,5,136,5,106,6,138,6,103,7,140,7
25030 DATA 102,8,141,8,101,9,143,9,99,10,144,10
25040 DATA 97,11,145,11,96,12,146,12,95,13,148,13
25050 DATA 94,14,149,14,93,15,150,15,92,16,151,16
25060 DATA 91,17,152,17,90,18,153,18,90,19,154,19
25070 DATA 89,20,154,20,89,21,155,21,88,22,156,22
25080 DATA 88,23,157,23,87,24,157,24,87,25,158,25
25090 DATA 86,26,159,26,86,27,159,27,85,28,160,28
25100 DATA 85,29,161,29,85,30,161,30,84,31,161,31
25110 DATA 84,32,162,32,84,33,162,33,83,34,163,34
25120 DATA 83,35,163,35,83,36,164,36
25130 DATA 82,37,164,37,82,38,164,38,82,39,165,39
25140 DATA 82,40,165,40,81,41,165,41,81,42,165,42
25150 DATA 81,43,166,43,81,44,166,44,81,45,166,45
25160 DATA 81,46,166,46,80,47,109,47,112,47,165,47
25170 DATA 81,48,109,48,116,48,165,48,81,49,109,49
25180 DATA 120,49,156,49,160,49,166,49,48,50,50,50
25190 DATA 81,50,109,50,124,50,153,50,161,50,165,50
25200 DATA 47,51,51,51,81,51,109,51,129,51,150,51
25210 DATA 161,51,165,51,45,52,47,52,51,52,53,52
25220 DATA 81,52,109,52,132,52,147,52,161,52,165,52
25230 DATA 26,53,28,53,45,53,46,53,52,53,53,53
25240 DATA 81,53,109,53,161,53,165,53,25,54,30,54
25250 DATA 44,54,46,54,52,54,54,54,57,54,58,54
25260 DATA 82,54,109,54,161,54,165,54,25,55,25,55
25270 DATA 30,55,32,55,44,55,46,55,53,55,59,55
25280 DATA 82,55,110,55,162,55,165,55,23,56,24,56
25290 DATA 31,56,32,56,44,56,46,56,54,56,55,56
25300 DATA 59,56,60,56,82,56,110,56,157,56,158,56
25310 DATA 162,56,164,56,22,57,24,57,31,57,32,57
25320 DATA 44,57,45,57,54,57,55,57,59,57,60,57
25330 DATA 83,57,112,57,157,57,158,57,162,57,165,57
25340 DATA 22,58,23,58,31,58,32,58,44,58,45,58
25350 DATA 53,58,54,58,60,58,61,58,78,58,78,58
25360 DATA 83,58,114,58,156,58,157,58,162,58,164,58
25370 DATA 22,59,23,59,31,59,32,59,44,59,45,59
25380 DATA 53,59,54,59,60,59,61,59,78,59,79,59
25390 DATA 83,59,116,59,155,59,157,59,162,59,164,59
25400 DATA 22,60,23,60,31,60,32,60,43,60,45,60
25410 DATA 53,60,54,60,60,60,61,60,78,60,80,60
25420 DATA 84,60,118,60,152,60,156,60,162,60,164,60
25430 DATA 22,61,23,61,31,61,32,61,43,61,45,61
25440 DATA 53,61,54,61,60,61,61,61,79,61,81,61
25450 DATA 84,61,120,61,151,61,155,61,162,61,163,61
25460 DATA 22,62,23,62,31,62,32,62,43,62,45,62
25470 DATA 53,62,54,62,60,62,61,62,79,62,81,62
25480 DATA 84,62,122,62,148,62,154,62,162,62,163,62
25490 DATA 22,63,23,63,31,63,32,63,43,63,45,63
25500 DATA 53,63,54,63,60,63,61,63,80,63,124,63
25510 DATA 146,63,154,63,162,63,162,63,22,64,23,64
25520 DATA 31,64,32,64,42,64,44,64,53,64,54,64
25530 DATA 60,64,60,64,80,64,127,64,142,64,152,64
25540 DATA 162,64,162,64,22,65,23,65,32,65,32,65
25550 DATA 42,65,44,65,52,65,53,65,60,65,60,65
25560 DATA 80,65,130,65,140,65,151,65,162,65,162,65
25570 DATA 22,66,23,66,32,66,32,66,42,66,44,66
25580 DATA 52,66,53,66,60,66,60,66,80,66,118,66
25590 DATA 120,66,130,66,139,66,144,66,146,66,155,66
25600 DATA 162,66,162,66,22,67,23,67,32,67,32,67
25610 DATA 42,67,43,67,52,67,53,67,60,67,60,67
25620 DATA 81,67,117,67,121,67,123,67,126,67,130,67
25630 DATA 139,67,144,67,147,67,156,67,162,67,163,67
25640 DATA 19,68,23,68,32,68,32,68,41,68,43,68
25650 DATA 52,68,53,68,60,68,60,68,81,68,111,68
25660 DATA 122,68,123,68,128,68,130,68,141,68,143,68
25670 DATA 149,68,156,68,162,68,163,68,18,69,23,69
25680 DATA 32,69,32,69,41,69,42,69,52,69,53,69
25690 DATA 60,69,60,69,81,69,107,69,128,69,130,69
25700 DATA 154,69,156,69,162,69,162,69,17,70,18,70
25710 DATA 22,70,23,70,32,70,32,70,41,70,42,70
25720 DATA 52,70,53,70,60,70,60,70,81,70,104,70
25730 DATA 129,70,129,70,17,71,17,71,23,71,24,71
25740 DATA 32,71,32,71,40,71,41,71,52,71,53,71
25750 DATA 60,71,60,71,81,71,102,71,129,71,129,71
25760 DATA 17,72,17,72,24,72,24,72,32,72,32,72
25770 DATA 40,72,41,72,52,72,53,72,60,72,60,72
25780 DATA 81,72,101,72,16,73,17,73,24,73,24,73
25790 DATA 32,73,32,73,40,73,41,73,52,73,52,73
25800 DATA 60,73,60,73,81,73,101,73,15,74,16,74
25810 DATA 24,74,24,74,32,74,32,74,40,74,41,74
25820 DATA 51,74,52,74,60,74,60,74,81,74,96,74
25830 DATA 98,74,101,74,128,74,129,74,15,75,16,75
25840 DATA 24,75,24,75,32,75,32,75,40,75,41,75
25850 DATA 51,75,51,75,60,75,60,75,81,75,96,75
25860 DATA 98,75,102,75,127,75,129,75,15,76,16,76
25870 DATA 24,76,24,76,32,76,32,76,39,76,40,76
25880 DATA 51,76,51,76,59,76,60,76,82,76,96,76
25890 DATA 98,76,103,76,127,76,129,76,15,77,16,77
25900 DATA 24,77,24,77,32,77,32,77,39,77,40,77
25910 DATA 50,77,51,77,59,77,60,77,82,77,96,77
25920 DATA 99,77,103,77,126,77,129,77,15,78,16,78
25930 DATA 24,78,24,78,32,78,33,78,39,78,40,78
25940 DATA 50,78,51,78,59,78,60,78,82,78,96,78
25950 DATA 100,78,104,78,126,78,129,78
25960 DATA 14,79,15,79,24,79,24,79,32,79,33,79
25970 DATA 39,79,40,79,50,79,51,79,59,79,60,79
25980 DATA 83,79,96,79,100,79,105,79,124,79,128,79
25990 DATA 14,80,15,80,24,80,24,80,32,80,33,80
26000 DATA 38,80,39,80,50,80,50,80,59,80,60,80
26010 DATA 83,80,94,80,99,80,106,80,124,80,128,80
26020 DATA 14,81,15,81,24,81,24,81,32,81,33,81
26030 DATA 38,81,39,81,49,81,50,81,59,81,60,81
26040 DATA 84,81,93,81,98,81,106,81,123,81,128,81
26050 DATA 14,82,15,82,24,82,24,82,32,82,33,82
26053 DATA 38,82,39,82,49,82,50,82,59,82,60,82
26056 DATA 84,82,92,82,98,82,106,82,123,82,128,82
26060 DATA 14,83,15,83,24,83,24,83,32,83,33,83
26065 DATA 38,83,39,83,49,83,50,83,59,83,59,83
26070 DATA 85,83,92,83,97,83,107,83,123,83,128,83
26080 DATA 14,84,15,84,24,84,24,84,33,84,33,84
26090 DATA 38,84,38,84,49,84,50,84,59,84,59,84
26100 DATA 86,84,92,84,97,84,108,84,123,84,128,84
26110 DATA 14,85,15,85,24,85,24,85,33,85,33,85
26120 DATA 37,85,38,85,49,85,49,85,59,85,59,85
26130 DATA 86,85,92,85,97,85,110,85,124,85,128,85
26140 DATA 14,86,15,86,25,86,25,86,34,86,34,86
26150 DATA 37,86,37,86,49,86,50,86,59,86,59,86
26160 DATA 87,86,93,86,97,86,111,86,124,86,128,86
26170 DATA 14,87,15,87,25,87,25,87,34,87,34,87
26180 DATA 37,87,37,87,49,87,50,87,59,87,59,87
26190 DATA 88,87,93,87,98,87,111,87,124,87,128,87
26200 DATA 14,88,15,88,25,88,25,88,34,88,34,88
26210 DATA 37,88,37,88,49,88,50,88,59,88,59,88
26220 DATA 89,88,93,88,97,88,111,88,124,88,130,88
26230 DATA 120,89,121,89,14,89,15,89,25,89,25,89
26240 DATA 34,89,34,89,37,89,37,89,49,89,50,89
26250 DATA 59,89,59,89,90,89,92,89,97,89,111,89
26260 DATA 124,89,130,89,14,90,15,90,25,90,25,90
26270 DATA 34,90,34,90,36,90,36,90,48,90,50,90
26280 DATA 59,90,59,90,97,90,112,90,120,90,121,90
26290 DATA 125,90,132,90,14,91,15,91,25,91,25,91
26300 DATA 34,91,34,91,36,91,36,91,48,91,50,91
26310 DATA 59,91,59,91,96,91,113,91,119,91,120,91
26320 DATA 125,91,132,91,14,92,15,92,25,92,25,92
26330 DATA 34,92,36,92,48,92,50,92,59,92,59,92
26340 DATA 94,92,113,92,119,92,120,92,126,92,140,92
26350 DATA 14,93,15,93,26,93,26,93,35,93,35,93
26360 DATA 48,93,49,93,59,93,59,93,94,93,113,93
26370 DATA 118,93,119,93,127,93,137,93,14,94,16,94
26380 DATA 26,94,26,94,47,94,49,94,59,94,59,94
26390 DATA 95,94,114,94,117,94,120,94,128,94,133,94
26400 DATA 15,95,16,95,26,95,26,95,46,95,48,95
26410 DATA 59,95,59,95,95,95,114,95,117,95,120,95
26420 DATA 128,95,132,95,15,96,16,96,26,96,26,96
26430 DATA 46,96,48,96,59,96,59,96,95,96,113,96
26440 DATA 117,96,120,96,15,97,16,97,26,97,26,97
26450 DATA 46,97,47,97,59,97,59,97,95,97,113,97
26460 DATA 116,97,119,97,15,98,16,98,26,98,27,98
26470 DATA 59,98,59,98,95,98,113,98,116,98,120,98
26480 DATA 15,99,16,99,26,99,27,99,59,99,59,99
26490 DATA 96,99,113,99,115,99,120,99,15,100,16,100
26500 DATA 26,100,26,100,59,100,59,100,96,100,113,100
26510 DATA 115,100,118,100,15,101,16,101,25,101,25,101
26520 DATA 58,101,59,101,96,101,114,101
26530 DATA 116,101,117,101,15,102,16,102,58,102,59,102
26540 DATA 97,102,117,102,15,103,16,103,58,103,58,103
26550 DATA 97,103,118,103,15,104,16,104,58,104,58,104
26560 DATA 97,104,121,104,15,105,16,105,58,105,58,105
26570 DATA 97,105,123,105,15,106,16,106,58,106,58,106
26580 DATA 97,106,136,106,14,107,15,107,58,107,58,107
26590 DATA 97,107,145,107,14,108,15,108,58,108,59,108
26600 DATA 97,108,116,108,118,108,123,108,14,109,15,109
26610 DATA 58,109,59,109,97,109,116,109,118,109,124,109
26620 DATA 14,110,15,110,58,110,59,110,96,110,116,110
26630 DATA 118,110,125,110,13,111,16,111,58,111,59,111
26640 DATA 95,111,116,111,118,111,128,111,13,112,16,112
26650 DATA 58,112,59,112,95,112,115,112,119,112,136,112
26660 DATA 13,113,15,113,58,113,59,113,95,113,115,113
26670 DATA 120,113,140,113,13,114,15,114,58,114,59,114
26680 DATA 90,114,92,114,95,114,116,114,121,114,137,114
26690 DATA 12,115,14,115,58,115,59,115,88,115,92,115
26700 DATA 93,115,116,115,122,115,127,115,12,116,14,116
26710 DATA 58,116,59,116,86,116,88,116,94,116,116,116
26720 DATA 12,117,14,117,58,117,59,117,84,117,86,117
26730 DATA 95,117,116,117,149,117,150,117,12,118,14,118
26740 DATA 58,118,59,118,83,118,85,118,95,118,117,118
26750 DATA 149,118,150,118,12,119,14,119,59,119,60,119
26760 DATA 82,119,84,119,94,119,117,119,149,119,150,119
26770 DATA 12,120,14,120,59,120,60,120,81,120,82,120
26780 DATA 92,120,118,120,149,120,151,120,12,121,14,121
26790 DATA 59,121,60,121,80,121,81,121,92,121,119,121
26800 DATA 149,121,151,121,12,122,14,122,60,122,61,122
26810 DATA 78,122,80,122,90,122,121,122,149,122,152,122
26820 DATA 12,123,14,123,60,123,61,123,76,123,78,123
26830 DATA 90,123,124,123,149,123,153,123,12,124,15,124
26840 DATA 60,124,61,124,73,124,75,124,89,124,124,124
26850 DATA 149,124,153,124,12,125,15,125,60,125,62,125
26860 DATA 72,125,74,125,88,125,131,125,148,125,153,125
26870 DATA 12,126,15,126,62,126,64,126,70,126,72,126
26880 DATA 87,126,140,126,147,126,154,126,13,127,15,127
26890 DATA 63,127,64,127,69,127,71,127,86,127,139,127
26900 DATA 146,127,158,127,156,127,161,127,13,128,15,128
26910 DATA 64,128,69,128,85,128,136,128,143,128,153,128
26920 DATA 159,128,164,128,13,129,15,129,67,129,67,129
26930 DATA 84,129,134,129,141,129,153,129,162,129,168,129
26940 DATA 13,130,15,130,83,130,133,130,138,130,153,130
26950 DATA 166,130,170,130,13,131,15,131,82,131,132,131
26960 DATA 136,131,153,131,169,131,173,131,13,132,15,132
26970 DATA 81,132,132,132,135,132,152,132,172,132,175,132
26980 DATA 179,132,181,132,13,133,15,133,80,133,151,133
26990 DATA 174,133,182,133,13,134,15,134,78,134,151,134
27000 DATA 177,134,184,134,14,135,16,135,77,135,150,135
27010 DATA 180,135,185,135,14,136,16,136,76,136,149,136
27020 DATA 182,136,187,136,14,137,16,137,75,137,148,137
27030 DATA 183,137,188,137,14,138,16,138,74,138,147,138
27040 DATA 14,139,16,139,73,139,146,139,15,140,17,140
27050 DATA 73,140,145,140,15,141,17,141,72,141,144,141
27060 DATA 15,142,17,142,70,142,143,142,15,143,18,143
27070 DATA 67,143,142,143,15,144,18,144,65,144,87,144
27080 DATA 98,144,111,144,116,144,141,144,15,145,18,145
27090 DATA 63,145,87,145,94,145,97,145,104,145,110,145
27100 DATA 120,145,140,145,15,146,18,146,59,146,86,146
27110 DATA 95,146,97,146,107,146,110,146,123,146,136,146
27120 DATA 15,147,19,147,59,147,85,147,96,147,100,147
27130 DATA 107,147,112,147,126,147,135,147,15,148,20,148
27140 DATA 57,148,85,148,97,148,103,148,108,148,113,148
27150 DATA 129,148,134,148,14,149,20,149,56,149,81,149
27160 DATA 100,149,116,149,13,150,21,150,34,150,34,150
27170 DATA 55,150,64,150,68,150,80,150,103,150,120,150
27180 DATA 13,151,21,151,34,151,35,151,70,151,81,151
27190 DATA 110,151,121,151,12,152,22,152,33,152,37,152
27200 DATA 41,152,42,152,54,152,55,152,72,152,82,152
27210 DATA 116,152,122,152,12,153,26,153,30,153,42,153
27220 DATA 51,153,55,153,73,153,87,153,118,153,124,153
27230 DATA 11,154,36,154,40,154,45,154,48,154,54,154
27240 DATA 74,154,87,154,120,154,125,154,10,155,29,155
27250 DATA 40,155,45,155,48,155,52,155,77,155,90,155
27260 DATA 122,155,126,155,10,156,31,156,40,156,51,156
27270 DATA 79,156,92,156,124,156,127,156,9,157,30,157
27280 DATA 41,157,39,157,80,157,95,157,125,157,127,157
27290 DATA 9,158,15,158,17,158,20,158,42,158,46,158
27300 DATA 55,158,55,158,82,158,98,158,127,158,129,158
27310 DATA 8,159,15,159,17,159,20,159,43,159,45,159
27320 DATA 54,159,55,159,83,159,99,159,127,159,128,159
27330 DATA 7,160,14,160,17,160,21,160,54,160,55,160
27340 DATA 84,160,101,160,7,161,13,161,16,161,31,161
27350 DATA 54,161,56,161,86,161,103,161,6,162,12,162
27360 DATA 17,162,21,162,28,162,32,162,54,162,56,162
27370 DATA 86,162,105,162,5,163,12,163,18,163,21,163
27380 DATA 55,163,57,163,87,163,106,163,173,163,173,163
27390 DATA 5,164,12,164,19,164,22,164,56,164,59,164
27400 DATA 89,164,107,164,173,164,174,164,5,165,11,165
27410 DATA 20,165,23,165,27,165,28,165,58,165,60,165
27420 DATA 89,165,108,165,173,165,175,165,5,166,10,166
27430 DATA 21,166,23,166,27,166,28,166,58,166,60,166
27440 DATA 90,166,110,166,173,166,176,166,5,167,10,167
27450 DATA 22,167,25,167,27,167,28,167,60,167,63,167
27460 DATA 92,167,112,167,171,167,171,167,173,167,176,167
27470 DATA 179,167,179,167,5,168,9,168,24,168,25,168
27480 DATA 27,168,28,168,61,168,63,168,93,168,113,168
27490 DATA 170,168,170,168,173,168,177,168,180,168,181,168
27500 DATA 5,169,9,169,24,169,28,169,62,169,65,169
27510 DATA 93,169,113,169,169,169,169,169,173,169,178,169
27520 DATA 181,169,182,169,5,170,8,170,25,170,25,170
27530 DATA 64,170,65,170,95,170,117,170,169,170,169,170
27540 DATA 174,170,179,170,183,170,183,170,5,171,8,171
27550 DATA 26,171,26,171,65,171,65,171,86,171,91,171
27560 DATA 96,171,118,171,169,171,169,171,174,171,179,171
27570 DATA 183,171,183,171,5,172,7,172,26,172,26,172
27580 DATA 66,172,70,172,86,172,93,172,97,172,121,172
27590 DATA 169,172,170,172,174,172,175,172,178,172,180,172
27600 DATA 183,172,183,172,5,173,7,173,26,173,26,173
27610 DATA 68,173,71,173,87,173,121,173,170,173,170,173
27620 DATA 174,173,175,173,180,173,180,173,5,174,7,174
27630 DATA 25,174,25,174,70,174,70,174,75,174,75,174
27640 DATA 88,174,122,174,174,174,174,174,5,175,6,175
27650 DATA 25,175,25,175,70,175,77,175,88,175,124,175
27660 DATA 177,175,179,175,5,176,5,176,25,176,25,176
27670 DATA 70,176,80,176,90,176,125,176,176,176,178,176
27680 DATA 5,177,5,177,25,177,25,177,31,177,31,177
27690 DATA 70,177,82,177,90,177,126,177,5,178,5,178
27700 DATA 24,178,25,178,30,178,32,178,71,178,84,178
27710 DATA 92,178,114,178,120,178,127,178,5,179,5,179
27720 DATA 23,179,24,179,30,179,31,179,71,179,84,179
27730 DATA 92,179,113,179,122,179,127,179,5,180,5,180
27740 DATA 21,180,23,180,28,180,32,180,73,180,84,180
27750 DATA 95,180,113,180,122,180,127,180,5,181,5,181
27760 DATA 21,181,23,181,29,181,31,181,73,181,85,181
27770 DATA 97,181,113,181,124,181,126,181,22,182,23,182
27780 DATA 28,182,32,182,74,182,85,182,98,182,113,182
27790 DATA 124,182,126,182,22,183,30,183,74,183,88,183
27800 DATA 98,183,114,183,21,184,25,184,74,184,114,184
27810 DATA 21,185,21,185,81,185,108,185,999,999,999,999
30000 REM
30010 REM ******************************************
30020 REM *               MR. SPOCK                *
30030 REM *                                        *
30040 REM *     FROM APPLE II BY ED - 03/2023      *
30050 REM *                                        *
30060 REM *    2023-10-09 FOR C64 BY ALVALONGO     *
30070 REM *    CONVERT TO PRG USING C64LIST.EXE    *
30080 REM ******************************************
32000 REM
32010 REM ******************************************
32020 REM *            BASICODE-FASSUNG            *
32030 REM *           THOMAS RADEMACHER            *
32040 REM *           JOYCE-USER-AG E.V.           *
32050 REM *              AUGUST 2025               *
32051 REM *                                        *
32052 REM *  Fuer JOYCE:                           * 
32053 REM *                                        *
32054 REM *  Statt Zeilen 1050 und 1060 (ausREMen) * 
32055 REM *  die Zeilen 1051 und 1061 (entREMen)   *
32056 REM *  verwenden, damit das Bild nicht       *
32057 REM *  horizontal zusammengequetscht wird !  *
32058 REM *                                        *
32059 REM *                                        *
32060 REM ******************************************