dos33fsprogs/basic/appleiibot/lots.bas

mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-20 03:35:24 +00:00
1REM(X\(V\C7PC#PC PJ(AYJ A_I_*#A_""""!_A_I_(- Y_I_RPTY3, H H ($]H C5PI_D)R@)_C5PI_D)R@)_RP*TY8XP)%%1&9VMJ=GT:&$N $01GA'T9X $
2FORI=0TO90:C=INT((PEEK(2144+I/3)-32)/4^(I-INT(I/3)*3)):POKE768+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL768
dhgr: some double-hires code 2020-10-07 21:01:18 +00:00			`1REM(X\(V\C7PC#PC PJ(AYJ A_I_#A_""""!_A_I_(- Y_I_RPTY3, H H ($]H C5PI_D)R@)_C5PI_D)R@)_RPTY8XP)%%1&9VMJ=GT:&$N $01GA'T9X $`
			`2FORI=0TO90:C=INT((PEEK(2144+I/3)-32)/4^(I-INT(I/3)3)):POKE768+I,((PEEK(2054+I)-32)4)+C-INT(C/4)*4:NEXT:CALL768`