[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Apple logo in Lores
Okay, here it is: http://www.ld8.org/misc/logo.dsk
or for those who like to type:
10 REM LO-RES APPLE LOGO
20 REM BY SIMON WILLIAMS
30 REM FREEWARE (PD)2008
40 :
45 PRINT CHR$ (21)
50 HOME : GR
60 FOR I = 1 TO 108
70 READ PH: REM PLOT OR HLIN?
80 IF PH = 0 THEN GOSUB 1000: REM PLOT
90 IF PH = 1 THEN GOSUB 2000: REM HLIN
100 NEXT
200 VTAB 22: HTAB 13: PRINT "APPLE ][ FOREVER!"
999 END
1000 REM PLOT
1010 READ C: READ X: READ Y
1020 COLOR= C: PLOT X,Y
1030 RETURN
2000 REM HLIN
2010 READ C: READ X1: READ X2: READ Y
2020 COLOR= C: HLIN X1,X2 AT Y
2030 RETURN
3000 REM IMAGE DATA BY HORIZONTAL LINE
3001 DATA 1,4,23,24,1
3002 DATA 0,4,22,2,0,12,23,2,0,4,24,2
3003 DATA 0,4,21,3,1,12,22,23,3,0,4,24,3
3004 DATA 1,12,21,23,4,0,4,24,4
3005 DATA 0,4,20,5,1,12,21,23,5
3006 DATA 1,12,20,22,6,0,4,23,6
3007 DATA 1,12,20,22,7,0,4,23,7
3008 DATA 1,12,20,22,8
3009 DATA 1,12,20,21,9
3010 DATA 1,4,15,17,10,0,4,20,10,1,4,23,25,10
3011 DATA
0,4,14,11,1,12,15,17,11,0,4,18,11,0,4,22,11,1,12,23,25,11,0,4,26,11
3012 DATA 0,4,13,12,1,12,14,19,12,0,4,20,12,1,12,21,26,12,0,4,27,12
3013 DATA 0,4,12,13,1,12,13,27,13,0,4,28,13
3014 DATA 0,4,12,14,1,12,13,27,14,0,4,28,14
3015 DATA 0,4,11,15,1,12,12,27,15,0,4,28,15
3016 DATA 0,9,11,16,1,13,12,27,16
3017 DATA 0,8,10,17,1,13,11,26,17,0,9,27,17
3018 DATA 0,8,10,18,1,13,11,26,18
3019 DATA 0,9,10,19,1,13,11,25,19,0,9,26,19
3020 DATA 0,9,10,20,1,13,11,25,20,0,8,26,20
3021 DATA 0,8,10,21,1,9,11,25,21,0,8,26,21
3022 DATA 0,8,10,22,1,9,11,25,22,0,8,26,22
3023 DATA 0,8,10,23,1,9,11,25,23,0,8,26,23
3024 DATA 0,8,10,24,1,9,11,25,24,0,8,26,24
3025 DATA 0,8,10,25,1,1,11,26,25,0,8,27,25
3026 DATA 0,8,10,26,1,1,11,26,26,0,8,27,26
3027 DATA 0,8,11,27,1,1,12,27,27
3028 DATA 0,8,11,28,1,1,12,27,28,0,8,28,28
3029 DATA 0,8,11,29,1,1,12,28,29,0,8,29,29
3030 DATA 1,3,12,28,30,0,6,29,30
3031 DATA 0,6,12,31,1,3,13,28,31
3032 DATA 0,6,12,32,1,3,13,27,32,0,6,28,32
3033 DATA 0,6,13,33,1,3,14,27,33
3034 DATA 0,6,13,34,1,3,14,26,34,0,6,27,34
3035 DATA 0,6,13,35,1,7,14,26,35
3036 DATA 0,6,14,36,1,7,15,19,36,0,6,20,36,1,7,21,25,36,0,6,26,36
3037 DATA 1,7,15,18,37,0,6,19,37,0,6,21,37,1,7,22,25,37
3038 DATA
0,6,15,38,1,7,16,17,38,0,6,18,38,0,6,22,38,1,7,23,24,38,0,6,25,38
This was the fastest way I could figure out to do it, but I'm sure it
could be improved on.
] SIMON D WILLIAMS