GR0
FILE INFORMATION
FILENAME(S): GR0
FILE TYPE(S): PRG
FILE SIZE: 739b
FIRST SEEN: 2025-11-30 21:11:34
APPEARS ON: 1 disk(s)
FILE HASH
ff8e7f3477d64fa3e461a3d576cf62fbca371c27fb71fa0ddd3242f9babdd35c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NOG UITZOEKEN | GR0 | PRG | DuncanTwain | 30 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 52 45 4D 20 47 52 30 0D 43 4F 4C 4F 52 3D 24 | REM GR0.COLOR=$| 00000010: 32 38 36 0D 3B 0D 53 59 53 42 41 53 45 30 3D 24 |286.;.SYSBASE0=$| 00000020: 30 34 30 30 0D 20 44 49 4D 20 53 59 58 4C 4F 30 |0400. DIM SYXLO0| 00000030: 20 2C 20 53 59 59 4C 4F 30 0D 20 44 49 4D 20 53 | , SYYLO0. DIM S| 00000040: 59 43 48 52 30 0D 3B 0D 20 44 45 46 20 53 59 50 |YCHR0.;. DEF SYP| 00000050: 4F 53 30 0D 20 20 4C 45 54 20 53 59 59 4C 4F 30 |OS0. LET SYYLO0| 00000060: 20 2D 3E 20 53 59 50 4E 54 20 30 20 2D 3E 20 53 | -> SYPNT 0 -> S| 00000070: 59 50 4E 54 2B 31 0D 20 20 4C 44 59 20 23 34 0D |YPNT+1. LDY #4.| 00000080: 53 59 50 4C 4F 54 30 43 3A 0D 20 20 4C 45 54 20 |SYPLOT0C:. LET | 00000090: 53 59 50 4E 54 20 2B 20 53 59 59 4C 4F 30 20 2D |SYPNT + SYYLO0 -| 000000A0: 3E 20 53 59 50 4E 54 0D 20 20 4C 44 41 20 53 59 |> SYPNT. LDA SY| 000000B0: 50 4E 54 2B 31 20 3A 20 41 44 43 20 23 30 20 3A |PNT+1 : ADC #0 :| 000000C0: 20 53 54 41 20 53 59 50 4E 54 2B 31 0D 20 20 44 | STA SYPNT+1. D| 000000D0: 45 59 20 3A 20 42 4E 45 20 53 59 50 4C 4F 54 30 |EY : BNE SYPLOT0| 000000E0: 43 0D 20 20 41 53 4C 20 53 59 50 4E 54 20 3A 20 |C. ASL SYPNT : | 000000F0: 52 4F 4C 20 53 59 50 4E 54 2B 31 0D 20 20 41 53 |ROL SYPNT+1. AS| 00000100: 4C 20 53 59 50 4E 54 20 3A 20 52 4F 4C 20 53 59 |L SYPNT : ROL SY| 00000110: 50 4E 54 2B 31 0D 20 20 41 53 4C 20 53 59 50 4E |PNT+1. ASL SYPN| 00000120: 54 20 3A 20 52 4F 4C 20 53 59 50 4E 54 2B 31 0D |T : ROL SYPNT+1.| 00000130: 20 20 4C 45 54 20 53 59 50 4E 54 2B 31 20 2B 20 | LET SYPNT+1 + | 00000140: 23 3E 53 59 53 42 41 53 45 30 20 2D 3E 20 53 59 |#>SYSBASE0 -> SY| 00000150: 50 4E 54 2B 31 0D 20 20 4C 44 59 20 53 59 58 4C |PNT+1. LDY SYXL| 00000160: 4F 30 0D 20 20 52 45 54 55 52 4E 0D 20 45 4E 44 |O0. RETURN. END| 00000170: 44 45 46 20 53 59 50 4F 53 30 0D 3B 0D 20 44 45 |DEF SYPOS0.;. DE| 00000180: 46 20 50 4C 4F 54 30 20 53 59 43 48 52 30 20 2C |F PLOT0 SYCHR0 ,| 00000190: 20 53 59 58 4C 4F 30 20 2C 20 53 59 59 4C 4F 30 | SYXLO0 , SYYLO0| 000001A0: 0D 20 20 47 4F 53 55 42 20 53 59 50 4F 53 30 0D |. GOSUB SYPOS0.| 000001B0: 20 20 4C 45 54 20 53 59 43 48 52 30 20 2D 3E 20 | LET SYCHR0 -> | 000001C0: 28 53 59 50 4E 54 29 2C 59 0D 20 20 4C 45 54 20 |(SYPNT),Y. LET | 000001D0: 53 59 50 4E 54 2B 31 20 3D 20 53 59 50 4E 54 2B |SYPNT+1 = SYPNT+| 000001E0: 31 20 2B 20 24 44 34 0D 20 20 4C 45 54 20 43 4F |1 + $D4. LET CO| 000001F0: 4C 4F 52 20 2D 3E 20 28 53 59 50 4E 54 29 2C 59 |LOR -> (SYPNT),Y| 00000200: 0D 20 20 52 45 54 55 52 4E 0D 20 45 4E 44 44 45 |. RETURN. ENDDE| 00000210: 46 20 50 4C 4F 54 30 0D 3B 0D 20 44 45 46 20 4C |F PLOT0.;. DEF L| 00000220: 4F 43 30 20 2E 53 59 50 4E 54 30 20 2C 20 53 59 |OC0 .SYPNT0 , SY| 00000230: 58 4C 4F 30 20 2C 20 53 59 59 4C 4F 30 0D 20 20 |XLO0 , SYYLO0. | 00000240: 47 4F 53 55 42 20 53 59 50 4F 53 30 0D 20 20 4C |GOSUB SYPOS0. L| 00000250: 44 41 20 28 53 59 50 4E 54 29 2C 59 0D 20 20 54 |DA (SYPNT),Y. T| 00000260: 41 58 0D 20 20 4C 45 54 20 53 59 50 4E 54 30 20 |AX. LET SYPNT0 | 00000270: 2D 3E 20 53 59 50 4E 54 0D 20 20 4C 45 54 20 53 |-> SYPNT. LET S| 00000280: 59 50 4E 54 30 2B 31 20 2D 3E 20 53 59 50 4E 54 |YPNT0+1 -> SYPNT| 00000290: 2B 31 0D 20 20 54 58 41 20 3A 20 4C 44 59 20 23 |+1. TXA : LDY #| 000002A0: 30 20 3A 20 53 54 41 20 28 53 59 50 4E 54 29 2C |0 : STA (SYPNT),| 000002B0: 59 0D 20 20 52 45 54 55 52 4E 0D 20 45 4E 44 44 |Y. RETURN. ENDD| 000002C0: 45 46 20 4C 4F 43 30 0D 20 44 49 4D 20 2E 53 59 |EF LOC0. DIM .SY| 000002D0: 50 4E 54 30 0D 47 52 30 3D 24 46 46 38 31 0D 00 |PNT0.GR0=$FF81..| 000002E0: 00 00 00 |... |
REM GR0.COLOR=$286.;.SYSBASE0=$0400. DI M SYXLO0 , SYYLO0. DIM SYCHR0.;. DEF SYP OS0. LET SYYLO0 -> SYPNT 0 -> SYPNT+1. LDY #4.SYPLOT0C:. LET SYPNT + SYYLO0 - > SYPNT. LDA SYPNT+1 : ADC #0 : STA SYP NT+1. DEY : BNE SYPLOT0C. ASL SYPNT : ROL SYPNT+1. ASL SYPNT : ROL SYPNT+1. ASL SYPNT : ROL SYPNT+1. LET SYPNT+1 + #>SYSBASE0 -> SYPNT+1. LDY SYXLO0. RET URN. ENDDEF SYPOS0.;. DEF PLOT0 SYCHR0 , SYXLO0 , SYYLO0. GOSUB SYPOS0. LET SY CHR0 -> (SYPNT),Y. LET SYPNT+1 = SYPNT+ 1 + $D4. LET COLOR -> (SYPNT),Y. RETUR N. ENDDEF PLOT0.;. DEF LOC0 .SYPNT0 , SY XLO0 , SYYLO0. GOSUB SYPOS0. LDA (SYPN T),Y. TAX. LET SYPNT0 -> SYPNT. LET S YPNT0+1 -> SYPNT+1. TXA : LDY #0 : STA (SYPNT),Y. RETURN. ENDDEF LOC0. DIM .SY PNT0.GR0=$FF81.....
> CLICK IMAGE PREVIEW FOR FULL MODAL